Data.Gedcom.Internal.Common

Documentation

(<&>) :: Functor f => f a -> (a -> b) -> f b infixl 1

Flipped version of <$>

withDefault :: Alternative f => a -> f a -> f a

Replace failure with a default value

trim :: Text -> Text

Trim leading and trailing whitespace off a string

type Parser = Parsec Void Text

Parsers from Text using the default error component.

timeToPicos :: (Int, Int, Int, Double) -> DiffTime

Convert h:m:s.fs time to DiffTime

timeValue :: Parser (Maybe (Int, Int, Int, Double))

Parse a GEDCOM exact time value into (h, m, s, fs) format

dateExact :: Parser (Int, Word, Int)

Parse a GEDCOM exact date into (day, month, year). Months are number from 1 to 12.

month :: Parser Word

Parse a Gregorian/Julian month

monthFr :: Parser Word

Parse a French calendar month

monthHeb :: Parser Word

Parse a Hebrew calendar month

yearGreg :: Parser Int

Parse a Gregorian year. GEDCOM allows one to specify two versions of the same year for cases where the historical year started in March instead of January. This function attempts to return the modern year number (assuming the year starts in January.