From 80b52860951ef0465f3d03e499d18ac2aa4fe9ef Mon Sep 17 00:00:00 2001
From: hasufell <hasufell@hasufell.de>
Date: Thu, 2 Oct 2014 13:13:58 +0200
Subject: [PATCH] Style improvements

---
 Diagram.hs | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/Diagram.hs b/Diagram.hs
index 4ee6c33..c56b6b8 100644
--- a/Diagram.hs
+++ b/Diagram.hs
@@ -17,10 +17,11 @@ data DiagProp = MkProp {
 diagFromVTable :: DiagProp -> VTable -> Diagram Cairo R2
 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
-          mkPoint (x,y) = p2 (x,y)
+                  (repeat dot)) # moveTo (p2(-250, -250))
+     `atop` square 500 # lwG 0.05 # bg white
+        where dot           = (circle $
+                               getThickness prop :: Diagram Cairo R2) # fc black
+              mkPoint (x,y) = p2 (x,y)
 
 -- |Create the Diagram from a String.
 diagFromString :: DiagProp -> String -> Diagram Cairo R2