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

import Language.Lsd.AST.Type.Footnote (FootnoteFormat)
import Language.Ltml.AST.Text (FootnoteTextTree)

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