diff --git a/src/AI.hs b/src/AI.hs
index c9557a2..a9ec7d3 100644
--- a/src/AI.hs
+++ b/src/AI.hs
@@ -47,7 +47,7 @@ completions c prompt = checkpointCallStack $ do
   let opts = defaults & header "Authorization" .~ ["Bearer " <> c ^. openrouterKey . re utf8]
   let j =
         object
-          [ "model" .= ("openai/gpt-4o-mini" :: Text),
+          [ "model" .= ("~deepseek/deepseek-flash-latest" :: Text),
             "messages"
               .= [object ["role" .= ("user" :: Text), "content" .= prompt]]
           ]