MeshSketch.new now returns a widget.

1 files changed, 2 insertions, 2 deletions

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