module Ribosome.Menu.Prompt.Data.InputEvent where

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