From 00c5f03f227621c727ee248e8f458cdfe2beb93d Mon Sep 17 00:00:00 2001 From: Piotr Justyna Date: Wed, 13 Mar 2024 11:05:17 +0000 Subject: [PATCH] no arrow heads for drakon compliance --- HelloWorld.hs | 2 +- README.md | 2 +- hello-world.svg | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) diff --git a/HelloWorld.hs b/HelloWorld.hs index 177d648..c82e55d 100644 --- a/HelloWorld.hs +++ b/HelloWorld.hs @@ -38,7 +38,7 @@ steps = ++ [Step { originCoordinates = p2 (0, -4), name = uniqueName 0 4, stepType = EndType }] connections :: [Step] -> [QDiagram B V2 Double Any -> QDiagram B V2 Double Any] -connections (x1: x2: xn) = connectOutside (stepName x1) (stepName x2): connections (x2: xn) +connections (x1: x2: xn) = connectOutside' (with & arrowHead .~ noHead) (stepName x1) (stepName x2): connections (x2: xn) connections (x1: []) = [] connections [] = [] diff --git a/README.md b/README.md index 4d515e8..c7c0818 100644 --- a/README.md +++ b/README.md @@ -7,7 +7,7 @@ ## hello world -* `ghc HelloWorld.hs && ./HelloWorld -o hello-world.svg -w 400` +* `ghc HelloWorld.hs && ./HelloWorld -o hello-world.svg -w 200` ![hello-world](./hello-world.svg) diff --git a/hello-world.svg b/hello-world.svg index 3cede66..b819690 100644 --- a/hello-world.svg +++ b/hello-world.svg @@ -1,3 +1,3 @@ endstart \ No newline at end of file + "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd">endstart \ No newline at end of file