From 4c98ccde118f4dd0503226154876001bfc2770f7 Mon Sep 17 00:00:00 2001
From: Joe Crayne <joe@jerkface.net>
Date: Mon, 29 Apr 2019 20:13:49 -0400
Subject: MeshSketch.new now returns a widget.

---
 MeshSketch.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'MeshSketch.hs')

diff --git a/MeshSketch.hs b/MeshSketch.hs
index c56d34f..9c6c457 100644
--- a/MeshSketch.hs
+++ b/MeshSketch.hs
@@ -111,7 +111,7 @@ data Realized = Realized
     , stState    :: State
     }
 
-new :: IO MeshSketch
+new :: IO GLArea
 new = do
     m <- do
         objName <- head . (++ ["cube.obj"]) <$> getArgs
@@ -143,7 +143,7 @@ new = do
             _ <- on g #realize       $ withCurrentGL g (onRealize obj (dynamicPipeline pipeline) (dynamicSchema pipeline) mm)
             _ <- on g #unrealize     $ onUnrealize mm
             -- _ <- on g #createContext $ nullableContext (glCreateContext w st)
-            return mm
+            return g
 
 onUnrealize :: MeshSketch -> IO ()
 onUnrealize mm = do
-- 
cgit v1.2.3