Fix y-axis

2014-10-08 19:29:51 +02:00 · 2014-10-08 19:29:51 +02:00 · 0677a26040
commit 0677a26040
parent c0be077f15
1 changed files with 1 additions and 1 deletions
--- a/Diagram.hs
+++ b/Diagram.hs
@ -117,7 +117,7 @@ showXAxis = Diag f
 showYAxis :: Diag
 showYAxis = Diag f
  where
-    f p _ = strokeTrail . fromVertices $ [p2 (0, ylD p), p2 (0, yuD p)] # moveTo (p2 (0, ylD p))
+    f p _ = (strokeTrail . fromVertices $ [p2 (0, ylD p), p2 (0, yuD p)]) # moveTo (p2 (0, ylD p))


 -- |Creates a Diagram that shows a white rectangle which is a little