diff options
| author | LLLL Colonq <llll@colonq> | 2026-08-03 21:29:22 -0400 |
|---|---|---|
| committer | LLLL Colonq <llll@colonq> | 2026-08-03 21:29:22 -0400 |
| commit | ede7ea7148cb173e24fbf70e79a259cebbf4e6e8 (patch) | |
| tree | 265375b716bfb688a60387fc81e9291fe314d13c /fig-web/src/Fig/Web/MaudeCode.hs | |
| parent | 7be5db06389670d4266aca1e4845fc0e20ae1ff9 (diff) | |
Diffstat (limited to 'fig-web/src/Fig/Web/MaudeCode.hs')
| -rw-r--r-- | fig-web/src/Fig/Web/MaudeCode.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/fig-web/src/Fig/Web/MaudeCode.hs b/fig-web/src/Fig/Web/MaudeCode.hs index 306ffa7..0eac748 100644 --- a/fig-web/src/Fig/Web/MaudeCode.hs +++ b/fig-web/src/Fig/Web/MaudeCode.hs @@ -36,7 +36,7 @@ newtype RequestChatCompletions = RequestChatCompletions instance Aeson.FromJSON RequestChatCompletions where parseJSON = Aeson.withObject "RequestChatCompletions" \o -> do messages :: [Aeson.Object] <- o Aeson..: "messages" - msg <- maybe (pure "") (Aeson..: "content") $ lastMaybe messages + msg <- maybe (pure "") (Aeson..: "content") $ lastMay messages let message = Text.replace "\n" " " msg pure RequestChatCompletions{..} |