X-Git-Url: http://git.cielonegro.org/gitweb.cgi?p=time-w3c.git;a=blobdiff_plain;f=Data%2FTime%2FW3C%2FTypes.hs;h=3a996cba2fe60574e7cf622848dfeb065b0fd746;hp=9f48f68be58dbc627f8f08a6e4d6b71a612f11e9;hb=4d1f3fc0f0050662a8c9150e0e5f039b72ada265;hpb=6f8578a5f973cf4687dbea90c7a42c008925a2ec diff --git a/Data/Time/W3C/Types.hs b/Data/Time/W3C/Types.hs index 9f48f68..3a996cb 100644 --- a/Data/Time/W3C/Types.hs +++ b/Data/Time/W3C/Types.hs @@ -33,6 +33,9 @@ fetch name f a Nothing -> convError ("No " ++ name ++ " information in the given value") a Just b -> return b +instance Convertible W3CDateTime W3CDateTime where + safeConvert = return + instance Convertible Day W3CDateTime where safeConvert day = case toGregorian day of