brackets

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)

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) : []