diff options
author | Joey Hess <joeyh@joeyh.name> | 2016-08-22 13:47:23 -0400 |
---|---|---|
committer | Joey Hess <joeyh@joeyh.name> | 2016-08-22 13:47:23 -0400 |
commit | 013529513af62e14c2bfc0eb4f699281cdd94f84 (patch) | |
tree | 5e54d01a148587ed5d3fb9eb83eb222613a4c0e3 /HTTP/Server.hs | |
parent | f20df55a550cdd5ce88ef59e7bd92d3ca464ab55 (diff) | |
download | keysafe-013529513af62e14c2bfc0eb4f699281cdd94f84.tar.gz |
wire up client to Storage.Network
Diffstat (limited to 'HTTP/Server.hs')
-rw-r--r-- | HTTP/Server.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/HTTP/Server.hs b/HTTP/Server.hs index 1d5e145..6517897 100644 --- a/HTTP/Server.hs +++ b/HTTP/Server.hs @@ -31,7 +31,7 @@ serverState = unsafePerformIO $ ServerState runServer :: Port -> IO () runServer port = do - forkIO obscurerThread + _ <- forkIO obscurerThread run port app serverStorage :: Storage @@ -83,7 +83,7 @@ dummyShareNum = 1 obscurerThread :: IO () obscurerThread = do _ <- atomically $ takeTMVar (obscurerRequest serverState) - obscureShares serverStorage + _ <- obscureShares serverStorage putStrLn "obscured shares" threadDelay (1000000*60*30) obscurerThread |