@@ -30,10 +30,10 @@ game = do
30 case event of
30 case event of
31 Harm n -> modify $ \h -> h - n
31 Harm n -> modify $ \h -> h - n
32 Heal n -> modify $ \h -> h + n
32 Heal n -> modify $ \h -> h + n
33− Quit -> error "quit"
33+ Quit -> fail "quit"
36− when (h <= 0) $ error "You die!"
36+ when (h <= 0) $ fail "You die!"
37 liftIO $ putStrLn $ "Health = " ++ show h
37 liftIO $ putStrLn $ "Health = " ++ show h