Commit 4c9620fc authored by Ömer Sinan Ağacan's avatar Ömer Sinan Ağacan

TrieMap: Minor documentation fix

parent fbd6de2f
......@@ -140,7 +140,7 @@ instance TrieMap UniqFM where
{-
************************************************************************
* *
Lists
Maybes
* *
************************************************************************
......@@ -176,7 +176,14 @@ fdMaybe :: TrieMap m => (a -> b -> b) -> MaybeMap m a -> b -> b
fdMaybe k m = foldMaybe k (mm_nothing m)
. foldTM k (mm_just m)
--------------------
{-
************************************************************************
* *
Lists
* *
************************************************************************
-}
data ListMap m a
= LM { lm_nil :: Maybe a
, lm_cons :: m (ListMap m a) }
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment