From e11312fb5df69260918488092e934d853b3b4a8a Mon Sep 17 00:00:00 2001 From: nek0 Date: Fri, 4 Nov 2016 16:38:13 +0100 Subject: [PATCH] terminate after 5 seconds --- examples/example00.hs | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/examples/example00.hs b/examples/example00.hs index f4a78ce..5e0eb1f 100644 --- a/examples/example00.hs +++ b/examples/example00.hs @@ -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 + }