remove unnecessary directory level

src/Hash2Pub/Main.hs

@@ -0,0 +1,32 @@
+module Main where
+
+import System.Environment
+import Data.IP (IPv6, toHostAddress6) -- iproute, just for IPv6 string parsing
+import Control.Concurrent
+
+import Hash2Pub.FediChord
+
+main :: IO ()
+main = do
+    -- ToDo: parse and pass config
+    -- probably use `tomland` for that
+    conf <- readConfig
+    -- ToDo: load persisted caches, bootstrapping nodes …
+    (serverSock, thisNode) <- fediChordInit conf
+    print thisNode
+    print serverSock
+    -- currently no masking is necessary, as there is nothing to clean up
+    cacheWriterThread <- forkIO $ cacheWriter thisNode
+    -- idea: list of bootstrapping nodes, try joining within a timeout
+    -- stop main thread from terminating during development
+    getChar
+    return ()
+
+readConfig :: IO FediChordConf
+readConfig = do
+    confDomainString : ipString : portString : _ <- getArgs
+    return $ FediChordConf {
+        confDomain = confDomainString
+      , confIP = toHostAddress6 . read $ ipString
+      , confDhtPort = read portString
+                           }