X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fparser%2Ftype2context.c;fp=ghc%2Fcompiler%2Fparser%2Ftype2context.c;h=468df298eea8c64ebebf61f293ac3d38a5264714;hb=438596897ebbe25a07e1c82085cfbc5bdb00f09e;hp=cee8276b0f4bcfdeb04128e1054ef4874cf3bef2;hpb=967cc47f37cb93a5e2b6df7822c9a646f0428247;p=ghc-hetmet.git

diff --git a/ghc/compiler/parser/type2context.c b/ghc/compiler/parser/type2context.c
index cee8276..468df29 100644
--- a/ghc/compiler/parser/type2context.c
+++ b/ghc/compiler/parser/type2context.c
@@ -60,9 +60,6 @@ type2context(t)
       case tfun:
     	hsperror ("type2context: arrow (->) constructor found in a context");
 
-      case context:
-    	hsperror ("type2context: unexpected context-thing found in a context");
-
       default:
     	hsperror ("type2context: totally unexpected input");
     }
@@ -107,10 +104,6 @@ is_context_format(t, tyvars)
 
 	case tfun:
 	  hsperror ("is_context_format: arrow (->) constructor found in a context");
-
-	case context:
-	  hsperror ("is_context_format: unexpected context-thing found in a context");
-
 	default:
 	    hsperror ("is_context_format: totally unexpected input");
       }