[get rid of a bunch of warnings
John Meacham <john@repetae.net>**20080210030912] hunk ./E/Annotate.hs 91
-        return $ caseUpdate ECase { eCaseScrutinee = e', eCaseType = t', eCaseDefault = d, eCaseBind = b', eCaseAlts = alts }
+        return $ caseUpdate ECase { eCaseAllFV = error "no eCaseAllFV needed",  eCaseScrutinee = e', eCaseType = t', eCaseDefault = d, eCaseBind = b', eCaseAlts = alts }
hunk ./E/SSimplify.hs 18
-import Debug.Trace
hunk ./E/SSimplify.hs 19
-import qualified Data.Map as Map
hunk ./E/SSimplify.hs 26
-import E.Annotate
hunk ./E/SSimplify.hs 56
-import qualified Util.Seq as Seq
hunk ./E/SSimplify.hs 291
-type InScope = IdMap Binding
-
hunk ./E/SSimplify.hs 534
-    g :: InE -> SM OutE
-    --g e | trace ("g: " ++ take 20 (show e)) False = undefined
-    g e = error $ "SSimplify.simplify.g: " ++ show e ++ "\n" ++ pprint e
hunk ./E/SSimplify.hs 582
-                done cont $ caseUpdate ECase { eCaseScrutinee = e, eCaseType = t', eCaseBind = b, eCaseAlts = as'', eCaseDefault = d''} -- XXX     -- we duplicate code so continue for next renaming pass before going further.
+                done cont $ caseUpdate ECase { 
+                    eCaseAllFV = error "eCaseAllFV",
+                    eCaseScrutinee = e, 
+                    eCaseType = t', 
+                    eCaseBind = b, 
+                    eCaseAlts = as'', 
+                    eCaseDefault = d''} -- XXX     -- we duplicate code so continue for next renaming pass before going further.
hunk ./E/SSimplify.hs 686
-                done StartContext $ caseUpdate ECase { eCaseScrutinee = e, eCaseType = t', eCaseBind =  b', eCaseAlts = as', eCaseDefault = d'}
+                done StartContext $ caseUpdate ECase { 
+                    eCaseAllFV = error "eCaseAllFV",
+                    eCaseScrutinee = e, 
+                    eCaseType = t', 
+                    eCaseBind =  b', 
+                    eCaseAlts = as', 
+                    eCaseDefault = d'}
hunk ./FrontEnd/HsErrors.hs 18
-import Name.VConsts
hunk ./FrontEnd/Rename.hs 83
-import GenUtil hiding(replicateM)
hunk ./FrontEnd/Rename.hs 87
-import Util.ContextMonad
hunk ./FrontEnd/Rename.hs 89
-import Util.UniqueMonad
hunk ./FrontEnd/Rename.hs 142
-getGlobalSubTable :: ScopeSM SubTable
-getGlobalSubTable = gets globalSubTable
hunk ./FrontEnd/Rename.hs 641
-func_fromInt = (HsVar $ V.func_fromInt uqFuncNames)
-func_fromInteger = (HsVar $ V.func_fromInteger uqFuncNames)
hunk ./FrontEnd/Rename.hs 817
-renameHsGuardedRhsList :: [HsGuardedRhs] -> SubTable -> ScopeSM [HsGuardedRhs]
-renameHsGuardedRhsList = mapRename renameHsGuardedRhs
hunk ./FrontEnd/Rename.hs 1043
--- takes a list of decls and examines only the class decls
--- to get the names of variables used in their type sigs
-
-updateSubTableWithClasses :: SubTable -> [HsDecl] -> ScopeSM (SubTable)
-updateSubTableWithClasses subTable []
-  = return subTable
-updateSubTableWithClasses subTable (hsDecl:hsDecls)
-  = do
-      let hsNames = getHsNamesFromClass hsDecl
-      subTable'  <- clobberHsNames hsNames subTable
-      subTable'' <- updateSubTableWithClasses subTable' hsDecls
-      return (subTable'')
hunk ./FrontEnd/Rename.hs 1144
-getNewHsNamesFromHsQualType :: SubTable -> HsQualType -> [HsName]
-getNewHsNamesFromHsQualType subTable (HsQualType _hsContext hsType)
-  = getNewHsNamesFromHsType subTable hsType
-
-getNewHsNamesFromHsType :: SubTable -> HsType -> [HsName]
-getNewHsNamesFromHsType subTable (HsTyFun hsType1 hsType2)
-  = (getNewHsNamesFromHsType subTable hsType1) ++ (getNewHsNamesFromHsType subTable hsType2)
-getNewHsNamesFromHsType subTable (HsTyTuple hsTypes)
-  = concat $ map (getNewHsNamesFromHsType subTable) hsTypes
-getNewHsNamesFromHsType subTable (HsTyApp hsType1 hsType2)
-  = (getNewHsNamesFromHsType subTable hsType1) ++ (getNewHsNamesFromHsType subTable hsType2)
-getNewHsNamesFromHsType subTable (HsTyVar hsName)
-  | Map.lookup hsName subTable == Nothing = [hsName]
-  | otherwise                           = []
-getNewHsNamesFromHsType _subTable (HsTyCon _hsName)
-  = [] -- don't rename the Constructors
hunk ./FrontEnd/Rename.hs 1156
--- gets the names of the functions declared in a class declaration
-
-getHsNamesFromClass :: HsDecl -> [HsName]
-getHsNamesFromClass (HsClassDecl _srcLoc _hsQualType hsDecls) = getHsNamesFromTypeSigs hsDecls
-getHsNamesFromClass _otherDecl = []
-
--- gets the names of the functions whose types are declared in class decls
hunk ./FrontEnd/Rename.hs 1157
-getHsNamesFromTypeSigs :: [HsDecl] -> [HsName]
-getHsNamesFromTypeSigs ((HsTypeSig _srcLoc hsNames _hsQualType):hsDecls) = hsNames ++ getHsNamesFromTypeSigs hsDecls
-getHsNamesFromTypeSigs (_otherDecl:hsDecls) = getHsNamesFromTypeSigs hsDecls
-getHsNamesFromTypeSigs [] = []