parsec parser

[time-w3c.git] / Data / Time / W3C / Parser.hs

diff --git a/Data/Time/W3C/Parser.hs b/Data/Time/W3C/Parser.hs
new file mode 100644 (file)
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