Skip to content

Instantly share code, notes, and snippets.

@5outh

5outh/ComonadTree.hs

Created January 7, 2013 21:38
Show Gist options
  • Save 5outh/4478716 to your computer and use it in GitHub Desktop.
Save 5outh/4478716 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
ComonadTree.hs
instance Comonad Tree where
coreturn (Leaf a) = a
coreturn (Node a _) = a
cojoin l@(Leaf a) = Leaf l
cojoin n@(Node a b) = Node n (map cojoin b)
x =>> f = fmap f $ cojoin x
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment