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.Convertible
   9 import Data.Time.W3C.Parser.Parsec
  10 import Data.Time.W3C.Types
  11
  12 parse :: Convertible W3CDateTime t => String -> Maybe t
  13 parse src
  14     = case P.parse w3cDateTime "" src of
  15         Right w3c -> Just (convert w3c)
  16         Left  _   -> Nothing