+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