From 4ff25ca59ecb0ccba00b60dd542e8bc7e99b1206 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 11 Aug 2016 17:47:05 -0400 Subject: show store successes/failures --- Storage.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'Storage.hs') diff --git a/Storage.hs b/Storage.hs index 3e5707f..6b23c33 100644 --- a/Storage.hs +++ b/Storage.hs @@ -13,5 +13,6 @@ data Storage = Storage } data StoreResult = StoreSuccess | StoreFailure String + deriving (Show) data RetrieveResult = RetrieveSuccess Shard | RetrieveFailure String -- cgit v1.2.3