diff --git a/HelloWorld.hs b/HelloWorld.hs index 3b302f1..313826e 100644 --- a/HelloWorld.hs +++ b/HelloWorld.hs @@ -22,8 +22,8 @@ steps = [ Step { originCoordinates = p2 (x, y), name = x * 10 + y } - | x <- [0 .. 1], - y <- [0 .. 2]] + | x <- [0], + y <- [0, -1, -2, -3]] connections :: [Step] -> [QDiagram B V2 Double Any -> QDiagram B V2 Double Any] connections (x1: x2: xn) = diff --git a/hello-world.svg b/hello-world.svg index a114811..df10cb0 100644 --- a/hello-world.svg +++ b/hello-world.svg @@ -1,3 +1,3 @@ \ No newline at end of file + "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd"> \ No newline at end of file