X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Freader%2FLex.lhs;fp=ghc%2Fcompiler%2Freader%2FLex.lhs;h=ae1ca2c044c4b39c064eb8faea064105aa5f3b2d;hb=d133b73a4d4717892ced072d05e039a54ede0ceb;hp=a8595e36f861c50b446a25e0416c87c9d944c33d;hpb=f83ad713ad73e583fd138bb17e7341041b36a416;p=ghc-hetmet.git

diff --git a/ghc/compiler/reader/Lex.lhs b/ghc/compiler/reader/Lex.lhs
index a8595e3..ae1ca2c 100644
--- a/ghc/compiler/reader/Lex.lhs
+++ b/ghc/compiler/reader/Lex.lhs
@@ -135,6 +135,8 @@ data IfaceToken
   | ITlit_lit
   | ITstring_lit
   | ITtypeapp
+  | ITonce			-- usage annotations
+  | ITmany
   | ITarity 
   | ITspecialise
   | ITnocaf
@@ -617,6 +619,8 @@ ifaceKeywordsFM = listToUFM $
 	("__litlit",		ITlit_lit),
 	("__string",		ITstring_lit),
 	("__a",			ITtypeapp),
+	("__o",			ITonce),
+	("__m",			ITmany),
 	("__A",			ITarity),
 	("__P",			ITspecialise),
 	("__C",			ITnocaf),