Effects.hs

{-# OPTIONS_GHC -Wall -Werror #-}

{-# LANGUAGE Safe                         #-}
{-# LANGUAGE NoGeneralizedNewtypeDeriving #-}

--------------------------------------------------------------------------------

-- |
-- Copyright  : (c) 2026 SPISE MISU ApS
-- License    : SSPL-1.0 OR AGPL-3.0-only
-- Maintainer : SPISE MISU <mail+hackage@spisemisu.com>
-- Stability  : experimental

--------------------------------------------------------------------------------

module Agent.IO.Effects
  ( -- * LLM
    LlmChatConf(llmChatKey, llmChatAPI)
  , LlmChatCurl(llmChatCurl)
  )
where

--------------------------------------------------------------------------------

class  Monad m => LlmChatConf m where
  llmChatAPI :: m (Maybe String)
  llmChatKey :: m (Maybe String)

class LlmChatConf m => LlmChatCurl m where
  llmChatCurl :: String -> m (Either String String)