module HaskellWorks.Data.Xml.Token.Types (XmlToken(..)) where

data XmlToken s d
  = XmlTokenBraceL
  | XmlTokenBraceR
  | XmlTokenBracketL
  | XmlTokenBracketR
  | XmlTokenComma
  | XmlTokenColon
  | XmlTokenWhitespace
  | XmlTokenString s
  | XmlTokenBoolean Bool
  | XmlTokenNumber d
  | XmlTokenNull
  deriving (XmlToken s d -> XmlToken s d -> Bool
(XmlToken s d -> XmlToken s d -> Bool)
-> (XmlToken s d -> XmlToken s d -> Bool) -> Eq (XmlToken s d)
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
forall s d. (Eq s, Eq d) => XmlToken s d -> XmlToken s d -> Bool
/= :: XmlToken s d -> XmlToken s d -> Bool
$c/= :: forall s d. (Eq s, Eq d) => XmlToken s d -> XmlToken s d -> Bool
== :: XmlToken s d -> XmlToken s d -> Bool
$c== :: forall s d. (Eq s, Eq d) => XmlToken s d -> XmlToken s d -> Bool
Eq, Int -> XmlToken s d -> ShowS
[XmlToken s d] -> ShowS
XmlToken s d -> String
(Int -> XmlToken s d -> ShowS)
-> (XmlToken s d -> String)
-> ([XmlToken s d] -> ShowS)
-> Show (XmlToken s d)
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
forall s d. (Show s, Show d) => Int -> XmlToken s d -> ShowS
forall s d. (Show s, Show d) => [XmlToken s d] -> ShowS
forall s d. (Show s, Show d) => XmlToken s d -> String
showList :: [XmlToken s d] -> ShowS
$cshowList :: forall s d. (Show s, Show d) => [XmlToken s d] -> ShowS
show :: XmlToken s d -> String
$cshow :: forall s d. (Show s, Show d) => XmlToken s d -> String
showsPrec :: Int -> XmlToken s d -> ShowS
$cshowsPrec :: forall s d. (Show s, Show d) => Int -> XmlToken s d -> ShowS
Show)