lit-0.1.1.0: src/Types.hs

module Types where

import Data.Text
import Text.Parsec (SourcePos)
data Chunk = Def SourcePos Text [Part] | Prose Text deriving (Show, Eq)
data Part = Code Text | Ref Text Text deriving (Show, Eq)
type Program = [Chunk]
isDef chunk =
    case chunk of
    Def _ _ _ -> True
    Prose _ -> False
isRef part =
    case part of
    Ref _ _ -> True
    _ -> False
getName chunk =
    case chunk of
    Def _ name _ -> name
    _ -> error "cannot retrieve name, not a def"
getCodeText part =
    case part of
    Code txt -> txt
    _ -> error "cannot retrieve text, not a code part"
getParts chunk =
    case chunk of
    Def _ _ parts -> parts
    _ -> error "cannot retrieve parts, not a def"
getLineNo chunk =
    case chunk of
    Def line _ _ -> line
    _ -> error "cannot retrieve line number, not a def"
getProseText chunk =
    case chunk of
    Prose txt -> txt
    _ -> error "cannot retrieve text, not a prose"