Fix rsafe quasiquoter

tweag · Mar 20, 2024 · 655015b · 655015b
1 parent 96e8497
commit 655015b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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"