ymonad-0.1.0.0: src/YMonad/Prompt.hs

module YMonad.Prompt (
  YPConfig (..),
  defaultYPConfig,
) where

data YPConfig = YPConfig
  { promptProgram :: Maybe FilePath
  , promptProgramArgs :: [String]
  , promptCaseSensitive :: Bool
  , promptListLines :: Maybe Int
  , promptTerminal :: Maybe String
  }
  deriving stock (Eq, Ord, Show)

defaultYPConfig :: YPConfig
defaultYPConfig =
  YPConfig
    { promptProgram = Nothing
    , promptProgramArgs = []
    , promptCaseSensitive = True
    , promptListLines = Nothing
    , promptTerminal = Nothing
    }