diff options
-rw-r--r-- | Storage.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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 |