summaryrefslogtreecommitdiff
path: root/compiler/utils
diff options
context:
space:
mode:
Diffstat (limited to 'compiler/utils')
-rw-r--r--compiler/utils/Pretty.hs4
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 @[...]@