diff options
Diffstat (limited to 'compiler/rename/RnHsDoc.hs')
| -rw-r--r-- | compiler/rename/RnHsDoc.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/compiler/rename/RnHsDoc.hs b/compiler/rename/RnHsDoc.hs index ac2589df4e..348f87fca5 100644 --- a/compiler/rename/RnHsDoc.hs +++ b/compiler/rename/RnHsDoc.hs @@ -1,3 +1,4 @@ +{-# LANGUAGE ViewPatterns #-} module RnHsDoc ( rnHsDoc, rnLHsDoc, rnMbLHsDoc ) where @@ -16,10 +17,9 @@ rnMbLHsDoc mb_doc = case mb_doc of Nothing -> return Nothing rnLHsDoc :: LHsDocString -> RnM LHsDocString -rnLHsDoc (L pos doc) = do +rnLHsDoc (dL->L pos doc) = do doc' <- rnHsDoc doc - return (L pos doc') + return (cL pos doc') rnHsDoc :: HsDocString -> RnM HsDocString rnHsDoc = pure - |