diff options
author | Twan van Laarhoven <twanvl@gmail.com> | 2008-01-27 00:46:26 +0000 |
---|---|---|
committer | Twan van Laarhoven <twanvl@gmail.com> | 2008-01-27 00:46:26 +0000 |
commit | a989cdbed68b5c21ba1b372e635a76a63610ae69 (patch) | |
tree | 753c75bc34e6ab862b66abaf70437ce07f5047b6 | |
parent | afe447cbaf20755edc16dc777b46af3f8f99f1cd (diff) | |
download | haskell-a989cdbed68b5c21ba1b372e635a76a63610ae69.tar.gz |
Fixed warnings in hsSyn/HsSyn
-rw-r--r-- | compiler/hsSyn/HsSyn.lhs | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/compiler/hsSyn/HsSyn.lhs b/compiler/hsSyn/HsSyn.lhs index 43941695fe..66f663328a 100644 --- a/compiler/hsSyn/HsSyn.lhs +++ b/compiler/hsSyn/HsSyn.lhs @@ -9,13 +9,6 @@ which is declared in the various \tr{Hs*} modules. This module, therefore, is almost nothing but re-exporting. \begin{code} -{-# OPTIONS -w #-} --- 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 - module HsSyn ( module HsBinds, module HsDecls, @@ -127,9 +120,11 @@ instance (OutputableBndr name) pp_modname = ptext SLIT("module") <+> ppr name +pp_mb :: Outputable t => Maybe t -> SDoc pp_mb (Just x) = ppr x pp_mb Nothing = empty +pp_nonnull :: Outputable t => [t] -> SDoc pp_nonnull [] = empty pp_nonnull xs = vcat (map ppr xs) \end{code} |