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