From dd73de2e563c332c5a90bb21c5c7e6cbebc0ab86 Mon Sep 17 00:00:00 2001
From: Andrew <saintruler@gmail.com>
Date: Fri, 27 Nov 2020 22:32:26 +0400
Subject: Added settings files

---
 Main.hs | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

(limited to 'Main.hs')

diff --git a/Main.hs b/Main.hs
index 56fa613..433ad8d 100644
--- a/Main.hs
+++ b/Main.hs
@@ -16,22 +16,25 @@ import Web.Response
 import Web.Router
 import Routes
 
+import Settings (host, port)
+
 main :: IO ()
 main = do
-  print "Server launched"
-  runTCPServer Nothing "3000" talk
+  let hostStr = case host of
+                  Just smt -> smt
+                  Nothing  -> "0.0.0.0"
+
+  putStrLn $ "Server launched on " ++ hostStr ++ ":" ++ port
+  runTCPServer host port talk
   where
     talk s = do
       msg <- recv s 1024
-      -- print msg
-      print "Got request"
+      putStrLn "Got request"
       unless (S.null msg) $ do
         let (request, _, _) = parseHttp $ decodeUtf8 msg
         response <- resolve routesTable $ request
         sendAll s $ encodeUtf8 (formResponse response)
-    
 
--- from the "network-run" package.
 runTCPServer :: Maybe HostName -> ServiceName -> (Socket -> IO a) -> IO a
 runTCPServer mhost port server = withSocketsDo $ do
     addr <- resolve
-- 
cgit v1.2.3