progress display for storing

1 files changed, 4 insertions, 0 deletions

diff --git a/Shard.hs b/Shard.hs
index 11be850..da09188 100644
--- a/Shard.hs
+++ b/Shard.hs
@@ -19,6 +19,7 @@ import qualified Raaz.Hash.Sha256 as Raaz
 import qualified Data.Text as T
 import qualified Data.Text.Encoding as E
 import Data.Monoid
+import Control.DeepSeq
 
 data ShardIdents = ShardIdents
 	{ getIdents :: [StorableObjectIdent]
@@ -26,6 +27,9 @@ data ShardIdents = ShardIdents
 	, identsBruteForceCalc :: CostCalc BruteForceOp UnknownName
 	}
 
+instance NFData ShardIdents where
+	rnf = rnf . getIdents
+
 instance HasCreationCost ShardIdents where
 	getCreationCost = identsCreationCost