LLM.hs

--------------------------------------------------------------------------------
--
-- Λ-gent, (c) 2026 SPISE MISU ApS
--
--------------------------------------------------------------------------------

{-# OPTIONS_GHC -Wall -Werror #-}

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

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

module Agent.LLM
  ( Mode(..)
  , Context(..)
  )
where

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

data Mode
  = Auto
  | Chat
  | Code
  | Docs
  | Plan
  | Test
  deriving (Bounded, Enum, Eq, Show)

data Context =
  Context
    { mode :: Mode
    , quit :: Bool
    }