diff options
Diffstat (limited to 'compiler/deSugar/PmExpr.hs')
-rw-r--r-- | compiler/deSugar/PmExpr.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/compiler/deSugar/PmExpr.hs b/compiler/deSugar/PmExpr.hs index 3c5fe280fa..f1f59c1130 100644 --- a/compiler/deSugar/PmExpr.hs +++ b/compiler/deSugar/PmExpr.hs @@ -229,7 +229,7 @@ hsExprToPmExpr (HsOverLit olit) = PmExprLit (PmOLit False olit) hsExprToPmExpr (HsLit lit) = PmExprLit (PmSLit lit) hsExprToPmExpr e@(NegApp _ neg_e) - | PmExprLit (PmOLit False ol) <- hsExprToPmExpr neg_e + | PmExprLit (PmOLit False ol) <- synExprToPmExpr neg_e = PmExprLit (PmOLit True ol) | otherwise = PmExprOther e hsExprToPmExpr (HsPar (L _ e)) = hsExprToPmExpr e @@ -270,6 +270,9 @@ hsExprToPmExpr (ExprWithTySigOut e _) = lhsExprToPmExpr e hsExprToPmExpr (HsWrap _ e) = hsExprToPmExpr e hsExprToPmExpr e = PmExprOther e -- the rest are not handled by the oracle +synExprToPmExpr :: SyntaxExpr Id -> PmExpr +synExprToPmExpr = hsExprToPmExpr . syn_expr -- ignore the wrappers + {- %************************************************************************ %* * |