From 2a21b457d71e8cace0db0e3b4913234d25f38aec Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Tue, 2 Dec 2025 14:26:48 -0500 Subject: Advent --- fig-web/main/Main.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'fig-web/main/Main.hs') diff --git a/fig-web/main/Main.hs b/fig-web/main/Main.hs index b1cc006..a3c798a 100644 --- a/fig-web/main/Main.hs +++ b/fig-web/main/Main.hs @@ -60,6 +60,7 @@ main = do Secure o -> Secure.server o cfg (opts.busHost, opts.busPort) TestFFI -> do log "testing FFI" - res <- FFI.checkAnswer "(lambda (d) (define (loop) (loop)) (loop) (string-length d))" - "hello computer" + res <- FFI.checkAnswer "(lambda (d e) (equal? d e))" "hello computer" "hello computer" log $ "result: " <> tshow res + inpa <- FFI.genInputAnswer "(lambda (x) (cons x x))" "hello computer" + log $ "input/answer: " <> tshow inpa -- cgit v1.2.3