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