diff options
Diffstat (limited to 'compiler/deSugar/MatchLit.hs')
-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 |