Skip to content

Instantly share code, notes, and snippets.

@mmitou

mmitou/mona-mappable.hs

Created December 3, 2011 02:22
Show Gist options
  • Save mmitou/1425783 to your computer and use it in GitHub Desktop.
Save mmitou/1425783 to your computer and use it in GitHub Desktop.
Download ZIP
mappableはこんな感じか
Raw
mona-mappable.hs
class Mappable m where
(<$>) :: (a -> b) -> m a -> m b
mmap :: (a -> b) -> Maybe a -> Maybe b
mmap _ Nothing = Nothing
mmap f (Just x) = Just $ f x
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment