diff options
| author | LLLL Colonq <llll@colonq> | 2026-07-31 19:03:50 -0400 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2026-07-31 19:03:50 -0400 |
| commit | 335f7f302456bd8fcbac27a6c08666635371c208 (patch) | |
| tree | 2121a72993774cd4477840cfc6a25ad264c98864 | |
| parent | c7f266fc4e9dbc98586a7a4aac462ca17017ef1f (diff) | |
web: Work on Maude Code
| -rw-r--r-- | fig-web/src/Fig/Web/MaudeCode.hs | 3 |
1 files changed, 2 insertions, 1 deletions
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 |