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

Add missing case in parsing of inline pragmas.

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
 
 -------------------------------------------------------