Remove checkCOrAsmOrLlvmOrDotNetOrInterp
authorIan Lynagh <ian@well-typed.com>
Fri, 11 Jan 2013 16:57:32 +0000 (16:57 +0000)
committerIan Lynagh <ian@well-typed.com>
Fri, 11 Jan 2013 16:57:32 +0000 (16:57 +0000)
We now just use checkCOrAsmOrLlvmOrInterp instead, which had
an identical definition.

compiler/typecheck/TcForeign.lhs

index 0d86e64..b1aef2f 100644 (file)
@@ -255,7 +255,7 @@ tcCheckFIType sig_ty arg_tys res_ty idecl@(CImport cconv safety mh (CFunction ta
       dflags <- getDynFlags
       check (xopt Opt_GHCForeignImportPrim dflags)
             (text "Use -XGHCForeignImportPrim to allow `foreign import prim'.")
-      checkCg (checkCOrAsmOrLlvmOrDotNetOrInterp)
+      checkCg checkCOrAsmOrLlvmOrInterp
       checkCTarget target
       check (playSafe safety)
             (text "The safe/unsafe annotation should not be used with `foreign import prim'.")
@@ -264,7 +264,7 @@ tcCheckFIType sig_ty arg_tys res_ty idecl@(CImport cconv safety mh (CFunction ta
       checkForeignRes nonIOok checkSafe (isFFIPrimResultTy dflags) res_ty
       return idecl
   | otherwise = do              -- Normal foreign import
-      checkCg checkCOrAsmOrLlvmOrDotNetOrInterp
+      checkCg checkCOrAsmOrLlvmOrInterp
       cconv' <- checkCConv cconv
       checkCTarget target
       dflags <- getDynFlags
@@ -283,7 +283,7 @@ tcCheckFIType sig_ty arg_tys res_ty idecl@(CImport cconv safety mh (CFunction ta
 -- that the C identifier is valid for C
 checkCTarget :: CCallTarget -> TcM ()
 checkCTarget (StaticTarget str _ _) = do
-    checkCg checkCOrAsmOrLlvmOrDotNetOrInterp
+    checkCg checkCOrAsmOrLlvmOrInterp
     check (isCLabelString str) (badCName str)
 
 checkCTarget DynamicTarget = panic "checkCTarget DynamicTarget"
@@ -437,14 +437,6 @@ checkCOrAsmOrLlvmOrInterp HscInterpreted = Nothing
 checkCOrAsmOrLlvmOrInterp _
   = Just (text "requires interpreted, unregisterised, llvm or native code generation")
 
-checkCOrAsmOrLlvmOrDotNetOrInterp :: HscTarget -> Maybe SDoc
-checkCOrAsmOrLlvmOrDotNetOrInterp HscC           = Nothing
-checkCOrAsmOrLlvmOrDotNetOrInterp HscAsm         = Nothing
-checkCOrAsmOrLlvmOrDotNetOrInterp HscLlvm        = Nothing
-checkCOrAsmOrLlvmOrDotNetOrInterp HscInterpreted = Nothing
-checkCOrAsmOrLlvmOrDotNetOrInterp _
-  = Just (text "requires interpreted, unregisterised, llvm or native code generation")
-
 checkCg :: (HscTarget -> Maybe SDoc) -> TcM ()
 checkCg check = do
     dflags <- getDynFlags