typo
This commit is contained in:
parent
500cf17123
commit
48b8aaf379
1 changed files with 3 additions and 3 deletions
|
@ -72,9 +72,9 @@ quitGame (MsgKeyboardEvent _ _ SDL.Pressed False sym)
|
||||||
ad <- A.get
|
ad <- A.get
|
||||||
ud <- getAffection
|
ud <- getAffection
|
||||||
let Subsystems w m k = subsystems ud
|
let Subsystems w m k = subsystems ud
|
||||||
mapM_ (partUnsubscribe w) (uuid ud)
|
mapM_ (partUnSubscribe w) (uuid ud)
|
||||||
mapM_ (partUnsubscribe m) (uuid ud)
|
mapM_ (partUnSubscribe m) (uuid ud)
|
||||||
mapM_ (partUnsubscribe k) (uuid ud)
|
mapM_ (partUnSubscribe k) (uuid ud)
|
||||||
SDL.glMakeCurrent (drawWindow ad) (glContext ad)
|
SDL.glMakeCurrent (drawWindow ad) (glContext ad)
|
||||||
(ws, _) <- yieldSystemT (0, defStorage) (return ())
|
(ws, _) <- yieldSystemT (0, defStorage) (return ())
|
||||||
putAffection ud
|
putAffection ud
|
||||||
|
|
Loading…
Reference in a new issue