module Language.Lsd.AST.Type.Footnote
    ( FootnoteFormat (..)
    , FootnoteType (..)
    )
where

import Data.Void (Void)
import Language.Lsd.AST.Common (Keyword)
import Language.Lsd.AST.Type.Text (TextType)

data FootnoteFormat = SuperscriptFootnoteFormat
    deriving (Int -> FootnoteFormat -> ShowS
[FootnoteFormat] -> ShowS
FootnoteFormat -> String
(Int -> FootnoteFormat -> ShowS)
-> (FootnoteFormat -> String)
-> ([FootnoteFormat] -> ShowS)
-> Show FootnoteFormat
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> FootnoteFormat -> ShowS
showsPrec :: Int -> FootnoteFormat -> ShowS
$cshow :: FootnoteFormat -> String
show :: FootnoteFormat -> String
$cshowList :: [FootnoteFormat] -> ShowS
showList :: [FootnoteFormat] -> ShowS
Show)

data FootnoteType
    = FootnoteType
        Keyword
        FootnoteFormat
        (TextType Void)