diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2016-08-03 11:29:26 +0100 |
|---|---|---|
| committer | Matthew Pickering <matthewtpickering@gmail.com> | 2016-08-03 11:29:26 +0100 |
| commit | 2f79e79ca367b438a2eb60711784b862b1077dae (patch) | |
| tree | 603c729b026ff2de096da5eaf8c650c275842498 /compiler/parser | |
| parent | 9df9490c4b30bdbd3e0031f7bf2ccd9ba8d867a2 (diff) | |
| download | haskell-2f79e79ca367b438a2eb60711784b862b1077dae.tar.gz | |
Add comment about lexing of INLINE and INLINABLE pragma
Diffstat (limited to 'compiler/parser')
| -rw-r--r-- | compiler/parser/Parser.y | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/parser/Parser.y b/compiler/parser/Parser.y index cd10a29703..b9479d9be0 100644 --- a/compiler/parser/Parser.y +++ b/compiler/parser/Parser.y @@ -369,7 +369,7 @@ output it generates. 'pattern' { L _ ITpattern } -- for pattern synonyms 'static' { L _ ITstatic } -- for static pointers extension - '{-# INLINE' { L _ (ITinline_prag _ _ _) } + '{-# INLINE' { L _ (ITinline_prag _ _ _) } -- INLINE or INLINABLE '{-# SPECIALISE' { L _ (ITspec_prag _) } '{-# SPECIALISE_INLINE' { L _ (ITspec_inline_prag _ _) } '{-# SOURCE' { L _ (ITsource_prag _) } @@ -2058,6 +2058,7 @@ sigdecl :: { LHsDecl RdrName } | pattern_synonym_sig { sLL $1 $> . SigD . unLoc $ $1 } + -- This rule is for both INLINE and INLINABLE pragmas | '{-# INLINE' activation qvar '#-}' {% ams ((sLL $1 $> $ SigD (InlineSig $3 (mkInlinePragma (getINLINE_PRAGs $1) (getINLINE $1) |