This commit is contained in:
nek0 2017-12-15 18:01:05 +01:00
parent 295c4b333c
commit 22e08e3f9b
2 changed files with 2 additions and 2 deletions

View File

@ -52,7 +52,7 @@ withAffection AffectionConfig{..} = do
-- construct window
window <- SDL.createWindow windowTitle windowConfig
SDL.showWindow window
context <- SDL.glCreateContext(window)
context <- SDL.glCreateContext windw
let SDL.V2 (CInt rw) (CInt rh) = SDL.windowInitialSize windowConfig
(w, h) = case canvasSize of
Just (cw, ch) -> (cw, ch)

View File

@ -48,7 +48,7 @@ updateProperties ps act@Actor{..} =
applyProperties :: (Show a, Ord a) => Actor a -> Affection us ()
applyProperties Actor{..} =
MP.mapM_ (\(ActorProperty{..}) ->
MP.mapM_ (\ActorProperty{..} ->
maybe (return ()) (\m ->
liftIO $ G.gegl_node_set (actorNodes M.! fst m) $ G.Operation "" $
(G.Property (snd m) apValue) : []