1 module Data.Time.W3C.Parser
6 import qualified Text.Parsec as P
8 import Data.Convertible
9 import Data.Time.W3C.Parser.Parsec
10 import Data.Time.W3C.Types
12 parse :: Convertible W3CDateTime t => String -> Maybe t
13 parse src = case P.parse p "" src of
14 Right w3c -> Just (convert w3c)
17 p = do w3c <- w3cDateTime