module Node where
import Network.Socket

type ID = String

data Node = Node {
  myPort :: String,
  sockets :: [Socket]
  }

initNode :: String -> [Socket] -> Node
initNode port sockets = Node port sockets

module Node where
import qualified Data.ByteString as B
import qualified Data.HashMap.Strict as HM
import           Network.Socket
import           RoutingData

data Node = Node { port :: B.ByteString
                 , id :: ID
                 , tree :: Tree
                 , store :: HM.HashMap B.ByteString B.ByteString
                 , sockets :: [Socket]
                 }

Move all info to routing data, construct (almost) full node
Move all info to routing data, construct (almost) full node
