Commit b5c71bff authored by simonmar's avatar simonmar
Browse files

[project @ 2000-05-25 10:40:39 by simonmar]

Add missing case in parsing of inline pragmas.
parent b537743d
......@@ -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
-------------------------------------------------------
......
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