[commit: ghc] master: TrieMap: Minor documentation fix (4c9620f)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/4c9620fc0fd4d2fee7920633a8b03776a8f0948d/ghc

>---------------------------------------------------------------

commit 4c9620fc0fd4d2fee7920633a8b03776a8f0948d
Author: Ömer Sinan Ağacan <omeragacan at gmail.com>
Date:   Sat Jan 9 16:12:42 2016 -0500

    TrieMap: Minor documentation fix


>---------------------------------------------------------------

4c9620fc0fd4d2fee7920633a8b03776a8f0948d
 compiler/coreSyn/TrieMap.hs | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/compiler/coreSyn/TrieMap.hs b/compiler/coreSyn/TrieMap.hs
index 5b34c9a..2b23b25 100644
--- a/compiler/coreSyn/TrieMap.hs
+++ b/compiler/coreSyn/TrieMap.hs
@@ -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) }