X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fmain%2FHscMain.lhs;h=6536068a4f421bc910328737681a2bd3b0370480;hp=e5b7026eb57536cb9db4915c0107176c5614d425;hb=63739e3fb4bd70e9c789d4d05fcbc66debd1401f;hpb=176fb356fbbc4cf398fb66440d84a05ad333c881

diff --git a/compiler/main/HscMain.lhs b/compiler/main/HscMain.lhs
index e5b7026..6536068 100644
--- a/compiler/main/HscMain.lhs
+++ b/compiler/main/HscMain.lhs
@@ -839,10 +839,8 @@ hscKcType hsc_env str
   = do	{ maybe_type <- hscParseType (hsc_dflags hsc_env) str
 	; let icontext = hsc_IC hsc_env
 	; case maybe_type of {
-	     Just ty	-> tcRnType hsc_env icontext ty ;
-	     Just other -> do { errorMsg (hsc_dflags hsc_env) (text "not an type:" <+> quotes (text str)) ;
-			        return Nothing } ;
-      	     Nothing    -> return Nothing } }
+	     Just ty -> tcRnType hsc_env icontext ty ;
+      	     Nothing -> return Nothing } }
 #endif
 \end{code}