module Language.Ltml.AST.SimpleBlock
    ( SimpleBlock (..)
    )
where

import Language.Ltml.AST.SimpleParagraph (SimpleParagraph)
import Language.Ltml.AST.Table (Table)

data SimpleBlock
    = SimpleParagraphBlock SimpleParagraph
    | TableBlock Table
    deriving (Int -> SimpleBlock -> ShowS
[SimpleBlock] -> ShowS
SimpleBlock -> String
(Int -> SimpleBlock -> ShowS)
-> (SimpleBlock -> String)
-> ([SimpleBlock] -> ShowS)
-> Show SimpleBlock
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> SimpleBlock -> ShowS
showsPrec :: Int -> SimpleBlock -> ShowS
$cshow :: SimpleBlock -> String
show :: SimpleBlock -> String
$cshowList :: [SimpleBlock] -> ShowS
showList :: [SimpleBlock] -> ShowS
Show)