GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-06 01:32:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

added Functor instance for Err datatype

Browse Source
This commit is contained in:
peb
2003-10-06 08:37:59 +00:00
parent 0ac49ec12f
commit 7aa7a3cf19
1 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/GF/Data/Operations.hs
View File

@@ -26,6 +26,10 @@ instance Monad Err where
Ok a >>= f = f a Ok a >>= f = f a
Bad s >>= f = Bad s Bad s >>= f = Bad s
instance Functor Err where -- added 2/10/2003 by PEB
fmap f (Ok a) = Ok (f a)
fmap f (Bad s) = Bad s
-- analogue of maybe -- analogue of maybe
err :: (String -> b) -> (a -> b) -> Err a -> b err :: (String -> b) -> (a -> b) -> Err a -> b
err d f e = case e of err d f e = case e of