diff options
author | Joey Hess <joeyh@joeyh.name> | 2016-08-22 13:55:40 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2016-08-22 13:55:40 -0400 |
commit | a558af3f35d793acbde90a7a5035b45089b52446 (patch) | |
tree | 67d60b1691dd6a168d4957aebff1a19dec82d967 /HTTP/Server.hs | |
parent | ebd836e3462a602ba278d482e7a752d3154d626c (diff) | |
download | keysafe-a558af3f35d793acbde90a7a5035b45089b52446.tar.gz |
obscure on startup
This way, if the server is killed before it can obscure, make sure things
get obscured.
Diffstat (limited to 'HTTP/Server.hs')
-rw-r--r-- | HTTP/Server.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/HTTP/Server.hs b/HTTP/Server.hs index 6517897..f98d062 100644 --- a/HTTP/Server.hs +++ b/HTTP/Server.hs @@ -82,10 +82,10 @@ dummyShareNum = 1 -- the thread runs a maximum of once per half-hour. obscurerThread :: IO () obscurerThread = do - _ <- atomically $ takeTMVar (obscurerRequest serverState) _ <- obscureShares serverStorage putStrLn "obscured shares" threadDelay (1000000*60*30) + _ <- atomically $ takeTMVar (obscurerRequest serverState) obscurerThread requestObscure :: IO () |