From b5c71bff716366ae888bf120776d3e163c86c60a Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Thu, 25 May 2000 10:40:39 +0000
Subject: [PATCH] [project @ 2000-05-25 10:40:39 by simonmar] Add missing case
 in parsing of inline pragmas.

---
 ghc/compiler/rename/ParseIface.y |    1 +
 1 file changed, 1 insertion(+)

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