Changes between Version 5 and Version 6 of PatternSynonyms

Timestamp:

08/15/11 14:58:32 (22 months ago)

Author:

augustss

Comment:

--

PatternSynonyms

@@ -139 +139 @@
       pattern Cons x xs = x:xs
       append = (++)
+
+headOf :: (ListLike l) => l a -> Maybe a
+headOf Nil = Nothing
+headOf (Const x _) = Just x
 }}}