Add a deconstruction function for DotNetTime

haskell · Mar 10, 2011 · 3b4e0d8 · 3b4e0d8
1 parent b3e9a97
commit 3b4e0d8
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/Data/Aeson/Types.hs b/Data/Aeson/Types.hs
@@ -585,8 +585,9 @@ instance FromJSON Value where
 
 -- | A newtype wrapper for 'UTCTime' that uses the same non-standard
 -- serialization format as Microsoft .NET.
-newtype DotNetTime = DotNetTime UTCTime
-    deriving (Eq, Ord, Read, Show, Typeable, FormatTime)
+newtype DotNetTime = DotNetTime {
+      fromDotNetTime :: UTCTime
+    } deriving (Eq, Ord, Read, Show, Typeable, FormatTime)
 
 instance ToJSON DotNetTime where
     toJSON (DotNetTime t) =