Revert "ci trigger" wip/mp/15646
authorMatthew Pickering <matthewtpickering@gmail.com>
Sat, 23 Mar 2019 15:08:54 +0000 (15:08 +0000)
committerMatthew Pickering <matthewtpickering@gmail.com>
Sat, 23 Mar 2019 15:08:54 +0000 (15:08 +0000)
This reverts commit 6e5f7098aa41ceae2fc1e4f9da1236f1bc87282a.

compiler/deSugar/MatchLit.hs

index e29d8a3..428b519 100644 (file)
@@ -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