fix

1 files changed, 1 insertions, 1 deletions

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