module Test.Hspec.Core.Formatters.Pretty.Parser.Types where import Prelude () import Test.Hspec.Core.Compat data Expression = Literal Literal | Id String | App Expression Expression | Parentheses Expression | Tuple [Expression] | List [Expression] | Record String [(String, Expression)] deriving (Expression -> Expression -> Bool (Expression -> Expression -> Bool) -> (Expression -> Expression -> Bool) -> Eq Expression forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a /= :: Expression -> Expression -> Bool $c/= :: Expression -> Expression -> Bool == :: Expression -> Expression -> Bool $c== :: Expression -> Expression -> Bool Eq, Int -> Expression -> ShowS [Expression] -> ShowS Expression -> String (Int -> Expression -> ShowS) -> (Expression -> String) -> ([Expression] -> ShowS) -> Show Expression forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a showList :: [Expression] -> ShowS $cshowList :: [Expression] -> ShowS show :: Expression -> String $cshow :: Expression -> String showsPrec :: Int -> Expression -> ShowS $cshowsPrec :: Int -> Expression -> ShowS Show) data Literal = Char Char | String String | Integer Integer | Rational String deriving (Literal -> Literal -> Bool (Literal -> Literal -> Bool) -> (Literal -> Literal -> Bool) -> Eq Literal forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a /= :: Literal -> Literal -> Bool $c/= :: Literal -> Literal -> Bool == :: Literal -> Literal -> Bool $c== :: Literal -> Literal -> Bool Eq, Int -> Literal -> ShowS [Literal] -> ShowS Literal -> String (Int -> Literal -> ShowS) -> (Literal -> String) -> ([Literal] -> ShowS) -> Show Literal forall a. (Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a showList :: [Literal] -> ShowS $cshowList :: [Literal] -> ShowS show :: Literal -> String $cshow :: Literal -> String showsPrec :: Int -> Literal -> ShowS $cshowsPrec :: Int -> Literal -> ShowS Show)