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 + }