- let unqual
- | Just modinfo <- mbModInfo,
- Just unqual <- GHC.modInfoPrintUnqualified modinfo = unqual
- | otherwise = GHC.alwaysQualify
-
+ unqual <-
+ case mbModInfo of
+ Just minf -> do
+ mb_print_unqual <- GHC.mkPrintUnqualifiedForModule session minf
+ return (fromMaybe GHC.alwaysQualify mb_print_unqual)
+ Nothing ->
+ return GHC.alwaysQualify