diff options
Diffstat (limited to 'compiler/parser')
| -rw-r--r-- | compiler/parser/Parser.y | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/parser/Parser.y b/compiler/parser/Parser.y index 4b8eca6b5a..1b4df16d28 100644 --- a/compiler/parser/Parser.y +++ b/compiler/parser/Parser.y @@ -1459,9 +1459,9 @@ sigtypes1 :: { (OrdList (LHsType RdrName)) } -- Always HsForAllTys ----------------------------------------------------------------------------- -- Types -strict_mark :: { Located ([AddAnn],HsBang) } +strict_mark :: { Located ([AddAnn],HsSrcBang) } : strictness { sL1 $1 (let (a, str) = unLoc $1 in (a, HsSrcBang Nothing NoSrcUnpack str)) } - | unpackedness { sL1 $1 (let (a, prag, unpk) = unLoc $1 in (a, HsSrcBang prag unpk NoSrcStrictness)) } + | unpackedness { sL1 $1 (let (a, prag, unpk) = unLoc $1 in (a, HsSrcBang prag unpk NoSrcStrict)) } | unpackedness strictness { sLL $1 $> (let { (a, prag, unpk) = unLoc $1 ; (a', str) = unLoc $2 } in (a ++ a', HsSrcBang prag unpk str)) } |