X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fparser%2FParser.y.pp;h=6712f4ed8f020b0b8fe04cce8c010bf4edc338f3;hp=47307ff22f2ebbbb8edabeeb6d2a99bc9299e72a;hb=1fede4bc9501744bf2269ce2a4cb9fb735969caa;hpb=dd849158c84941f5e3714dd4df24e467854f0d91

diff --git a/compiler/parser/Parser.y.pp b/compiler/parser/Parser.y.pp
index 47307ff..6712f4e 100644
--- a/compiler/parser/Parser.y.pp
+++ b/compiler/parser/Parser.y.pp
@@ -248,7 +248,6 @@ incorrect.
  'stdcall'      { L _ ITstdcallconv }
  'ccall'        { L _ ITccallconv }
  'prim'         { L _ ITprimcallconv }
- 'dotnet'       { L _ ITdotnet }
  'proc'		{ L _ ITproc }		-- for arrow notation extension
  'rec'		{ L _ ITrec }		-- for arrow notation extension
  'group'    { L _ ITgroup }     -- for list transform extension
@@ -876,11 +875,10 @@ fdecl : 'import' callconv safety fspec
       | 'export' callconv fspec
 		{% mkExport $2 (unLoc $3) >>= return.LL }
 
-callconv :: { CallConv }
-	  : 'stdcall'			{ CCall  StdCallConv }
-	  | 'ccall'			{ CCall  CCallConv   }
-	  | 'prim'			{ CCall  PrimCallConv}
-	  | 'dotnet'			{ DNCall	     }
+callconv :: { CCallConv }
+	  : 'stdcall'			{ StdCallConv }
+	  | 'ccall'			{ CCallConv   }
+	  | 'prim'			{ PrimCallConv}
 
 safety :: { Safety }
 	: 'unsafe'			{ PlayRisky }