Data/Time/W3C/Parser.hs

   1 module Data.Time.W3C.Parser
   2     ( parse
   3     )
   4     where
   5
   6 import qualified Text.Parsec as P
   7
   8 import Data.Time.W3C.Parser.Parsec
   9 import Data.Time.W3C.Types
  10
  11 parse :: String -> Maybe W3CDateTime
  12 parse src
  13     = case P.parse w3cDateTime "" src of
  14         Right w3c -> Just w3c
  15         Left  _   -> Nothing