diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-06-11 23:36:43 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-06-11 23:36:43 +0100 |
| commit | 5c3a415b0dbe9465a27e609f9ad9ce90ab332dde (patch) | |
| tree | 1a705d315a3b95709b4886824b71dfc2050f11cb /compiler/utils/Outputable.lhs | |
| parent | b1a75d2fb5cdd053f3248c718d0d8b597a593e8c (diff) | |
| download | haskell-5c3a415b0dbe9465a27e609f9ad9ce90ab332dde.tar.gz | |
Pass DynFlags down to showSDocUnqual
Diffstat (limited to 'compiler/utils/Outputable.lhs')
| -rw-r--r-- | compiler/utils/Outputable.lhs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/utils/Outputable.lhs b/compiler/utils/Outputable.lhs index 6ca88cf467..364786e212 100644 --- a/compiler/utils/Outputable.lhs +++ b/compiler/utils/Outputable.lhs @@ -380,9 +380,9 @@ showSDocForUser :: DynFlags -> PrintUnqualified -> SDoc -> String showSDocForUser _ unqual doc = show (runSDoc doc (initSDocContext (mkUserStyle unqual AllTheWay))) -showSDocUnqual :: SDoc -> String +showSDocUnqual :: DynFlags -> SDoc -> String -- Only used in the gruesome isOperator -showSDocUnqual d +showSDocUnqual _ d = show (runSDoc d (initSDocContext (mkUserStyle neverQualify AllTheWay))) showsPrecSDoc :: Int -> SDoc -> ShowS |