Skip to content

Instantly share code, notes, and snippets.

@monzou

monzou/type.hs

Created June 24, 2012 06:00
Show Gist options
  • Save monzou/2981869 to your computer and use it in GitHub Desktop.
Save monzou/2981869 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
type.hs
-- 型クラス
-- Maybe 型を Eq 型クラスのインスタンスにする
instance (Eq m) => Eq (Maybe m) where
Just x == Just y = x == y
Nothing == Nothing = True
_ == _ = False
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment