From: PHO Date: Thu, 11 Mar 2010 09:54:48 +0000 (+0900) Subject: slight sig change X-Git-Tag: RELEASE-0.1.0.1~7 X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=time-w3c.git;a=commitdiff_plain;h=51ec98c3f584b389b31ffa6a6abc3643e9bb754a;ds=sidebyside slight sig change --- diff --git a/Data/Time/W3C/Parser.hs b/Data/Time/W3C/Parser.hs index 539a024..64f96b2 100644 --- a/Data/Time/W3C/Parser.hs +++ b/Data/Time/W3C/Parser.hs @@ -5,11 +5,12 @@ module Data.Time.W3C.Parser import qualified Text.Parsec as P +import Data.Convertible import Data.Time.W3C.Parser.Parsec import Data.Time.W3C.Types -parse :: String -> Maybe W3CDateTime +parse :: Convertible W3CDateTime t => String -> Maybe t parse src = case P.parse w3cDateTime "" src of - Right w3c -> Just w3c + Right w3c -> Just (convert w3c) Left _ -> Nothing