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

restart on escape

Browse source
This commit is contained in:
nek0 2018-09-21 22:25:23 +02:00
parent 086302be5e
commit e0a272fb4e
1 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/Main.hs
View file

@ -68,7 +68,15 @@ pre = do
quitGame :: KeyboardMessage -> Affection UserData () quitGame :: KeyboardMessage -> Affection UserData ()
quitGame (MsgKeyboardEvent _ _ SDL.Pressed False sym) quitGame (MsgKeyboardEvent _ _ SDL.Pressed False sym)
| SDL.keysymKeycode sym == SDL.KeycodeEscape = quit | SDL.keysymKeycode sym == SDL.KeycodeEscape = do
ad <- A.get
ud <- getAffection
SDL.glMakeCurrent (drawWindow ad) (glContext ad)
(ws, _) <- yieldSystemT (0, defStorage) (return ())
putAffection ud
{ worldState = ws
}
smLoad Load
| otherwise = return () | otherwise = return ()
quitGame _ = return () quitGame _ = return ()