From f60ac335e4e827fd242ab22539adb49f26e2c319 Mon Sep 17 00:00:00 2001
From: Joey Hess <joeyh@joeyh.name>
Date: Wed, 17 Aug 2016 14:28:33 -0400
Subject: add progress bars to restore

also, restore actually works!
---
 Types.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'Types.hs')

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
-- 
cgit v1.2.3