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