[code cleanups
John Meacham <john@repetae.net>**20061122042802] hunk ./Binary.hs 21
-   isEOFBin,
-
hunk ./Binary.hs 35
-   -- GHC only:
-   ByteArray(..),
-   getByteArray,
-   putByteArray
-
-   --getBinFileWithDict,	-- :: Binary a => FilePath -> IO a
-   --putBinFileWithDict,	-- :: Binary a => FilePath -> ModuleName -> a -> IO ()
hunk ./E/E.hs 263
-
-sortLetDecls ds = sortBy f ds where
-    f (TVr { tvrIdent = i },_) (TVr { tvrIdent = j } ,_) = compare (maybe (show i) show $ fromId i) (maybe (show j) show $ fromId j)
hunk ./E/Inline.hs 5
-    forceSuperInline,
hunk ./E/Rules.hs 15
-    mapABodies,
hunk ./E/Values.hs 154
-vTag n = ELit $ litCons { litName = n, litArgs = [], litType = tTag }
hunk ./E/Values.hs 158
-prim_toTag e = f e where
-    f (ELit LitCons { litName = n }) = vTag n
-    f (ELit (LitInt {})) = error "toTag applied to integer"
-    f (ELetRec ds e) = ELetRec ds (prim_toTag e)
-    f (EError err _) = EError err tTag
-    f ec@ECase {} = nx where
-        Identity nx = caseBodiesMapM (return . prim_toTag) ec
-    f e = EPrim p_toTag [e] tTag
-
--- prim_fromTag e t = EPrim (primPrim "fromTag") [e] t
hunk ./FrontEnd/DependAnalysis.hs 20
-module DependAnalysis (getBindGroups, showBindGroups, debugBindGroups) where
+module DependAnalysis (getBindGroups,  debugBindGroups) where
hunk ./FrontEnd/Desugar.hs 37
-module FrontEnd.Desugar ( doToExp, desugarHsModule, desugarHsStmt, desugarHsExp) where
+module FrontEnd.Desugar ( doToExp, desugarHsModule, desugarHsStmt) where
hunk ./FrontEnd/Diagnostic.hs 17
-       Diagnostic(..), dumpDiagnostic, withASrcLoc,
+       Diagnostic(..), dumpDiagnostic,
hunk ./FrontEnd/HsPretty.hs 10
-module HsPretty (PPLayout(..),PPHsMode(..),defaultMode,
-		render, renderWithMode,
-		ppHsModule,ppHsModuleHeader,
+module HsPretty (PPLayout(..),PPHsMode(..),
+		render,
+		ppHsModule,
hunk ./FrontEnd/HsPretty.hs 15
-		ppHsQualType, ppHsType,
hunk ./FrontEnd/HsPretty.hs 16
-                ppMatch,
hunk ./FrontEnd/HsPretty.hs 20
-                ppHsGuardedRhs,
-                ppHsName,
-		ppHsQName) where
+                ppHsGuardedRhs
+		) where
hunk ./FrontEnd/KindInfer.hs 15
-    hoistType,
hunk ./FrontEnd/ParseUtils.hs 21
-	, checkAssertion	-- HsType -> P HsAsst
hunk ./FrontEnd/ParseUtils.hs 22
-	, checkClassHeader	-- HsQualType -> P (HsContext,HsName,[HsName])
-	, checkInstHeader	-- HsQualType -> P (HsContext,HsQName,[HsType])
hunk ./FrontEnd/ParseUtils.hs 26
-	, checkClassBody	-- [HsDecl] -> P [HsDecl]
hunk ./FrontEnd/ParseUtils.hs 27
-	, checkRevDecls		-- [HsDecl] -> P [HsDecl]
hunk ./FrontEnd/ParseUtils.hs 31
-        , parseImport
hunk ./FrontEnd/Utils.hs 51
-rJustify :: Int -> String -> String
-rJustify n s = replicate (n - length s) ' ' ++ s
-
-lJustify :: Int -> String -> String
-lJustify n s = take n $ s ++ repeat ' '
hunk ./Stats.hs 17
-    singleton,
-    singletons,
+    Stats.singleton,
hunk ./Stats.hs 164
-singletons n atom = Stat (Map.singleton (toAtom atom) n)
-singleton atom = singletons 1 atom
hunk ./Stats.hs 233
+singleton n = Stat $ Map.singleton (toAtom n) 1
hunk ./utils/check_exports.prl 33
+        next if /\'/;