diff options
author | Simon Peyton Jones <simonpj@microsoft.com> | 2012-12-19 10:28:34 +0000 |
---|---|---|
committer | Simon Peyton Jones <simonpj@microsoft.com> | 2012-12-19 10:32:01 +0000 |
commit | b5853125ca6a5637647d0b0f2d6271cbf219b337 (patch) | |
tree | 3a9d16e1a9db52366cdb03205ce56cb285b1917b /compiler/parser/Parser.y.pp | |
parent | ea8490e79d37ba758d5ffcf19b087cf74e09b5a0 (diff) | |
download | haskell-b5853125ca6a5637647d0b0f2d6271cbf219b337.tar.gz |
Wibbles to faa8ff40 (UNPACK pragmas)
Nothing big here, just tidying up deetails
Diffstat (limited to 'compiler/parser/Parser.y.pp')
-rw-r--r-- | compiler/parser/Parser.y.pp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/parser/Parser.y.pp b/compiler/parser/Parser.y.pp index 4833a1805a..1907ab320a 100644 --- a/compiler/parser/Parser.y.pp +++ b/compiler/parser/Parser.y.pp @@ -1005,8 +1005,8 @@ infixtype :: { LHsType RdrName } | btype tyvarop type { LL $ mkHsOpTy $1 $2 $3 } strict_mark :: { Located HsBang } - : '!' { L1 HsStrict } - | '{-# UNPACK' '#-}' '!' { LL HsUnpack } + : '!' { L1 (HsBang False) } + | '{-# UNPACK' '#-}' '!' { LL (HsBang True) } | '{-# NOUNPACK' '#-}' '!' { LL HsStrict } -- A ctype is a for-all type |