[remove some compiler warnings
John Meacham <john@repetae.net>**20070531112120] hunk ./E/LetFloat.hs 28
-import qualified Info.Info as Info
hunk ./E/LetFloat.hs 37
+import qualified Info.Info as Info
hunk ./FrontEnd/Class.hs 23
-import Data.List((\\),partition,nub)
+import Data.List(nub)
hunk ./FrontEnd/Class.hs 41
-import Name.VConsts
-import Options
hunk ./FrontEnd/Class.hs 47
-import Util.SetLike
-import qualified FlagOpts as FO
hunk ./FrontEnd/Class.hs 312
-getHsTypeCons (HsTyCon n) = n
-getHsTypeCons (HsTyApp a _) = getHsTypeCons a
-getHsTypeCons (HsTyFun {}) = nameName (tc_Arrow)
-getHsTypeCons (HsTyTuple xs) = toTuple (length xs)
-getHsTypeCons x = error $ "getHsTypeCons: " ++ show x
-
hunk ./FrontEnd/HsPretty.hs 31
-import Name.VConsts
hunk ./FrontEnd/HsPretty.hs 133
-rational :: Rational -> Doc
-rational = return . P.rational
hunk ./FrontEnd/HsPretty.hs 136
-parens, brackets, braces,quotes,doubleQuotes :: Doc -> Doc
+parens, brackets, braces :: Doc -> Doc
hunk ./FrontEnd/HsPretty.hs 142
-quotes d = d >>= return . P.quotes
-doubleQuotes d = d >>= return . P.doubleQuotes
hunk ./FrontEnd/HsPretty.hs 145
-semi,comma,colon,space,equals :: Doc
+semi,comma,equals :: Doc
hunk ./FrontEnd/HsPretty.hs 148
-colon = return P.colon
-space = return P.space
hunk ./FrontEnd/HsPretty.hs 150
-lparen,rparen,lbrack,rbrack,lbrace,rbrace :: Doc
-lparen = return  P.lparen
-rparen = return  P.rparen
-lbrack = return  P.lbrack
-rbrack = return  P.rbrack
-lbrace = return  P.lbrace
-rbrace = return  P.rbrace
hunk ./FrontEnd/HsPretty.hs 161
-($$),($+$) :: Doc -> Doc -> Doc
+($$) :: Doc -> Doc -> Doc
hunk ./FrontEnd/HsPretty.hs 163
-aM $+$ bM = do{a<-aM;b<-bM;return (a P.$+$ b)}
hunk ./FrontEnd/HsPretty.hs 165
-sep,cat,fsep,fcat :: [Doc] -> Doc
-sep dl = sequence dl >>= return . P.sep
-cat dl = sequence dl >>= return . P.cat
+fsep :: [Doc] -> Doc
hunk ./FrontEnd/HsPretty.hs 167
-fcat dl = sequence dl >>= return . P.fcat
hunk ./FrontEnd/HsPretty.hs 168
--- Some More
-
-hang :: Doc -> Int -> Doc -> Doc
-hang dM i rM = do{d<-dM;r<-rM;return $ P.hang d i r}
hunk ./FrontEnd/HsPretty.hs 186
-fullRenderWithMode :: PPHsMode -> P.Mode -> Int -> Float ->
-		      (P.TextDetails -> a -> a) -> a -> Doc -> a
-fullRenderWithMode ppMode m i f fn e mD =
-		   P.fullRender m i f fn e $ (unDocM mD) ppMode
-
-
-fullRender :: P.Mode -> Int -> Float -> (P.TextDetails -> a -> a)
-	      -> a -> Doc -> a
-fullRender = fullRenderWithMode defaultMode
hunk ./FrontEnd/HsPretty.hs 631
-blankline :: Doc -> Doc
-blankline dl = do{e<-getPPEnv;if spacing e && layout e /= PPNoLayout
-			      then space $$ dl else dl}
hunk ./FrontEnd/Utils.hs 12
-import Name.Names
-import Name.VConsts
hunk ./Grin/FromE.hs 4
-import Control.Monad
hunk ./Grin/FromE.hs 8
-import Data.Map(Map)
hunk ./Grin/FromE.hs 9
-import Data.Typeable
hunk ./Grin/FromE.hs 11
-import qualified Data.Map as Map
hunk ./Grin/FromE.hs 12
+import qualified Data.Map as Map
hunk ./Grin/FromE.hs 15
-import PackedString
hunk ./Grin/FromE.hs 37
-import Name.VConsts
hunk ./Grin/FromE.hs 38
-import qualified C.Op as Op
-import PrimitiveOperators
+import PackedString
hunk ./Grin/FromE.hs 48
+import qualified C.Op as Op