schmittlauch/Hash2Pub
1
0
Fork 1
Code Issues 47 Pull requests Releases Wiki Activity

fix type signature of fediChordInit

Browse source
This commit is contained in:
Trolli Schmittlauch 2020-07-30 01:30:42 +02:00
parent 98ca0ff13e
commit 4bf8091143
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/Hash2Pub/FediChord.hs
View file

@ -95,10 +95,10 @@ import Debug.Trace (trace)
-- | initialise data structures, compute own IDs and bind to listening socket -- | initialise data structures, compute own IDs and bind to listening socket
-- ToDo: load persisted state, thus this function already operates in IO -- ToDo: load persisted state, thus this function already operates in IO
--fediChordInit :: (DHT d, Service s d) fediChordInit :: (Service s RealNodeSTM)
-- => FediChordConf => FediChordConf
-- -> (d -> s d) -- ^ runner function for service -> (RealNodeSTM -> IO (s RealNodeSTM)) -- ^ runner function for service
-- -> IO (Socket, LocalNodeStateSTM) -> IO (Socket, LocalNodeStateSTM)
fediChordInit initConf serviceRunner = do fediChordInit initConf serviceRunner = do
emptyLookupCache <- newTVarIO Map.empty emptyLookupCache <- newTVarIO Map.empty
let realNode = RealNode { let realNode = RealNode {