[Misc formatting cleanups
John Meacham <john@repetae.net>**20050422062744] hunk ./FrontEnd/FrontEnd.hs 1
-module FrontEnd.FrontEnd(  
-    parseFiles, 
+module FrontEnd.FrontEnd(
+    parseFiles,
hunk ./FrontEnd/FrontEnd.hs 11
-import HsSyn              
+import HsSyn
hunk ./FrontEnd/FrontEnd.hs 15
-import qualified FlagDump as FD
hunk ./FrontEnd/FrontEnd.hs 16
+import qualified FlagDump as FD
hunk ./FrontEnd/FrontEnd.hs 25
-    
+
hunk ./FrontEnd/FrontEnd.hs 35
-        f ho (x:xs) = do 
+        f ho (x:xs) = do
hunk ./FrontEnd/FrontEnd.hs 38
-    ho <- f initialHo xs 
+    ho <- f initialHo xs
hunk ./FrontEnd/FrontEnd.hs 48
-doModules :: (Ho -> Ho -> TiData -> IO Ho) -> Ho -> [HsModule] -> IO Ho 
+-- Process modules found by Ho
+doModules :: (Ho -> Ho -> TiData -> IO Ho) -> Ho -> [HsModule] -> IO Ho
hunk ./FrontEnd/FrontEnd.hs 55
-         mapM_ print ( modInfoDefs m) 
-    ms <- determineExports [ (x,y,z) | (x,(y,z)) <- Map.toList $ hoDefs ho] (Map.toList $ hoExports ho) ms 
+         mapM_ print ( modInfoDefs m)
+    ms <- determineExports [ (x,y,z) | (x,(y,z)) <- Map.toList $ hoDefs ho] (Map.toList $ hoExports ho) ms
hunk ./FrontEnd/FrontEnd.hs 63
-    opt <- case fileOptions (hsModuleOptions m) of 
+    opt <- case fileOptions (hsModuleOptions m) of
hunk ./FrontEnd/FrontEnd.hs 65
-        Left s -> warn (srcLoc m) "unknown-option" ("Unknown OPTIONS in pragma module" <+> fromModule (hsModuleName m) <+>  s) >> return options 
+        Left s -> warn (srcLoc m) "unknown-option" ("Unknown OPTIONS in pragma module" <+> fromModule (hsModuleName m) <+>  s) >> return options
hunk ./FrontEnd/FrontEnd.hs 67
-    return ModInfo { 
-        modInfoName = hsModuleName m, 
+    return ModInfo {
+        modInfoName = hsModuleName m,
hunk ./FrontEnd/FrontEnd.hs 70
-        modInfoHsModule = m, 
+        modInfoHsModule = m,
hunk ./FrontEnd/FrontEnd.hs 72
-        modInfoExport = error "modInfoExport", 
-        modInfoImport = error "modInfoImport", 
+        modInfoExport = error "modInfoExport",
+        modInfoImport = error "modInfoImport",
hunk ./FrontEnd/FrontEnd.hs 75
-        }  
-    
+        }
+
+
hunk ./FrontEnd/FrontEnd.hs 81
+--modInfoDeps m = snub $ map hsImportDeclModule $ modInfoModImports m
hunk ./FrontEnd/FrontEnd.hs 83
---modInfoDeps m = snub $ map hsImportDeclModule $ modInfoModImports m 
-    
hunk ./FrontEnd/FrontEnd.hs 87
-    x <- action 
+    x <- action
hunk ./FrontEnd/FrontEnd.hs 95
-                      ParseOk e -> return e 
-                      ParseFailed sl err -> putErrDie $ show sl ++ err 
-    where 
+                      ParseOk e -> return e
+                      ParseFailed sl err -> putErrDie $ show sl ++ err
+    where
hunk ./FrontEnd/FrontEnd.hs 106
-    (fn,fc) <- catch (msum (map (\n -> CharIO.readFile n >>= return . (,) n) (fns n))) (\_ -> putErrDie ("Module not found: " ++ n)) 
+    (fn,fc) <- catch (msum (map (\n -> CharIO.readFile n >>= return . (,) n) (fns n))) (\_ -> putErrDie ("Module not found: " ++ n))
hunk ./FrontEnd/FrontEnd.hs 108
-        putErrLn $ "Found dependency:" <+> n <+> "at" <+> fn  
-    hm <- parseHsSource fn fc 
-    rm <- satisfyDeps (n:have) (ns ++ hsModuleRequires hm) 
+        putErrLn $ "Found dependency:" <+> n <+> "at" <+> fn
+    hm <- parseHsSource fn fc
+    rm <- satisfyDeps (n:have) (ns ++ hsModuleRequires hm)
hunk ./FrontEnd/FrontEnd.hs 145
-    let mss' = stronglyConnComp [ (m,toAtom (modInfoName m), map toAtom (modInfoDeps m))  | m <- ms]    
-        mss = map f mss' 
+    let mss' = stronglyConnComp [ (m,toAtom (modInfoName m), map toAtom (modInfoDeps m))  | m <- ms]
+        mss = map f mss'
hunk ./FrontEnd/FrontEnd.hs 161
-    
+
hunk ./FrontEnd/FrontEnd.hs 166
---exports ModInfo { modInfoHsModule = m@HsModule { hsModuleExports = Nothing } } _ = 
+--exports ModInfo { modInfoHsModule = m@HsModule { hsModuleExports = Nothing } } _ =
hunk ./FrontEnd/FrontEnd.hs 168
-exports :: ModInfo -> Rel (Name) Entity -> Rel (Name) Entity 
+exports :: ModInfo -> Rel (Name) Entity -> Rel (Name) Entity
hunk ./FrontEnd/FrontEnd.hs 171
-    f (HsEModuleContents m) = mapDomain g unqs `R.intersection` qs where  
+    f (HsEModuleContents m) = mapDomain g unqs `R.intersection` qs where
hunk ./FrontEnd/FrontEnd.hs 175
-    f z = entSpec False is z 
+    f z = entSpec False is z
hunk ./FrontEnd/FrontEnd.hs 178
-imports :: ModInfo -> (Module -> Rel (Name) Entity) -> Rel (Name) Entity -> Rel (Name) Entity 
+imports :: ModInfo -> (Module -> Rel (Name) Entity) -> Rel (Name) Entity -> Rel (Name) Entity
hunk ./FrontEnd/FrontEnd.hs 183
-        es = em (hsImportDeclModule x) 
-    
+        es = em (hsImportDeclModule x)
+
hunk ./FrontEnd/FrontEnd.hs 189
-    
---mEntSpec isHiding rel es  
+
+--mEntSpec isHiding rel es
hunk ./FrontEnd/FrontEnd.hs 194
-    f xs = [ (imports m mp i, o `mappend` exports m i) | (m,i,o) <- z] where 
+    f xs = [ (imports m mp i, o `mappend` exports m i) | (m,i,o) <- z] where
hunk ./FrontEnd/FrontEnd.hs 202
-    h m = R.fromList $  concat [ [(toUnqualified z,z),(z,z)]| (z, _, _) <- modInfoDefs m] 
+    h m = R.fromList $  concat [ [(toUnqualified z,z),(z,z)]| (z, _, _) <- modInfoDefs m]
hunk ./FrontEnd/FrontEnd.hs 210
- 
+
hunk ./FrontEnd/Lexer.hs 7
--- 
+--
hunk ./FrontEnd/Lexer.hs 24
-import Char 
+import Char
hunk ./FrontEnd/Lexer.hs 42
-        | PragmaStart String 
+        | PragmaStart String
hunk ./FrontEnd/Lexer.hs 196
-            '{':'-':'#':s | takeWhile isAlphaNum (dropWhile isSpace s) `Map.member` pragmas -> return bol  
+            '{':'-':'#':s | takeWhile isAlphaNum (dropWhile isSpace s) `Map.member` pragmas -> return bol
hunk ./FrontEnd/Lexer.hs 277
-            lexWhile isSpace 
+            lexWhile isSpace
hunk ./FrontEnd/Lexer.hs 279
-            case normPragma w  of 
+            case normPragma w  of
hunk ./FrontEnd/Lexer.hs 282
-        '#':'-':'}':_ -> do 
-            discard 3 
+        '#':'-':'}':_ -> do
+            discard 3
hunk ./FrontEnd/Lexer.hs 569
-pragmas_raw = [["OPTIONS", "JHC_OPTIONS"]]
--- pragmas for which we want to parse the insides of 
+pragmas_raw = [["OPTIONS", "JHC_OPTIONS", "OPTIONS_JHC" ]]
+-- pragmas for which we want to parse the insides of
hunk ./FrontEnd/Lexer.hs 572
-    ["INLINE"], 
-    ["NOINLINE","NOTINLINE"], 
+    ["INLINE"],
+    ["NOINLINE","NOTINLINE"],
hunk ./FrontEnd/Lexer.hs 575
+    ["MULTISPECIALIZE", "MULTISPECIALISE"],
hunk ./FrontEnd/ParseMonad.hs 7
--- 
+--
hunk ./FrontEnd/ParseMonad.hs 55
-				-- | original name of the file being parsed
+                -- | original name of the file being parsed
hunk ./FrontEnd/ParseMonad.hs 102
-returnP = return 
+returnP = return
hunk ./FrontEnd/ParseMonad.hs 253
-  = hcat [ if null token 
+  = hcat [ if null token
hunk ./FrontEnd/ParseMonad.hs 264
-srcParseFail = P $ \buf _ _ last_loc _ _ -> 
+srcParseFail = P $ \buf _ _ last_loc _ _ ->
hunk ./FrontEnd/ParseMonad.hs 275
---  failLocMsgP loc end str      
+--  failLocMsgP loc end str
hunk ./FrontEnd/Rename.hs 34
-     
+
hunk ./FrontEnd/Rename.hs 64
-module FrontEnd.Rename(unRename, collectDefsHsModule, renameModule, FieldMap ) where 
+module FrontEnd.Rename(unRename, collectDefsHsModule, renameModule, FieldMap ) where
hunk ./FrontEnd/Rename.hs 66
-import Char        
+import Char
hunk ./FrontEnd/Rename.hs 81
-import Utils     
+import Utils
hunk ./FrontEnd/Rename.hs 105
-data ScopeState = ScopeState {  
+data ScopeState = ScopeState {
hunk ./FrontEnd/Rename.hs 115
-    } 
+    }
hunk ./FrontEnd/Rename.hs 119
-type ScopeSM = State ScopeState 
+type ScopeSM = State ScopeState
hunk ./FrontEnd/Rename.hs 127
-getUnique :: ScopeSM Int 
+getUnique :: ScopeSM Int
hunk ./FrontEnd/Rename.hs 136
-setSrcLoc e = modify (\s -> s { srcLoc =  e `mappend` srcLoc s }) 
+setSrcLoc e = modify (\s -> s { srcLoc =  e `mappend` srcLoc s })
hunk ./FrontEnd/Rename.hs 156
-        f r hsName@Qual {} 
-            | Just _ <- fromTupname hsName, Module "Prelude" <- mod 
-                = let nn = hsName in (nn,nn):r 
-            | otherwise = error $ "strong bad: " ++ fromHsName hsName 
+        f r hsName@Qual {}
+            | Just _ <- fromTupname hsName, Module "Prelude" <- mod
+                = let nn = hsName in (nn,nn):r
+            | otherwise = error $ "strong bad: " ++ fromHsName hsName
hunk ./FrontEnd/Rename.hs 161
-        z ns = mapM mult (filter (\x -> length x > 1) $ groupBy (\a b -> fst a == fst b) (sort ns)) 
-        mult xs@((n,sl):_) = warn sl "multiply-defined" (fromHsName n ++ " is defined multiple times: " ++ show xs ) 
+        z ns = mapM mult (filter (\x -> length x > 1) $ groupBy (\a b -> fst a == fst b) (sort ns))
+        mult xs@((n,sl):_) = warn sl "multiply-defined" (fromHsName n ++ " is defined multiple times: " ++ show xs )
hunk ./FrontEnd/Rename.hs 164
-    modify (\s -> s { globalSubTable = nm `plusFM` globalSubTable s }) 
-    modify (\s -> s { typeSubTable = tm `plusFM` typeSubTable s }) 
+    modify (\s -> s { globalSubTable = nm `plusFM` globalSubTable s })
+    modify (\s -> s { typeSubTable = tm `plusFM` typeSubTable s })
hunk ./FrontEnd/Rename.hs 167
- 
+
hunk ./FrontEnd/Rename.hs 181
--}    
+-}
hunk ./FrontEnd/Rename.hs 197
-    startState = ScopeState { 
+    startState = ScopeState {
hunk ./FrontEnd/Rename.hs 209
-    (renamedMod, finalState) = runScopeSM startState (renameDecls m initialGlobalSubTable) 
+    (renamedMod, finalState) = runScopeSM startState (renameDecls m initialGlobalSubTable)
hunk ./FrontEnd/Rename.hs 219
-renameTidyModule syns importedNames impTypeNames tidyMod 
+renameTidyModule syns importedNames impTypeNames tidyMod
hunk ./FrontEnd/Rename.hs 227
-    startState = ScopeState { 
+    startState = ScopeState {
hunk ./FrontEnd/Rename.hs 235
-        currentModule  = hsModuleName tidyMod 
+        currentModule  = hsModuleName tidyMod
hunk ./FrontEnd/Rename.hs 238
-    z@(renamedTidyMod, finalState) = runScopeSM startState (renameDecls tidyMod initialGlobalSubTable) 
+    z@(renamedTidyMod, finalState) = runScopeSM startState (renameDecls tidyMod initialGlobalSubTable)
hunk ./FrontEnd/Rename.hs 253
-        let subTable' = subTable `plusFM` subTable'a 
+        let subTable' = subTable `plusFM` subTable'a
hunk ./FrontEnd/Rename.hs 256
-        --addDiag (show syns) 
+        --addDiag (show syns)
hunk ./FrontEnd/Rename.hs 259
-        --addDiag (show (sta, stb)) 
+        --addDiag (show (sta, stb))
hunk ./FrontEnd/Rename.hs 261
-     
+
hunk ./FrontEnd/Rename.hs 271
-renameHsDecls decls subtable = do 
+renameHsDecls decls subtable = do
hunk ./FrontEnd/Rename.hs 291
-      
+
hunk ./FrontEnd/Rename.hs 361
-    typeSigSubTable <- updateSubTableWithHsQualType startingSubTable hsQualType 
+    typeSigSubTable <- updateSubTableWithHsQualType startingSubTable hsQualType
hunk ./FrontEnd/Rename.hs 378
-    modName <- getCurrentModule 
+    modName <- getCurrentModule
hunk ./FrontEnd/Rename.hs 418
-    return (HsConDecl srcLoc hsName' hsBangTypes') 
+    return (HsConDecl srcLoc hsName' hsBangTypes')
hunk ./FrontEnd/Rename.hs 436
-renameHsType t st = do 
+renameHsType t st = do
hunk ./FrontEnd/Rename.hs 457
-    rt v@(HsTyVar _) _   = return v 
+    rt v@(HsTyVar _) _   = return v
hunk ./FrontEnd/Rename.hs 459
-        hsName' <- renameTypeHsName hsName subTable 
+        hsName' <- renameTypeHsName hsName subTable
hunk ./FrontEnd/Rename.hs 494
-renameHsPat :: HsPat -> SubTable -> ScopeSM (HsPat) 
+renameHsPat :: HsPat -> SubTable -> ScopeSM (HsPat)
hunk ./FrontEnd/Rename.hs 543
-buildRecPat :: FieldMap -> HsName -> [HsPatField] -> ScopeSM HsPat 
+buildRecPat :: FieldMap -> HsName -> [HsPatField] -> ScopeSM HsPat
hunk ./FrontEnd/Rename.hs 545
-    Nothing -> failRename $ "Unknown Constructor: " ++ show n 
+    Nothing -> failRename $ "Unknown Constructor: " ++ show n
hunk ./FrontEnd/Rename.hs 557
-        rs <- mapM g [0 .. t - 1 ] 
+        rs <- mapM g [0 .. t - 1 ]
hunk ./FrontEnd/Rename.hs 639
---    return (HsAsPat hsName'' $ HsCon hsName') 
+--    return (HsAsPat hsName'' $ HsCon hsName')
hunk ./FrontEnd/Rename.hs 714
-    fls <- gets fieldLabels 
+    fls <- gets fieldLabels
hunk ./FrontEnd/Rename.hs 719
-    fls <- gets fieldLabels 
+    fls <- gets fieldLabels
hunk ./FrontEnd/Rename.hs 753
-    return (HsListComp hsExp' hsStmts')     
+    return (HsListComp hsExp' hsStmts')
hunk ./FrontEnd/Rename.hs 763
-renameHsExp (HsWildCard sl) _ = do 
+renameHsExp (HsWildCard sl) _ = do
hunk ./FrontEnd/Rename.hs 782
-    
+
hunk ./FrontEnd/Rename.hs 788
-        Nothing -> failRename $ "Unknown Constructor: " ++ show n 
-        Just t -> do 
+        Nothing -> failRename $ "Unknown Constructor: " ++ show n
+        Just t -> do
hunk ./FrontEnd/Rename.hs 796
-            let rs = map g [0 .. t - 1 ] 
+            let rs = map g [0 .. t - 1 ]
hunk ./FrontEnd/Rename.hs 800
-            return $ foldl HsApp con rs 
-    
+            return $ foldl HsApp con rs
+
hunk ./FrontEnd/Rename.hs 807
-                Just cs -> return [ (x,(y,hsParen e)) | (x,y) <- cs ] 
+                Just cs -> return [ (x,(y,hsParen e)) | (x,y) <- cs ]
hunk ./FrontEnd/Rename.hs 811
-                Nothing -> failRename $ "Unknown Constructor: " ++ show n 
+                Nothing -> failRename $ "Unknown Constructor: " ++ show n
hunk ./FrontEnd/Rename.hs 822
-        return $ HsCase n (as ++ [HsAlt sl (HsPVar v) (HsUnGuardedAlt pe) []]) 
+        return $ HsCase n (as ++ [HsAlt sl (HsPVar v) (HsUnGuardedAlt pe) []])
hunk ./FrontEnd/Rename.hs 825
---        Nothing -> failRename $ "Unknown Constructor: " ++ show n 
---        Just t -> do 
+--        Nothing -> failRename $ "Unknown Constructor: " ++ show n
+--        Just t -> do
hunk ./FrontEnd/Rename.hs 912
-renameHsNames = mapRename renameHsName 
+renameHsNames = mapRename renameHsName
hunk ./FrontEnd/Rename.hs 915
--- Regardless of whether the name is found, if it's not qualified 
--- it will be qualified with the current module's prefix. 
+-- Regardless of whether the name is found, if it's not qualified
+-- it will be qualified with the current module's prefix.
hunk ./FrontEnd/Rename.hs 918
-renameHsName hsName subTable 
+renameHsName hsName subTable
hunk ./FrontEnd/Rename.hs 925
-        | otherwise -> do 
+        | otherwise -> do
hunk ./FrontEnd/Rename.hs 937
---renameTypeHsName hsName subTable  = case hsIdentString (hsNameIdent hsName) of 
+--renameTypeHsName hsName subTable  = case hsIdentString (hsNameIdent hsName) of
hunk ./FrontEnd/Rename.hs 942
-    
+
hunk ./FrontEnd/Rename.hs 944
-renameTypeHsName hsName subTable  =  gets typeSubTable  >>= \t -> case lookupFM t hsName of 
+renameTypeHsName hsName subTable  =  gets typeSubTable  >>= \t -> case lookupFM t hsName of
hunk ./FrontEnd/Rename.hs 958
--- renamed name to its source location and binding type 
+-- renamed name to its source location and binding type
hunk ./FrontEnd/Rename.hs 986
-      subTable'  <- clobberHsName  hsName  subTable 
+      subTable'  <- clobberHsName  hsName  subTable
hunk ./FrontEnd/Rename.hs 995
-      unique     <- getUnique       
+      unique     <- getUnique
hunk ./FrontEnd/Rename.hs 1010
--- renames a haskell name with its unique number 
+-- renames a haskell name with its unique number
hunk ./FrontEnd/Rename.hs 1022
-                      Qual mod i -> Qual mod $ unrenameIdent i 
+                      Qual mod i -> Qual mod $ unrenameIdent i
hunk ./FrontEnd/Rename.hs 1028
-isRenamed (UnQual i)    = isIdentRenamed i 
-isRenamed (Qual _mod i) = isIdentRenamed i 
+isRenamed (UnQual i)    = isIdentRenamed i
+isRenamed (Qual _mod i) = isIdentRenamed i
hunk ./FrontEnd/Rename.hs 1110
-      subTable'' <- updateSubTableWithClasses subTable' hsDecls 
+      subTable'' <- updateSubTableWithClasses subTable' hsDecls
hunk ./FrontEnd/Rename.hs 1118
-  = error $ "non simple pattern binding found (sloc): " ++ show sloc 
+  = error $ "non simple pattern binding found (sloc): " ++ show sloc
hunk ./FrontEnd/Rename.hs 1120
-getHsNamesAndASrcLocsFromHsDecl (HsFunBind hsMatches) = getHsNamesAndASrcLocsFromHsMatches hsMatches     
+getHsNamesAndASrcLocsFromHsDecl (HsFunBind hsMatches) = getHsNamesAndASrcLocsFromHsMatches hsMatches
hunk ./FrontEnd/Rename.hs 1133
--- | Collect all names defined in a module as well as their declaration points and 
--- any subnames they might have. 
+-- | Collect all names defined in a module as well as their declaration points and
+-- any subnames they might have.
hunk ./FrontEnd/Rename.hs 1138
-    --g (b,n,sl,ns) = (b,mod n, sl, map mod ns) 
+    --g (b,n,sl,ns) = (b,mod n, sl, map mod ns)
hunk ./FrontEnd/Rename.hs 1149
-    f (HsDataDecl sl _ n _ cs _) = do tellF $ (toName TypeConstructor n,sl,snub [ x |(x,_,_) <- cs']): cs' ; zup cs where 
+    f (HsDataDecl sl _ n _ cs _) = do tellF $ (toName TypeConstructor n,sl,snub [ x |(x,_,_) <- cs']): cs' ; zup cs where
hunk ./FrontEnd/Rename.hs 1151
-    f (HsNewTypeDecl sl _ n _ c _) = do tellF $ (toName TypeConstructor n,sl,snub [ x |(x,_,_) <- cs']): cs' ; zup [c] where 
+    f (HsNewTypeDecl sl _ n _ c _) = do tellF $ (toName TypeConstructor n,sl,snub [ x |(x,_,_) <- cs']): cs' ; zup [c] where
hunk ./FrontEnd/Rename.hs 1154
-        Just z = maybeGetDeclName cd    
+        Just z = maybeGetDeclName cd
hunk ./FrontEnd/Rename.hs 1161
-    dc = (toName DataConstructor $ hsConDeclName c,sl,fls') 
+    dc = (toName DataConstructor $ hsConDeclName c,sl,fls')
hunk ./FrontEnd/Rename.hs 1165
-    fls = case c of 
-        HsRecDecl { hsConDeclRecArg = ra } -> concatMap fst ra -- (map (rtup (hsConDeclSrcLoc c). toName FieldLabel) . fst) ra 
+    fls = case c of
+        HsRecDecl { hsConDeclRecArg = ra } -> concatMap fst ra -- (map (rtup (hsConDeclSrcLoc c). toName FieldLabel) . fst) ra
hunk ./FrontEnd/Rename.hs 1169
-namesHsDeclTS' toName (HsTypeSig sl ns _) = ((map (rtup sl . toName Val) ns),[])  
+namesHsDeclTS' toName (HsTypeSig sl ns _) = ((map (rtup sl . toName Val) ns),[])
hunk ./FrontEnd/Rename.hs 1175
-    g (b,n,sl,ns) = (b,mod n, sl, map mod ns) 
+    g (b,n,sl,ns) = (b,mod n, sl, map mod ns)
hunk ./FrontEnd/Rename.hs 1182
-    f (HsDataDecl sl _ n _ cs _) = tell $ (True,n,sl,fsts cs'):[ (False,n,sl,[]) | (n,sl) <- cs'] where 
+    f (HsDataDecl sl _ n _ cs _) = tell $ (True,n,sl,fsts cs'):[ (False,n,sl,[]) | (n,sl) <- cs'] where
hunk ./FrontEnd/Rename.hs 1184
-    f (HsNewTypeDecl sl _ n _ c _) =  tell $ (True,n,sl,fsts cs'):[ (False,n,sl,[]) | (n,sl) <- cs'] where 
+    f (HsNewTypeDecl sl _ n _ c _) =  tell $ (True,n,sl,fsts cs'):[ (False,n,sl,[]) | (n,sl) <- cs'] where
hunk ./FrontEnd/Rename.hs 1187
-        Just z = maybeGetDeclName cd    
+        Just z = maybeGetDeclName cd
hunk ./FrontEnd/Rename.hs 1192
-namesHsModule :: 
+namesHsModule ::
hunk ./FrontEnd/Rename.hs 1209
-namesHsDeclTS (HsTypeSig sl ns _) = ((map (rtup sl) ns),[])  
+namesHsDeclTS (HsTypeSig sl ns _) = ((map (rtup sl) ns),[])
hunk ./FrontEnd/Rename.hs 1212
-namesHsConDecl c = (hsConDeclName c,hsConDeclSrcLoc c) : case c of 
-    -- HsRecDecl { hsConDeclRecArg = ra } -> concatMap (map (rtup (hsConDeclSrcLoc c)) . fst) ra 
+namesHsConDecl c = (hsConDeclName c,hsConDeclSrcLoc c) : case c of
+    -- HsRecDecl { hsConDeclRecArg = ra } -> concatMap (map (rtup (hsConDeclSrcLoc c)) . fst) ra
hunk ./FrontEnd/Rename.hs 1382
-                HsAssocNone 
+                HsAssocNone
hunk ./FrontEnd/Rename.hs 1384
-                HsAssocLeft 
+                HsAssocLeft
hunk ./FrontEnd/Rename.hs 1386
-                HsAssocRight 
+                HsAssocRight
hunk ./FrontEnd/Rename.hs 1497
-            HsVar  name -> HsVar (replaceName f name) 
+            HsVar  name -> HsVar (replaceName f name)
hunk ./FrontEnd/Rename.hs 1499
-                HsCon  # name 
+                HsCon  # name
hunk ./FrontEnd/Rename.hs 1576
-                HsPWildCard 
+                HsPWildCard
hunk ./FrontEnd/Rename.hs 1641
-instance Renameable HsName where 
+instance Renameable HsName where
hunk ./FrontEnd/Rename.hs 1651
-type IdentTable = FiniteMap HsName (SrcLoc, Binding) 
+type IdentTable = FiniteMap HsName (SrcLoc, Binding)
hunk ./FrontEnd/Rename.hs 1657
-   = putStr $ unlines $ map showIdentTabEntry $ toListFM idt 
+   = putStr $ unlines $ map showIdentTabEntry $ toListFM idt
hunk ./FrontEnd/Rename.hs 1660
-   showIdentTabEntry (name, (SrcLoc fn row col, bind)) 
-      = lJustify 40 (fromHsName name) ++ 
-        fn ++ ":" ++ showPos (row, col) ++ 
+   showIdentTabEntry (name, (SrcLoc fn row col, bind))
+      = lJustify 40 (fromHsName name) ++
+        fn ++ ":" ++ showPos (row, col) ++
hunk ./FrontEnd/Rename.hs 1665
-      | row < 0 || col < 0 = rJustify 10 "none" 
-      | otherwise          = rJustify 10 $ show pos 
+      | row < 0 || col < 0 = rJustify 10 "none"
+      | otherwise          = rJustify 10 $ show pos
hunk ./FrontEnd/Rename.hs 1672
-   = case lookupFM idtab i of 
+   = case lookupFM idtab i of