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

add reference from RealNode to Service

Browse source 
This required to make both RealNode(STM) and LocalNodeState(STM) parameterisable
polymorphic types
This commit is contained in:
Trolli Schmittlauch 2020-07-30 02:19:26 +02:00
parent 4bf8091143
commit 5ffe1b074e
5 changed files with 68 additions and 67 deletions
Download patch file Download diff file Expand all files Collapse all files

2
test/FediChordSpec.hs
View file

@ -292,7 +292,7 @@ exampleNodeState = RemoteNodeState {
, vServerID = 0
}
exampleLocalNode :: IO LocalNodeState
exampleLocalNode :: IO (LocalNodeState s)
exampleLocalNode = nodeStateInit =<< (newTVarIO $ RealNode {
vservers = []
, nodeConfig = exampleFediConf