Advertisement
Guest User

Untitled

a guest
Sep 23rd, 2017
67
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. instance Monad (Either s) where
  2.     return x = Right x
  3.     (Left s) >>= _ = Left s
  4.     (Right x) >>= f = f x
  5.  
  6. myDiv :: (Fractional f) => f -> f -> Either [Char] f
  7. myDiv _ 0 = Left "Division by zero"
  8. myDiv a b = Right (a/b)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement