diff options
| author | simonmar <unknown> | 2000-05-25 10:40:39 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2000-05-25 10:40:39 +0000 |
| commit | b5c71bff716366ae888bf120776d3e163c86c60a (patch) | |
| tree | 85c3638fda9488bce737dd0de11997cedfaab2a5 /ghc/compiler/rename/ParseIface.y | |
| parent | b537743d6e51e7f5f8da13b1c7e90b60844018a6 (diff) | |
| download | haskell-b5c71bff716366ae888bf120776d3e163c86c60a.tar.gz | |
[project @ 2000-05-25 10:40:39 by simonmar]
Add missing case in parsing of inline pragmas.
Diffstat (limited to 'ghc/compiler/rename/ParseIface.y')
| -rw-r--r-- | ghc/compiler/rename/ParseIface.y | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/ghc/compiler/rename/ParseIface.y b/ghc/compiler/rename/ParseIface.y index 4062b55566..8110d2702e 100644 --- a/ghc/compiler/rename/ParseIface.y +++ b/ghc/compiler/rename/ParseIface.y @@ -681,6 +681,7 @@ id_info_item :: { HsIdInfo RdrName } inline_prag :: { InlinePragInfo } : {- empty -} { NoInlinePragInfo } | '[' INTEGER ']' { IMustNotBeINLINEd True (Just (fromInteger $2)) } -- INLINE n + | '[' '!' ']' { IMustNotBeINLINEd True Nothing } -- NOTINLINE | '[' '!' INTEGER ']' { IMustNotBeINLINEd False (Just (fromInteger $3)) } -- NOINLINE n ------------------------------------------------------- |