{-# LANGUAGE StrictData #-}
module Graphics.Vty.Platform.Windows.Input.Classify.Types
( KClass(..)
, ClassifierState(..)
)
where
import Data.ByteString.Char8 (ByteString)
import Graphics.Vty.Input.Events ( Event )
data ClassifierState
= ClassifierStart
| ClassifierInChunk ByteString [ByteString]
data KClass
= Valid Event ByteString
| Invalid
| Prefix
| Chunk
deriving(Int -> KClass -> ShowS
[KClass] -> ShowS
KClass -> String
(Int -> KClass -> ShowS)
-> (KClass -> String) -> ([KClass] -> ShowS) -> Show KClass
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> KClass -> ShowS
showsPrec :: Int -> KClass -> ShowS
$cshow :: KClass -> String
show :: KClass -> String
$cshowList :: [KClass] -> ShowS
showList :: [KClass] -> ShowS
Show, KClass -> KClass -> Bool
(KClass -> KClass -> Bool)
-> (KClass -> KClass -> Bool) -> Eq KClass
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: KClass -> KClass -> Bool
== :: KClass -> KClass -> Bool
$c/= :: KClass -> KClass -> Bool
/= :: KClass -> KClass -> Bool
Eq)