From 335f7f302456bd8fcbac27a6c08666635371c208 Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Fri, 31 Jul 2026 19:03:50 -0400 Subject: web: Work on Maude Code --- fig-web/src/Fig/Web/MaudeCode.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/fig-web/src/Fig/Web/MaudeCode.hs b/fig-web/src/Fig/Web/MaudeCode.hs index e5ca9e3..306ffa7 100644 --- a/fig-web/src/Fig/Web/MaudeCode.hs +++ b/fig-web/src/Fig/Web/MaudeCode.hs @@ -36,7 +36,8 @@ newtype RequestChatCompletions = RequestChatCompletions instance Aeson.FromJSON RequestChatCompletions where parseJSON = Aeson.withObject "RequestChatCompletions" \o -> do messages :: [Aeson.Object] <- o Aeson..: "messages" - message :: Text <- Text.replace "\n" " " . Text.unwords <$> forM messages (Aeson..: "content") + msg <- maybe (pure "") (Aeson..: "content") $ lastMaybe messages + let message = Text.replace "\n" " " msg pure RequestChatCompletions{..} data Globals = Globals -- cgit v1.3.1