module Exon.Data.RawSegment where

data RawSegment =
  WsSegment String
  |
  StringSegment String
  |
  ExpSegment String
  deriving (RawSegment -> RawSegment -> Bool
(RawSegment -> RawSegment -> Bool)
-> (RawSegment -> RawSegment -> Bool) -> Eq RawSegment
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: RawSegment -> RawSegment -> Bool
$c/= :: RawSegment -> RawSegment -> Bool
== :: RawSegment -> RawSegment -> Bool
$c== :: RawSegment -> RawSegment -> Bool
Eq, Int -> RawSegment -> ShowS
[RawSegment] -> ShowS
RawSegment -> String
(Int -> RawSegment -> ShowS)
-> (RawSegment -> String)
-> ([RawSegment] -> ShowS)
-> Show RawSegment
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [RawSegment] -> ShowS
$cshowList :: [RawSegment] -> ShowS
show :: RawSegment -> String
$cshow :: RawSegment -> String
showsPrec :: Int -> RawSegment -> ShowS
$cshowsPrec :: Int -> RawSegment -> ShowS
Show)