diff --git a/fficxx/src/FFICXX/Generate/Util/GHCExactPrint.hs b/fficxx/src/FFICXX/Generate/Util/GHCExactPrint.hs index f972191..6dcfd1c 100644 --- a/fficxx/src/FFICXX/Generate/Util/GHCExactPrint.hs +++ b/fficxx/src/FFICXX/Generate/Util/GHCExactPrint.hs @@ -561,7 +561,7 @@ mkForImpCcall quote fname typ = (mkRelAnchor 0) ( EpaComment ( EpaBlockComment - ( "{- REPLACE_THIS_LINE |foreign import ccall interruptible \"" + ( "{- REPLACE_THIS_LINE |foreign import ccall unsafe \"" <> quote <> "\"| -}" )