module Ribosome.Menu.Prompt.Data.Prompt where

import Prelude hiding (state)

import Ribosome.Menu.Prompt.Data.PromptState (PromptState)

data Prompt =
  Prompt {
     Prompt -> Int
_cursor :: Int,
     Prompt -> PromptState
_state :: PromptState,
     Prompt -> Text
_text :: Text
  }
  deriving (Prompt -> Prompt -> Bool
(Prompt -> Prompt -> Bool)
-> (Prompt -> Prompt -> Bool) -> Eq Prompt
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: Prompt -> Prompt -> Bool
$c/= :: Prompt -> Prompt -> Bool
== :: Prompt -> Prompt -> Bool
$c== :: Prompt -> Prompt -> Bool
Eq, Int -> Prompt -> ShowS
[Prompt] -> ShowS
Prompt -> String
(Int -> Prompt -> ShowS)
-> (Prompt -> String) -> ([Prompt] -> ShowS) -> Show Prompt
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [Prompt] -> ShowS
$cshowList :: [Prompt] -> ShowS
show :: Prompt -> String
$cshow :: Prompt -> String
showsPrec :: Int -> Prompt -> ShowS
$cshowsPrec :: Int -> Prompt -> ShowS
Show)

deepLenses ''Prompt