X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=Data%2FFiniteMap.hs;h=0c8d4feeb7b9dcea9fef85dae9e68ad5dfb730ab;hb=f7a485978f04e84b086f1974b88887cc72d832d0;hp=a44bb36f9f387ec068ee2b555df927d218688748;hpb=746ef6a7fd71bb1e9ebe3cd107c5f9f79f3b7a68;p=ghc-base.git

diff --git a/Data/FiniteMap.hs b/Data/FiniteMap.hs
index a44bb36..0c8d4fe 100644
--- a/Data/FiniteMap.hs
+++ b/Data/FiniteMap.hs
@@ -2,7 +2,7 @@
 -- |
 -- Module      :  Data.FiniteMap
 -- Copyright   :  (c) The University of Glasgow 2001
--- License     :  BSD-style (see the file libraries/core/LICENSE)
+-- License     :  BSD-style (see the file libraries/base/LICENSE)
 -- 
 -- Maintainer  :  libraries@haskell.org
 -- Stability   :  provisional
@@ -201,7 +201,7 @@ emptyFM
     bottom = panic "emptyFM"
 -}
 
--- #define EmptyFM (Branch _ _ IF_GHC(0#,0) _ _)
+--  #define EmptyFM (Branch _ _ IF_GHC(0#,0) _ _)
 
 unitFM key elt = Branch key elt IF_GHC(1#,1) emptyFM emptyFM