no arrow heads for drakon compliance

PiotrJustyna · Mar 13, 2024 · 00c5f03 · 00c5f03
1 parent 9b2e513
commit 00c5f03
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git 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
@@ -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