module Language.Lsd.AST.Type.SimpleParagraph
    ( SimpleParagraphFormat (..)
    , SimpleParagraphType (..)
    )
where

import Data.Typography (Typography)
import Language.Lsd.AST.Type.Enum (EnumType)
import Language.Lsd.AST.Type.Text (TextType)

newtype SimpleParagraphFormat
    = SimpleParagraphFormat
        Typography
    deriving (Int -> SimpleParagraphFormat -> ShowS
[SimpleParagraphFormat] -> ShowS
SimpleParagraphFormat -> String
(Int -> SimpleParagraphFormat -> ShowS)
-> (SimpleParagraphFormat -> String)
-> ([SimpleParagraphFormat] -> ShowS)
-> Show SimpleParagraphFormat
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> SimpleParagraphFormat -> ShowS
showsPrec :: Int -> SimpleParagraphFormat -> ShowS
$cshow :: SimpleParagraphFormat -> String
show :: SimpleParagraphFormat -> String
$cshowList :: [SimpleParagraphFormat] -> ShowS
showList :: [SimpleParagraphFormat] -> ShowS
Show)

data SimpleParagraphType
    = SimpleParagraphType
        SimpleParagraphFormat
        (TextType EnumType)