[reduce warnings
John Meacham <john@repetae.net>**20090220211322
 Ignore-this: 7f6e7e80a560fdcc2e461e4f9d4aac50
] hunk ./E/Show.hs 7
-import StringTable.Atom
hunk ./E/Show.hs 230
+        f _ = error "undefined value in E.Show"
hunk ./E/Show.hs 245
-        dot = bop (R,-1) $ retOp (char '.')
hunk ./FrontEnd/Desugar.hs 47
-import Options
hunk ./FrontEnd/Desugar.hs 48
-import qualified FlagOpts as FO
hunk ./FrontEnd/Desugar.hs 134
-desugarHsExp :: Monad m => HsExp -> m HsExp
-desugarHsExp s = return $ fst $ runPatSM (0::Int, undefined) $ desugarExp s
+--desugarHsExp :: Monad m => HsExp -> m HsExp
+--desugarHsExp s = return $ fst $ runPatSM (0::Int, undefined) $ desugarExp s
hunk ./FrontEnd/Desugar.hs 399
-f_filter = nameName $ toUnqualified v_filter
+--f_filter = nameName $ toUnqualified v_filter
hunk ./FrontEnd/HsPretty.hs 334
+ppHsDecl _ = error "ppHsDecl: unknown construct"
+
hunk ./FrontEnd/HsPretty.hs 554
-ppHsPat	(HsPIrrPat (Located _ pat)) = char '~' <> ppHsPat pat
+ppHsPat	~(HsPIrrPat (Located _ pat)) = char '~' <> ppHsPat pat
hunk ./FrontEnd/Syn/Traverse.hs 28
-    f (HsAsPat n e) = do
-        e' <- fn e
-        return $ HsAsPat n e'
hunk ./FrontEnd/Syn/Traverse.hs 105
+    f _ = error "FrontEnd.Syn.Traverse.traverseHsExp f unrecognized construct"
hunk ./FrontEnd/TypeSynonyms.hs 10
-import Control.Monad.Identity
hunk ./Grin/Lint.hs 183
+    f _ = error "Grin.Lint: unknown value passed to f"
hunk ./Grin/NodeAnalyze.hs 11
-import Control.Monad.Identity(runIdentity)
hunk ./Grin/NodeAnalyze.hs 32
-    | LazyWHNF   -- ^ WHNF or an indirection to a WHNF
+--    | LazyWHNF   -- ^ WHNF or an indirection to a WHNF
hunk ./Grin/NodeAnalyze.hs 276
-bottom = N WHNF (Only (Set.empty))
+--bottom = N WHNF (Only (Set.empty))
hunk ./Info/Binary.hs 5
-import Data.Word
hunk ./Main.hs 11
-import List(group,union)
+import qualified List(group,union)
hunk ./Main.hs 15
-import StringTable.Atom
hunk ./Util/ContextMonad.hs 4
-import Control.Monad.Identity
hunk ./Util/Inst.hs 10
-import Data.Foldable  hiding(or)
hunk ./Util/Seq.hs 34
-import Data.Monoid()
-import Control.Monad.Writer as W
+import Data.Monoid
+import Control.Monad
hunk ./Util/Seq.hs 96
-tell x = W.tell (Util.Seq.singleton x)
-tells xs = W.tell (Util.Seq.fromList xs)
+--tell x = W.tell (Util.Seq.singleton x)
+--tells xs = W.tell (Util.Seq.fromList xs)
hunk ./Util/Seq.hs 99
---instance Monoid (Seq.Seq a) where
---    mempty = Seq.empty
---    mappend = (Seq.<>)