diff options
| author | David Terei <davidterei@gmail.com> | 2011-04-25 12:44:46 -0700 |
|---|---|---|
| committer | David Terei <davidterei@gmail.com> | 2011-04-26 14:17:15 -0700 |
| commit | a4c419be8ab6b7dd898aed7fa690eb785ec8ffa1 (patch) | |
| tree | 5d43b27b5171e5b842e3e082d58b0f0e62950097 | |
| parent | db259c798d8f9887b2feac6493628e53f37e0259 (diff) | |
| download | haskell-a4c419be8ab6b7dd898aed7fa690eb785ec8ffa1.tar.gz | |
Fix warnings in HsImpExp.lhs
| -rw-r--r-- | compiler/hsSyn/HsImpExp.lhs | 11 |
1 files changed, 3 insertions, 8 deletions
diff --git a/compiler/hsSyn/HsImpExp.lhs b/compiler/hsSyn/HsImpExp.lhs index dd24aedb2b..501599993c 100644 --- a/compiler/hsSyn/HsImpExp.lhs +++ b/compiler/hsSyn/HsImpExp.lhs @@ -6,12 +6,6 @@ HsImpExp: Abstract syntax: imports, exports, interfaces \begin{code} -{-# OPTIONS -fno-warn-incomplete-patterns #-} --- The above warning supression flag is a temporary kludge. --- While working on this module you are encouraged to remove it and fix --- any warnings in the module. See --- http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#Warnings --- for details {-# LANGUAGE DeriveDataTypeable #-} module HsImpExp where @@ -103,6 +97,7 @@ ieName (IEVar n) = n ieName (IEThingAbs n) = n ieName (IEThingWith n _) = n ieName (IEThingAll n) = n +ieName _ = panic "ieName failed pattern match!" ieNames :: IE a -> [a] ieNames (IEVar n ) = [n] @@ -122,8 +117,8 @@ instance (Outputable name) => Outputable (IE name) where ppr (IEThingAll thing) = hcat [ppr thing, text "(..)"] ppr (IEThingWith thing withs) = ppr thing <> parens (fsep (punctuate comma (map pprHsVar withs))) - ppr (IEModuleContents mod) - = ptext (sLit "module") <+> ppr mod + ppr (IEModuleContents mod') + = ptext (sLit "module") <+> ppr mod' ppr (IEGroup n _) = text ("<IEGroup: " ++ (show n) ++ ">") ppr (IEDoc doc) = ppr doc ppr (IEDocNamed string) = text ("<IEDocNamed: " ++ string ++ ">") |