Style improvements

2014-10-02 13:13:58 +02:00 · 2014-10-02 13:13:58 +02:00 · 80b5286095
commit 80b5286095
parent 8f806ab42c
1 changed files with 5 additions and 4 deletions
--- a/Diagram.hs
+++ b/Diagram.hs
@ -19,7 +19,8 @@ diagFromVTable prop meshArr
  = position (zip (map mkPoint . filter (inRange 0 500) $ meshArr)
                  (repeat dot)) # moveTo (p2(-250, -250))
     `atop` square 500 # lwG 0.05 # bg white
-    where dot           = (circle $ getThickness prop :: Diagram Cairo R2) # fc black
+        where dot           = (circle $
+                               getThickness prop :: Diagram Cairo R2) # fc black
              mkPoint (x,y) = p2 (x,y)

 -- |Create the Diagram from a String.