[fix some warnings in TIModule
John Meacham <john@repetae.net>**20050928033438] hunk ./FrontEnd/TIModule.hs 3
-import Atom
hunk ./FrontEnd/TIModule.hs 4
-import Class
hunk ./FrontEnd/TIModule.hs 5
+import IO
+import List
+import Monad
+import qualified Data.Map as Map
+import Text.PrettyPrint.HughesPJ as PPrint
+
+import Atom
+import Class
hunk ./FrontEnd/TIModule.hs 14
+import DataConstructors
hunk ./FrontEnd/TIModule.hs 18
+import Doc.PPrint as PPrint
hunk ./FrontEnd/TIModule.hs 24
-import DataConstructors
hunk ./FrontEnd/TIModule.hs 25
-import IO
hunk ./FrontEnd/TIModule.hs 26
-import List
-import Monad
hunk ./FrontEnd/TIModule.hs 32
-import qualified Data.Map as Map
-import qualified Data.Map as M
-import Doc.PPrint as PPrint
-import Text.PrettyPrint.HughesPJ as PPrint
hunk ./FrontEnd/TIModule.hs 39
-import GenUtil
hunk ./FrontEnd/TIModule.hs 50
-    tiDataLiftedInstances :: M.Map HsName HsDecl,
+    tiDataLiftedInstances :: Map.Map HsName HsDecl,
hunk ./FrontEnd/TIModule.hs 260
-    let pragmaProps = M.fromListWith (\a b -> snub $ a ++ b ) [ (toName Name.Val x,[toAtom w]) |  HsPragmaProps _ w xs <- ds, x <- xs ]
+    let pragmaProps = Map.fromListWith (\a b -> snub $ a ++ b ) [ (toName Name.Val x,[toAtom w]) |  HsPragmaProps _ w xs <- ds, x <- xs ]
hunk ./FrontEnd/TIModule.hs 262
-    let allAssumps = M.fromList $ [ (toName Name.DataConstructor x,y) | (x,y) <- Map.toList localDConsEnv ] ++ [ (toName Name.Val x,y) | (x,y) <- Map.toList localVarEnv ]
+    let allAssumps = Map.fromList $ [ (toName Name.DataConstructor x,y) | (x,y) <- Map.toList localDConsEnv ] ++ [ (toName Name.Val x,y) | (x,y) <- Map.toList localVarEnv ]
hunk ./FrontEnd/TIModule.hs 264
-        expAssumps = M.fromList $ [ (toName Name.DataConstructor x,y) | (x,y) <- Map.toList localDConsEnv ] ++ [ (toName Name.Val x,y) | (x,y) <- Map.toList $ externalEnv ]
+        expAssumps = Map.fromList $ [ (toName Name.DataConstructor x,y) | (x,y) <- Map.toList localDConsEnv ] ++ [ (toName Name.Val x,y) | (x,y) <- Map.toList $ externalEnv ]
hunk ./FrontEnd/TIModule.hs 266
-        hoExports = M.fromList [ (modInfoName m,modInfoExport m) | m <- ms ],
-        hoDefs =  M.fromList [ (x,(y,z)) | (x,y,z) <- concat $ map modInfoDefs ms],
+        hoExports = Map.fromList [ (modInfoName m,modInfoExport m) | m <- ms ],
+        hoDefs =  Map.fromList [ (x,(y,z)) | (x,y,z) <- concat $ map modInfoDefs ms],
hunk ./FrontEnd/TIModule.hs 279
-            tiDataLiftedInstances = M.fromList [ (getDeclName d,d) | d <- liftedInstances],
+            tiDataLiftedInstances = Map.fromList [ (getDeclName d,d) | d <- liftedInstances],