~ Add more JSON instances.

1 files changed, 9 insertions, 0 deletions

diff --git a/src/System/Torrent/Storage.hs b/src/System/Torrent/Storage.hs
index 363f94ef..98cccccd 100644
--- a/src/System/Torrent/Storage.hs
+++ b/src/System/Torrent/Storage.hs
@@ -193,6 +193,15 @@ validatePiece pix st @ Storage {..} = {-# SCC validatePiece #-} do
 --          resetPiece pix st
           return True
 
+-- | Check each piece in the storage against content info hash.
+--
+--   Note that this function will block until each the entire storage
+--   checked. This may take a long time for a big torrents ­ use fork
+--   if needed.
+--
+validateStorage :: Storage -> IO ()
+validateStorage st = undefined -- (`validatePiece` st) [0..pieceCount st]
+
 {-----------------------------------------------------------------------
     Internal
 -----------------------------------------------------------------------}