diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2019-03-23 15:08:54 +0000 |
|---|---|---|
| committer | Matthew Pickering <matthewtpickering@gmail.com> | 2019-03-23 15:08:54 +0000 |
| commit | dfc8d93cade548ea9fd3e46d897c2bb2ae2b9179 (patch) | |
| tree | 53ab1bb36045ddf45b16ab1a910b16d642651f88 | |
| parent | 6e5f7098aa41ceae2fc1e4f9da1236f1bc87282a (diff) | |
| download | haskell-wip/mp/15646.tar.gz | |
Revert "ci trigger"wip/mp/15646
This reverts commit 6e5f7098aa41ceae2fc1e4f9da1236f1bc87282a.
| -rw-r--r-- | compiler/deSugar/MatchLit.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/deSugar/MatchLit.hs b/compiler/deSugar/MatchLit.hs index e29d8a37f9..428b5196ec 100644 --- a/compiler/deSugar/MatchLit.hs +++ b/compiler/deSugar/MatchLit.hs @@ -108,7 +108,7 @@ dsFractionalLitToRational fl = mkRational <- dsLookupGlobalId mkRationalName litR <- dsRational fl_signi litE <- mkIntegerExpr fl_exp - return $ mkCoreApps (Var mkRational) [litR, litE] + return (mkCoreApps (Var mkRational) [litR, litE]) dsRational :: Rational -> DsM CoreExpr dsRational (n :% d) = do |