ollama-haskell-0.3.0.0: examples/Embeddings.hs

module Main (main) where

import Ollama

main :: IO ()
main = do
  client <- defaultClient
  let req = embedRequest "qwen3.5:2b" ["Hello world", "Haskell LLM integration"]
  res <- embed client req
  case res of
    Left err -> putStrLn $ "Error: " <> show err
    Right resp -> putStrLn $ "Generated " <> show (length $ erEmbeddings resp) <> " embeddings."