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

typo

Browse source
This commit is contained in:
nek0 2018-09-22 01:17:21 +02:00
parent b2bdfa3e27
commit 500cf17123
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Main.hs
View file

@ -71,7 +71,7 @@ quitGame (MsgKeyboardEvent _ _ SDL.Pressed False sym)
| SDL.keysymKeycode sym == SDL.KeycodeEscape = do | SDL.keysymKeycode sym == SDL.KeycodeEscape = do
ad <- A.get ad <- A.get
ud <- getAffection ud <- getAffection
let Subsystem 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)