From d807babf72ab7b781f239f8563db7ef3f083cccc Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 27 Mar 2000 08:46:15 +0000
Subject: [PATCH] [project @ 2000-03-27 08:46:15 by simonmar] rearrange tokens
 to be in roughly the same order as everywhere else.

---
 ghc/compiler/rename/ParseIface.y |   13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/ghc/compiler/rename/ParseIface.y b/ghc/compiler/rename/ParseIface.y
index 40cc451..cd7068d 100644
--- a/ghc/compiler/rename/ParseIface.y
+++ b/ghc/compiler/rename/ParseIface.y
@@ -51,6 +51,7 @@ import Ratio ( (%) )
 %lexer      { lexer } { ITeof }
 
 %token
+ 'as' 		{ ITas }
  'case' 	{ ITcase }  			-- Haskell keywords
  'class' 	{ ITclass } 
  'data' 	{ ITdata } 
@@ -58,6 +59,7 @@ import Ratio ( (%) )
  'deriving' 	{ ITderiving }
  'do' 		{ ITdo }
  'else' 	{ ITelse }
+ 'hiding' 	{ IThiding }
  'if' 		{ ITif }
  'import' 	{ ITimport }
  'in' 		{ ITin }
@@ -69,12 +71,11 @@ import Ratio ( (%) )
  'module' 	{ ITmodule }
  'newtype' 	{ ITnewtype }
  'of' 		{ ITof }
+ 'qualified' 	{ ITqualified }
  'then' 	{ ITthen }
  'type' 	{ ITtype }
  'where' 	{ ITwhere }
- 'as' 		{ ITas }
- 'qualified' 	{ ITqualified }
- 'hiding' 	{ IThiding }
+--???? 'scc' { ITscc } 
 
  'forall'	{ ITforall }			-- GHC extension keywords
  'foreign'	{ ITforeign }
@@ -83,15 +84,17 @@ import Ratio ( (%) )
  'dynamic'	{ ITdynamic }
  'unsafe'	{ ITunsafe }
  'with'		{ ITwith }
+ 'stdcall'      { ITstdcallconv }
+ 'ccall'        { ITccallconv }
 
  '__interface'	{ ITinterface }			-- interface keywords
  '__export'	{ IT__export }
- '__forall'	{ IT__forall }
  '__depends'	{ ITdepends }
+ '__forall'	{ IT__forall }
  '__letrec'	{ ITletrec }
  '__coerce'	{ ITcoerce }
- '__inline_call'{ ITinlineCall }
  '__inline_me'  { ITinlineMe }
+ '__inline_call'{ ITinlineCall }
  '__DEFAULT'	{ ITdefaultbranch }
  '__bot'	{ ITbottom }
  '__integer'	{ ITinteger_lit }
-- 
1.7.10.4