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 update sec = do
traceM "updating" traceM "updating"
-- traceM $ show sec -- traceM $ show sec
-- liftIO $ delaySec 5 liftIO $ delaySec 5
-- ud@AffectionData{..} <- get ud@AffectionData{..} <- get
-- put $ ud put $ ud
-- { quitEvent = True { quitEvent = True
-- } }