From d39180a72386757fcd6c3ea2e13ad5934ef86b2e Mon Sep 17 00:00:00 2001
From: hasufell <hasufell@hasufell.de>
Date: Thu, 2 Oct 2014 14:30:08 +0200
Subject: [PATCH] Style

---
 Diagram.hs | 4 ++--
 Gtk.hs     | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/Diagram.hs b/Diagram.hs
index c56b6b8..6ee5b6a 100644
--- a/Diagram.hs
+++ b/Diagram.hs
@@ -15,8 +15,8 @@ data DiagProp = MkProp {
 
 -- |Create the Diagram from the VTable.
 diagFromVTable :: DiagProp -> VTable -> Diagram Cairo R2
-diagFromVTable prop meshArr
-  = position (zip (map mkPoint . filter (inRange 0 500) $ meshArr)
+diagFromVTable prop vt
+  = position (zip (map mkPoint . filter (inRange 0 500) $ vt)
                   (repeat dot)) # moveTo (p2(-250, -250))
      `atop` square 500 # lwG 0.05 # bg white
         where dot           = (circle $
diff --git a/Gtk.hs b/Gtk.hs
index dd7af85..74e33b9 100644
--- a/Gtk.hs
+++ b/Gtk.hs
@@ -41,7 +41,7 @@ makeGUI startFile = do
   -- callbacks
   _ <- onDestroy window mainQuit
   _ <- onClicked drawButton $ onClickedDrawButton fileButton
-                                                  da hscale
+         da hscale
   _ <- onClicked saveButton $ onClickedSaveButton fileButton
   _ <- onClicked quitButton mainQuit