data structure for RealNode holds common config and management data

contributes to #56, #34, #2

test/FediChordSpec.hs

@@ -1,12 +1,13 @@
 {-# LANGUAGE OverloadedStrings #-}
 module FediChordSpec where
 
+import           Control.Concurrent.STM.TVar
 import           Control.Exception
-import           Data.ASN1.Parse         (runParseASN1)
-import qualified Data.ByteString         as BS
-import qualified Data.Map.Strict         as Map
-import           Data.Maybe              (fromJust, isJust)
-import qualified Data.Set                as Set
+import           Data.ASN1.Parse             (runParseASN1)
+import qualified Data.ByteString             as BS
+import qualified Data.Map.Strict             as Map
+import           Data.Maybe                  (fromJust, isJust)
+import qualified Data.Set                    as Set
 import           Data.Time.Clock.POSIX
 import           Network.Socket
 import           Test.Hspec
@@ -292,11 +293,20 @@ exampleNodeState = RemoteNodeState {
                    }
 
 exampleLocalNode :: IO LocalNodeState
-exampleLocalNode = nodeStateInit $ FediChordConf {
+exampleLocalNode = nodeStateInit =<< (newTVarIO $ RealNode {
+            vservers = []
+          , nodeConfig = exampleFediConf
+          , bootstrapNodes = confBootstrapNodes exampleFediConf
+                                                        })
+
+
+exampleFediConf :: FediChordConf
+exampleFediConf = FediChordConf {
     confDomain = "example.social"
   , confIP = exampleIp
   , confDhtPort = 2342
                                                     }
+
 exampleNodeDomain :: String
 exampleNodeDomain = "example.social"
 exampleVs :: (Integral i) => i