diff options
| -rw-r--r-- | libraries/template-haskell/Language/Haskell/TH/Quote.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libraries/template-haskell/Language/Haskell/TH/Quote.hs b/libraries/template-haskell/Language/Haskell/TH/Quote.hs index 80c6def7fb..2d98a92b40 100644 --- a/libraries/template-haskell/Language/Haskell/TH/Quote.hs +++ b/libraries/template-haskell/Language/Haskell/TH/Quote.hs @@ -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 |