From 22e08e3f9b2a6da7d0ce277b3ffeebc2b7b48f6e Mon Sep 17 00:00:00 2001 From: nek0 Date: Fri, 15 Dec 2017 18:01:05 +0100 Subject: [PATCH] brackets --- src/Affection.hs | 2 +- src/Affection/Actor.hs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Affection.hs b/src/Affection.hs index 11dec7b..6852a4d 100644 --- a/src/Affection.hs +++ b/src/Affection.hs @@ -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) diff --git a/src/Affection/Actor.hs b/src/Affection/Actor.hs index cff094f..0f98598 100644 --- a/src/Affection/Actor.hs +++ b/src/Affection/Actor.hs @@ -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) : []