X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Frename%2FRnSource.lhs;h=70643317c1fcb7fb905df37a1d443535831872ac;hb=d759c7231dde979ed2824bd39b2fdff24357d355;hp=028970cfc13a76753fb7dc33d9523f7381147b4c;hpb=f84fa8a30ce2ac0c5aab424fce1234ef4169f445;p=ghc-hetmet.git diff --git a/compiler/rename/RnSource.lhs b/compiler/rename/RnSource.lhs index 028970c..7064331 100644 --- a/compiler/rename/RnSource.lhs +++ b/compiler/rename/RnSource.lhs @@ -4,6 +4,13 @@ \section[RnSource]{Main pass of renamer} \begin{code} +{-# OPTIONS_GHC -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/WorkingConventions#Warnings +-- for details + module RnSource ( rnSrcDecls, addTcgDUs, rnTyClDecls, @@ -770,7 +777,6 @@ rnConDeclDetails doc (RecCon fields) ; new_fields <- mappM (rnField doc) fields ; return (RecCon new_fields) } --- Document comments are renamed to Nothing here rnField doc (ConDeclField name ty haddock_doc) = lookupLocatedTopBndrRn name `thenM` \ new_name -> rnLHsType doc ty `thenM` \ new_ty ->