Remove unnecessary toRational
authorsimonpj@microsoft.com <unknown>
Tue, 16 Nov 2010 17:29:40 +0000 (17:29 +0000)
committersimonpj@microsoft.com <unknown>
Tue, 16 Nov 2010 17:29:40 +0000 (17:29 +0000)
libraries/template-haskell/Language/Haskell/TH/Quote.hs

index 80c6def..2d98a92 100644 (file)
@@ -30,7 +30,7 @@ dataToQa mkCon mkLit appCon antiQ t =
             IntConstr n ->
                 mkLit $ integerL n
             FloatConstr n ->
-                mkLit $ rationalL (toRational n)
+                mkLit $ rationalL n
             CharConstr c ->
                 mkLit $ charL c
         where