From e033e8f63278742bc02b87469544b685d0b314fa Mon Sep 17 00:00:00 2001 From: Ian Lynagh Date: Sat, 3 May 2008 20:13:43 +0000 Subject: [PATCH] Make RnHsDoc warning-free --- compiler/rename/RnHsDoc.hs | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/compiler/rename/RnHsDoc.hs b/compiler/rename/RnHsDoc.hs index a1e05c9..c556d2c 100644 --- a/compiler/rename/RnHsDoc.hs +++ b/compiler/rename/RnHsDoc.hs @@ -1,9 +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 RnHsDoc ( rnHaddock, rnHsDoc, rnLHsDoc, rnMbLHsDoc ) where @@ -37,16 +31,19 @@ rnMbHsDoc mb_doc = case mb_doc of return (Just doc') Nothing -> return Nothing +rnMbLHsDoc :: Maybe (LHsDoc RdrName) -> RnM (Maybe (LHsDoc Name)) rnMbLHsDoc mb_doc = case mb_doc of Just doc -> do doc' <- rnLHsDoc doc return (Just doc') Nothing -> return Nothing +rnLHsDoc :: LHsDoc RdrName -> RnM (LHsDoc Name) rnLHsDoc (L pos doc) = do doc' <- rnHsDoc doc return (L pos doc') +ids2string :: [RdrName] -> String ids2string [] = [] ids2string (x:_) = show $ ppr x defaultUserStyle -- 1.7.10.4