{-# LANGUAGE ViewPatterns #-}moduleRnHsDoc(rnHsDoc ,rnLHsDoc ,rnMbLHsDoc )whereimportGhcPreludeimportTcRnTypesimportHsSynimportSrcLocrnMbLHsDoc::MaybeLHsDocString->RnM(MaybeLHsDocString)rnMbLHsDoc mb_doc =casemb_doc ofJustdoc ->dodoc' <-rnLHsDoc doc return(Justdoc' )Nothing->returnNothingrnLHsDoc::LHsDocString->RnMLHsDocStringrnLHsDoc (dL->Lpos doc )=dodoc' <-rnHsDoc doc return(cLpos doc' )rnHsDoc::HsDocString->RnMHsDocStringrnHsDoc =pure