From c3a0d63e41d218108f2e2baa16f085399f1432f2 Mon Sep 17 00:00:00 2001 From: Twan van Laarhoven Date: Sun, 27 Jan 2008 00:43:59 +0000 Subject: [PATCH] Fixed warnings in hsSyn/HsDoc --- compiler/hsSyn/HsDoc.hs | 10 +++------- 1 file changed, 3 insertions(+), 7 deletions(-) diff --git a/compiler/hsSyn/HsDoc.hs b/compiler/hsSyn/HsDoc.hs index bd75408..dc7245d 100644 --- a/compiler/hsSyn/HsDoc.hs +++ b/compiler/hsSyn/HsDoc.hs @@ -1,10 +1,3 @@ -{-# 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 HsDoc ( HsDoc(..), LHsDoc, @@ -13,6 +6,8 @@ module HsDoc ( ppr_mbDoc ) where +-- XXX This define is a bit of a hack, and should be done more nicely +#define FAST_STRING_NOT_NEEDED 1 #include "HsVersions.h" import Outputable @@ -43,6 +38,7 @@ type LHsDoc a = Located (HsDoc a) instance Outputable (HsDoc a) where ppr _ = text "" +ppr_mbDoc :: Maybe (LHsDoc a) -> SDoc ppr_mbDoc (Just doc) = ppr doc ppr_mbDoc Nothing = empty -- 1.7.10.4