@@ -7,12 +7,12 @@ import Asyncly
7import Control.Concurrent (threadDelay)
7import Control.Concurrent (threadDelay)
8import Control.Monad (when)
8import Control.Monad (when)
9import Control.Monad.State
9import Control.Monad.State
10−import Data.Foldable (fold)
10+import Data.Semigroup (cycle1)
12data Event = Harm Int | Heal Int | Quit deriving (Show)
12data Event = Harm Int | Heal Int | Quit deriving (Show)
14userAction :: MonadIO m => AsyncT m Event
14userAction :: MonadIO m => AsyncT m Event
15−userAction = fold $ repeat $ liftIO $ askUser
15+userAction = cycle1 $ liftIO askUser
17 askUser = do
17 askUser = do
18 command <- getLine
18 command <- getLine
@@ -22,7 +22,7 @@ userAction = fold $ repeat $ liftIO $ askUser
22 _ -> putStrLn "What?" >> askUser
22 _ -> putStrLn "What?" >> askUser
24acidRain :: MonadIO m => AsyncT m Event
24acidRain :: MonadIO m => AsyncT m Event
25−acidRain = fold $ repeat $ liftIO (threadDelay 1000000) >> return (Harm 1)
25+acidRain = cycle1 $ liftIO (threadDelay 1000000) >> return (Harm 1)
27game :: (MonadAsync m, MonadState Int m) => AsyncT m ()
27game :: (MonadAsync m, MonadState Int m) => AsyncT m ()