composewell/streamly
1
1
Fork 0
mirror of https://github.com/composewell/streamly.git synced 2024-09-21 00:20:08 +03:00
Code Issues Packages Projects Releases Wiki Activity

replace error with fail

Browse Source
This commit is contained in:
Harendra Kumar 2017-09-18 16:07:23 +05:30
parent 5df19ce712
commit e560d9140d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
examples/game.hs
View File

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