[remove some warnings
John Meacham <john@repetae.net>**20070523072812] hunk ./DataConstructors.hs 96
-tipe' (TExists xs (_ :=> t)) = do
+tipe' ~(TExists xs (_ :=> t)) = do
hunk ./DataConstructors.hs 111
+kind _ = error "DataConstructors.kind"
hunk ./DataConstructors.hs 167
-origSlots = map SlotNormal
hunk ./DataConstructors.hs 293
-isAbsurd (ELit LitCons { litName = n, litArgs = [], litType = _ }) | n == tc_Absurd = True
-isAbsurd (ELit LitCons { litArgs = xs@(_:_) }) = all isAbsurd xs
-isAbsurd _ = False
hunk ./DataConstructors.hs 416
-            iv_te = setProperty prop_INSTANCE tvr { tvrIdent = toId $ instanceName (func_toEnum sFuncNames) (nameName $ conName c), tvrType = getType ib_te }
+            _iv_te = setProperty prop_INSTANCE tvr { tvrIdent = toId $ instanceName (func_toEnum sFuncNames) (nameName $ conName c), tvrType = getType ib_te }
hunk ./DataConstructors.hs 518
-            let (vs,ty) = case Map.lookup dataConsName cm of Just (TForAll vs (_ :=> ty)) -> (vs,ty); Just ty -> ([],ty)
+            let (vs,ty) = case Map.lookup dataConsName cm of Just (TForAll vs (_ :=> ty)) -> (vs,ty); ~(Just ty) -> ([],ty)
hunk ./DataConstructors.hs 541
+            f _ _ _ = error "DataConstructors.tslots"
hunk ./DataConstructors.hs 548
-        hsArgs = existentials ++ [ tvr {tvrIdent = x} | tvr <- origArgs | x <- drop (5 + length theTypeArgs) [2,4..] ]
+        --hsArgs = existentials ++ [ tvr {tvrIdent = x} | tvr <- origArgs | x <- drop (5 + length theTypeArgs) [2,4..] ]
hunk ./DataConstructors.hs 618
+                f _ _ _ _ = error "DataConstructors.deconstructuonExpression.f"
hunk ./E/Show.hs 7
-import Atom
hunk ./E/Show.hs 19
-import qualified Doc.Chars as UC
-import qualified FlagDump as FD
hunk ./E/Show.hs 23
+import qualified Doc.Chars as UC
+import qualified FlagDump as FD
hunk ./E/Show.hs 52
-newtype SEM a = SEM { unSEM :: VarNameT E Id String Identity a }
+newtype SEM a = SEM { _unSEM :: VarNameT E Id String Identity a }
hunk ./Ho/Binary.hs 8
-import Name.Binary
+import Name.Binary()
hunk ./Ho/Build.hs 12
+import Codec.Compression.GZip
hunk ./Ho/Build.hs 14
-import Data.IORef
+import Data.Binary
hunk ./Ho/Build.hs 16
+import Data.Tree
hunk ./Ho/Build.hs 21
-import Data.Tree
hunk ./Ho/Build.hs 25
+import qualified Data.ByteString.Lazy as L
hunk ./Ho/Build.hs 28
-import Data.Binary
-import qualified Data.ByteString.Lazy as L
-import Codec.Compression.GZip
hunk ./Ho/Build.hs 41
-import E.Subst(substMap'')
hunk ./Ho/Build.hs 53
-import Name.Id
hunk ./Ho/Build.hs 279
-hoLibraryDeps newHo oldHo = hoLibraries newHo `Map.isSubmapOf` hoLibraries oldHo
+--hoLibraryDeps newHo oldHo = hoLibraries newHo `Map.isSubmapOf` hoLibraries oldHo
hunk ./Ho/Type.hs 5
-import qualified Data.Set as Set
hunk ./Ho/Type.hs 7
-import Data.Binary
hunk ./Ho/Type.hs 22
-import PackedString(PackedString)