MeshSketch.new now returns a widget.

1 files changed, 13 insertions, 13 deletions

diff --git a/mainObj.hs b/mainObj.hs
index caf6501..133643f 100644
--- a/mainObj.hs
+++ b/mainObj.hs
@@ -11,19 +11,19 @@ import qualified MeshSketch
 
 main :: IO ()
 main = do
-        _ <- Gtk.init Nothing
+    _ <- Gtk.init Nothing
 
-        let mkChild = MeshSketch.mmWidget <$> MeshSketch.new
+    let mkChild = MeshSketch.new
 
-        window <- do
-            w <- Gtk.windowNew WindowTypeToplevel
-            windowSetDefaultSize    w 720 720
-            Gtk.windowSetTitle      w "MeshSketch"
-            containerSetBorderWidth w 0
-            _ <- on w #deleteEvent $ \_ -> mainQuit >> return True
-            child <- mkChild
-            containerAdd w child
-            return w
+    window <- do
+        w <- windowNew WindowTypeToplevel
+        windowSetDefaultSize    w 720 720
+        windowSetTitle          w "MeshSketch"
+        containerSetBorderWidth w 0
+        _ <- on w #deleteEvent $ \_ -> mainQuit >> return True
+        child <- mkChild
+        containerAdd w child
+        return w
 
-        widgetShowAll window
-        Gtk.main
+    widgetShowAll window
+    Gtk.main