From 655015bca7883691a739aeb3c42461f7a21fddc1 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Facundo=20Dom=C3=ADnguez?= <facundo.dominguez@tweag.io>
Date: Wed, 20 Mar 2024 16:42:27 -0300
Subject: [PATCH] Fix rsafe quasiquoter

---
 inline-r/src/Language/R/QQ.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/inline-r/src/Language/R/QQ.hs b/inline-r/src/Language/R/QQ.hs
index fbaa970b..5da0af8a 100644
--- a/inline-r/src/Language/R/QQ.hs
+++ b/inline-r/src/Language/R/QQ.hs
@@ -77,7 +77,7 @@ r = QuasiQuoter
 -- TODO some of the above invariants can be checked statically. Do so.
 rsafe :: QuasiQuoter
 rsafe = QuasiQuoter
-    { quoteExp  = \txt -> [| unsafePerformIO $ runRegion $ automaticSome =<< eval =<< $(expQQ txt) |]
+    { quoteExp  = \txt -> [| unsafePerformIO $ runRegion $ automatic =<< eval =<< $(expQQ txt) |]
     , quotePat  = unimplemented "quotePat"
     , quoteType = unimplemented "quoteType"
     , quoteDec  = unimplemented "quoteDec"