diff options
Diffstat (limited to 'MeshSketch.hs')
-rw-r--r-- | MeshSketch.hs | 4 |
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 | |||
111 | , stState :: State | 111 | , stState :: State |
112 | } | 112 | } |
113 | 113 | ||
114 | new :: IO MeshSketch | 114 | new :: IO GLArea |
115 | new = do | 115 | new = do |
116 | m <- do | 116 | m <- do |
117 | objName <- head . (++ ["cube.obj"]) <$> getArgs | 117 | objName <- head . (++ ["cube.obj"]) <$> getArgs |
@@ -143,7 +143,7 @@ new = do | |||
143 | _ <- on g #realize $ withCurrentGL g (onRealize obj (dynamicPipeline pipeline) (dynamicSchema pipeline) mm) | 143 | _ <- on g #realize $ withCurrentGL g (onRealize obj (dynamicPipeline pipeline) (dynamicSchema pipeline) mm) |
144 | _ <- on g #unrealize $ onUnrealize mm | 144 | _ <- on g #unrealize $ onUnrealize mm |
145 | -- _ <- on g #createContext $ nullableContext (glCreateContext w st) | 145 | -- _ <- on g #createContext $ nullableContext (glCreateContext w st) |
146 | return mm | 146 | return g |
147 | 147 | ||
148 | onUnrealize :: MeshSketch -> IO () | 148 | onUnrealize :: MeshSketch -> IO () |
149 | onUnrealize mm = do | 149 | onUnrealize mm = do |