module Ribosome.Menu.Prompt.Data.PromptEvent where

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

data PromptEvent =
  Init
  |
  Character Text
  |
  -- SpecialCharacter Text
  -- |
  Unexpected Int
  |
  Interrupt
  |
  Error Text
  |
  Set Prompt
  deriving (PromptEvent -> PromptEvent -> Bool
(PromptEvent -> PromptEvent -> Bool)
-> (PromptEvent -> PromptEvent -> Bool) -> Eq PromptEvent
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PromptEvent -> PromptEvent -> Bool
$c/= :: PromptEvent -> PromptEvent -> Bool
== :: PromptEvent -> PromptEvent -> Bool
$c== :: PromptEvent -> PromptEvent -> Bool
Eq, Int -> PromptEvent -> ShowS
[PromptEvent] -> ShowS
PromptEvent -> String
(Int -> PromptEvent -> ShowS)
-> (PromptEvent -> String)
-> ([PromptEvent] -> ShowS)
-> Show PromptEvent
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PromptEvent] -> ShowS
$cshowList :: [PromptEvent] -> ShowS
show :: PromptEvent -> String
$cshow :: PromptEvent -> String
showsPrec :: Int -> PromptEvent -> ShowS
$cshowsPrec :: Int -> PromptEvent -> ShowS
Show)