stagen-0.0.0: library/Stagen/Date.hs

module Stagen.Date where

import Data.Functor (void)
import Text.Parsec
import Text.Parsec.String

data Date = Date {
    dateYear :: Int,
    dateMonth :: Int,
    dateDay :: Int
} deriving (Show, Eq, Ord)

datePrefix :: Parser Date
datePrefix = do
    year <- number
    void $ char '-'
    month <- number
    void $ char '-'
    day <- number
    void $ char '-'
    return (Date year month day)
 where
    number = fmap read (many1 digit)