From ee4d97709f6a33ab1eadc9574adf4430317550ba Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 14 Sep 2016 17:44:22 -0400 Subject: fix --- Storage.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Storage.hs') diff --git a/Storage.hs b/Storage.hs index 2d9f631..40c0dd4 100644 --- a/Storage.hs +++ b/Storage.hs @@ -157,7 +157,7 @@ storeChaff hn port = forever $ do let i = S.toList is !! (n - 1) r <- storeShare server i share case r of - StoreSuccess -> putStr "." + StoreSuccess -> putStr "+" _ -> putStr "!" hFlush stdout go sis' rng' sizes n -- cgit v1.2.3