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

Add missing case in parsing of inline pragmas.

diff --git a/ghc/compiler/rename/ParseIface.y b/ghc/compiler/rename/ParseIface.y
index 4062b55..8110d27 100644 (file)
--- 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
 
 -------------------------------------------------------