@@ -30,10 +30,10 @@ game = do
3030 case event of
3131 Harm n -> modify $ \h -> h - n
3232 Heal n -> modify $ \h -> h + n
33− Quit -> error "quit"
33+ Quit -> fail "quit"
3434
3535 h <- get
36− when (h <= 0) $ error "You die!"
36+ when (h <= 0) $ fail "You die!"
3737 liftIO $ putStrLn $ "Health = " ++ show h
3838
3939main = do