more tests

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

diff --git a/Data/Time/W3C/Types.hs b/Data/Time/W3C/Types.hs
index 9f48f68be58dbc627f8f08a6e4d6b71a612f11e9..3a996cba2fe60574e7cf622848dfeb065b0fd746 100644 (file)
--- 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
 
         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
 instance Convertible Day W3CDateTime where
     safeConvert day
         = case toGregorian day of