module Text.LaTeX.LambdaTeX.Part where

import           Data.Text (Text)

newtype Part = Part { unPart :: [Text] }
    deriving Show

emptyPart :: Part
emptyPart = Part { unPart = [] }

pushPart :: Part -> Text -> Part
pushPart p t = Part { unPart = unPart p ++ [t] }

popPart :: Part -> Part
popPart p = Part { unPart = init $ unPart p }