Commit a8839bb4 authored by Markus Lauer's avatar Markus Lauer

Added parsing rule for BangPattern in case expr

parent e33c65e1
......@@ -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)) }
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment