From a8839bb4c0a25a961ea315fa2cfdcc78b44b8878 Mon Sep 17 00:00:00 2001 From: Markus Lauer Date: Mon, 18 Sep 2006 16:18:50 +0000 Subject: [PATCH] Added parsing rule for BangPattern in case expr --- compiler/parser/Parser.y.pp | 2 ++ 1 file changed, 2 insertions(+) diff --git a/compiler/parser/Parser.y.pp b/compiler/parser/Parser.y.pp index f9a6945..898d45c 100644 --- a/compiler/parser/Parser.y.pp +++ b/compiler/parser/Parser.y.pp @@ -1104,6 +1104,8 @@ alts1 :: { Located [LMatch RdrName] } alt :: { LMatch RdrName } : infixexp opt_sig alt_rhs {% checkPattern $1 >>= \p -> return (LL (Match [p] $2 (unLoc $3))) } + | '!' infixexp opt_sig alt_rhs {% checkPattern $2 >>= \p -> + return (LL (Match [LL $ BangPat p] $3 (unLoc $4))) } alt_rhs :: { Located (GRHSs RdrName) } : ralt wherebinds { LL (GRHSs (unLoc $1) (unLoc $2)) } -- 1.7.10.4