perf: back say and Http.Status.set with EffectFn1 foreigns

changelog.d/20260713_153000_effectfn_ffi.md

@@ -0,0 +1,7 @@
+### Changed
+
+- `say` and `Lua.Ngx.Http.Status.set` are backed by `EffectFn1` foreigns
+  (`sayImpl`, `setImpl`) behind thin public wrappers; the public API is
+  unchanged. A saturated `say s` / `set st` in compiled code is now a single
+  direct Lua call with no per-call thunk allocation (previously two calls
+  and a fresh closure per invocation).

src/Lua/Ngx.lua

@@ -1 +1 @@
-return {say = (function(msg) return function() ngx.say(msg) end end)}
+return {sayImpl = (function(msg) ngx.say(msg) end)}

src/Lua/Ngx.purs

@@ -2,6 +2,9 @@ module Lua.Ngx where
 
 import Data.Unit (Unit)
 import Effect (Effect)
+import Effect.Uncurried (EffectFn1, runEffectFn1)
 
-foreign import say :: String -> Effect Unit
+foreign import sayImpl :: EffectFn1 String Unit
 
+say :: String -> Effect Unit
+say = runEffectFn1 sayImpl

src/Lua/Ngx/Http/Status.lua

@@ -36,5 +36,5 @@ return {
   versionNotSupported = (ngx.HTTP_VERSION_NOT_SUPPORTED),
   insufficientStorage = (ngx.HTTP_INSUFFICIENT_STORAGE),
   get = (function() return ngx.status end),
-  set = (function(status) return function() ngx.status = status end end)
+  setImpl = (function(status) ngx.status = status end)
 }

src/Lua/Ngx/Http/Status.purs

@@ -2,6 +2,7 @@ module Lua.Ngx.Http.Status where
 
 import Data.Unit (Unit)
 import Effect (Effect)
+import Effect.Uncurried (EffectFn1, runEffectFn1)
 
 foreign import data Status :: Type
 
@@ -42,5 +43,9 @@ foreign import gatewayTimeout :: Status
 foreign import versionNotSupported :: Status
 foreign import insufficientStorage :: Status
 
-foreign import set :: Status -> Effect Unit
+foreign import setImpl :: EffectFn1 Status Unit
+
+set :: Status -> Effect Unit
+set = runEffectFn1 setImpl
+
 foreign import get :: Effect Status