@@ -585,8 +585,9 @@ instance FromJSON Value where
586-- | A newtype wrapper for 'UTCTime' that uses the same non-standard
586-- | A newtype wrapper for 'UTCTime' that uses the same non-standard
587-- serialization format as Microsoft .NET.
587-- serialization format as Microsoft .NET.
588−newtype DotNetTime = DotNetTime UTCTime
588+newtype DotNetTime = DotNetTime {
589+ fromDotNetTime :: UTCTime
589− deriving (Eq, Ord, Read, Show, Typeable, FormatTime)
590+ } deriving (Eq, Ord, Read, Show, Typeable, FormatTime)
591instance ToJSON DotNetTime where
592instance ToJSON DotNetTime where
592 toJSON (DotNetTime t) =
593 toJSON (DotNetTime t) =