From d17898a51f7566f0eced369ba3bb0d518ea9bf33 Mon Sep 17 00:00:00 2001
From: Ian-Woo Kim <ianwookim@gmail.com>
Date: Sat, 26 Aug 2023 19:38:39 -0700
Subject: [PATCH] unsafe testing

---
 fficxx/src/FFICXX/Generate/Util/GHCExactPrint.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
                               <> "\"| -}"
                           )