1 files changed, 14 insertions, 3 deletions

diff --git a/src/Network/BitTorrent/Internal/Cache.hs b/src/Network/BitTorrent/Internal/Cache.hs
index b77e5e82..5c3f379b 100644
--- a/src/Network/BitTorrent/Internal/Cache.hs
+++ b/src/Network/BitTorrent/Internal/Cache.hs
@@ -56,15 +56,26 @@ data Cached a = Cached
 
 -- INVARIANT: minUpdateInterval <= updateInterval
 
--- | TODO exsample
+-- | Examples:
+--
+--     { data: "some string",
+--       observed: "2014-03-20T19:49:39.505Z",
+--       expires: "2014-03-20T19:50:10.881Z" }
+--
+--   or:
+--
+--     { expired: "2014-03-20T19:50:10.881Z" }
+--
 instance ToJSON a => ToJSON (Cached a) where
   toJSON Cached {..}
     | currentTime < expireTime = object
       [ "observed" .= posixSecondsToUTCTime lastUpdated
-      , "expired"  .= posixSecondsToUTCTime expireTime
+      , "expires"  .= posixSecondsToUTCTime expireTime
       , "data"     .= cachedData
       ]
-    | otherwise = String "cached data expired"
+    | otherwise = object
+      [ "expired"  .= posixSecondsToUTCTime expireTime
+      ]
     where
       expireTime  = currentTime + updateInterval
       currentTime = unsafePerformIO getPOSIXTime