add progress bars to restore

also, restore actually works!

1 files changed, 2 insertions, 1 deletions

diff --git a/Types.hs b/Types.hs
index 5e06a74..28458d5 100644
--- a/Types.hs
+++ b/Types.hs
@@ -10,6 +10,7 @@ module Types where
 import Types.Cost
 import qualified Data.ByteString as B
 import Data.String
+import Control.DeepSeq
 
 -- | keysafe stores secret keys.
 newtype SecretKey = SecretKey B.ByteString
@@ -30,7 +31,7 @@ newtype StorableObject = StorableObject { fromStorableObject :: B.ByteString }
 
 -- | An identifier for a StorableObject
 newtype StorableObjectIdent = StorableObjectIdent B.ByteString
-	deriving (Show)
+	deriving (Show, NFData)
 
 -- | A shard, with a known number (N of M).
 data Shard = Shard ShardNum StorableObject