nek0/vulkan-tutorial
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

terminate after 5 seconds

Browse source
This commit is contained in:
nek0 2016-11-04 16:38:13 +01:00
parent d847ef18d2
commit e11312fb5d
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
examples/example00.hs
View file

@ -78,8 +78,8 @@ update :: Double -> AffectionState (AffectionData UserData) IO ()
update sec = do
traceM "updating"
-- traceM $ show sec
-- liftIO $ delaySec 5
-- ud@AffectionData{..} <- get
-- put $ ud
-- { quitEvent = True
-- }
liftIO $ delaySec 5
ud@AffectionData{..} <- get
put $ ud
{ quitEvent = True
}