module Data.Time.W3C.Parser ( parse ) where import qualified Text.Parsec as P import Data.Convertible import Data.Time.W3C.Parser.Parsec import Data.Time.W3C.Types parse :: Convertible W3CDateTime t => String -> Maybe t parse src = case P.parse w3cDateTime "" src of Right w3c -> Just (convert w3c) Left _ -> Nothing