module Data.Time.W3C.Parser
    ( parse
    )
    where

import qualified Text.Parsec as P

import Data.Time.W3C.Parser.Parsec
import Data.Time.W3C.Types

parse :: String -> Maybe W3CDateTime
parse src
    = case P.parse w3cDateTime "" src of
        Right w3c -> Just w3c
        Left  _   -> Nothing