diff options
| -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 |