nek0/affection
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

brackets

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Affection.hs
View file

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

2
src/Affection/Actor.hs
View file

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