terminate after 5 seconds

This commit is contained in:
nek0 2016-11-04 16:38:13 +01:00
parent d847ef18d2
commit e11312fb5d

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
}