diff options
| author | simonpj@microsoft.com <unknown> | 2010-11-16 17:29:40 +0000 |
|---|---|---|
| committer | simonpj@microsoft.com <unknown> | 2010-11-16 17:29:40 +0000 |
| commit | 8f16f80b773157427c82a7833b16c41f664c450f (patch) | |
| tree | 5998b8f0bc0b65496b143dca12b1e40165cb5de7 | |
| parent | 8a0e1399c0e4c7bda08416c6a62d0a6034d380c1 (diff) | |
| download | haskell-8f16f80b773157427c82a7833b16c41f664c450f.tar.gz | |
Remove unnecessary toRational
| -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 |