X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=time-w3c.git;a=blobdiff_plain;f=Data%2FTime%2FW3C%2FParser.hs;fp=Data%2FTime%2FW3C%2FParser.hs;h=539a024280152be30c6643d4cbbac91157c86821;hp=0000000000000000000000000000000000000000;hb=3d738487d6fb1077d139fd689279a1ebd27a9fdc;hpb=fb743c0b822f29bac00c39e762ddd57dc65ee28f

diff --git a/Data/Time/W3C/Parser.hs b/Data/Time/W3C/Parser.hs
new file mode 100644
index 0000000..539a024
--- /dev/null
+++ b/Data/Time/W3C/Parser.hs
@@ -0,0 +1,15 @@
+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