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