X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Futils%2FFiniteMap.lhs;fp=ghc%2Fcompiler%2Futils%2FFiniteMap.lhs;h=cf08d7cb96120bf89e29373c8f24772c46536824;hb=b9f37aee698c6ccf1ee183906836f8185aa6c2e2;hp=432d4f2cf9db793459e0d81b114dc6b25a522f4b;hpb=bafbfd988e3c9301faded7a9d64e4101f19d161b;p=ghc-hetmet.git

diff --git a/ghc/compiler/utils/FiniteMap.lhs b/ghc/compiler/utils/FiniteMap.lhs
index 432d4f2..cf08d7c 100644
--- a/ghc/compiler/utils/FiniteMap.lhs
+++ b/ghc/compiler/utils/FiniteMap.lhs
@@ -38,7 +38,7 @@ module FiniteMap (
 
 	intersectFM,
 	intersectFM_C,
-	mapFM, filterFM,
+	mapFM, filterFM, 
 
 	sizeFM, isEmptyFM, elemFM, lookupFM, lookupWithDefaultFM,
 
@@ -139,6 +139,7 @@ mapFM		:: (key -> elt1 -> elt2) -> FiniteMap key elt1 -> FiniteMap key elt2
 filterFM	:: (Ord key OUTPUTABLE_key) => (key -> elt -> Bool)
 			   -> FiniteMap key elt -> FiniteMap key elt
 
+
 --	INTERROGATING
 sizeFM		:: FiniteMap key elt -> Int
 isEmptyFM	:: FiniteMap key elt -> Bool