isFFIArgumentTy, isFFIImportResultTy,
isFFIExportResultTy, isFFILabelTy,
isFFIExternalTy, isFFIDynArgumentTy,
- isFFIDynResultTy, isForeignPtrTy
+ isFFIDynResultTy,
)
import ForeignCall ( CExportSpec(..), CCallTarget(..), CCallConv(..),
isDynamicTarget, isCasmTarget )
= mapNF_Tc go tys `thenNF_Tc_`
returnNF_Tc ()
where
- go ty = check (pred ty) (illegalForeignTyErr argument ty) `thenNF_Tc_`
- warnTc (isForeignPtrTy ty) foreignPtrWarn
- --
- foreignPtrWarn =
- text "`ForeignPtr' as argument type in a foreign import is deprecated"
+ go ty = check (pred ty) (illegalForeignTyErr argument ty)
------------ Checking result types for foreign calls ----------------------
-- Check that the type has the form