Use FractionalLit more extensively to improve other pretty printers

[ghc-hetmet.git] / compiler / typecheck / Inst.lhs

diff --git a/compiler/typecheck/Inst.lhs b/compiler/typecheck/Inst.lhs
index 8db1aeb..5474cfa 100644 (file)
--- a/compiler/typecheck/Inst.lhs
+++ b/compiler/typecheck/Inst.lhs
@@ -56,7 +56,6 @@ import PrelNames
 import SrcLoc
 import DynFlags
 import Bag
-import BasicTypes
 import Maybes
 import Util
 import Outputable
@@ -277,7 +276,7 @@ mkOverLit (HsIntegral i)
 
 mkOverLit (HsFractional r)
   = do { rat_ty <- tcMetaTy rationalTyConName
-       ; return (HsRat (fl_value r) rat_ty) }
+       ; return (HsRat r rat_ty) }
 
 mkOverLit (HsIsString s) = return (HsString s)
 \end{code}