diff options
Diffstat (limited to 'compiler/utils/Pretty.hs')
| -rw-r--r-- | compiler/utils/Pretty.hs | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/compiler/utils/Pretty.hs b/compiler/utils/Pretty.hs index d07bd3d433..29a7b84168 100644 --- a/compiler/utils/Pretty.hs +++ b/compiler/utils/Pretty.hs @@ -205,7 +205,6 @@ module Pretty ( import BufWrite import FastString import Panic -import Numeric (fromRat) import System.IO import Prelude hiding (error) @@ -499,8 +498,7 @@ int n = text (show n) integer n = text (show n) float n = text (show n) double n = text (show n) -rational n = text (show (fromRat n :: Double)) ---rational n = text (show (fromRationalX n)) -- _showRational 30 n) +rational n = text (show n) parens :: Doc -> Doc -- ^ Wrap document in @(...)@ brackets :: Doc -> Doc -- ^ Wrap document in @[...]@ |