main :: IO ()
main = do
    void . forkIO $ runHttpsClient httpsPort
    putStrLn "HTTPS client thread started."
    runHttpServer httpPort
main :: IO ()
main = do
    void . forkIO $ runHttpsClient httpsPort
    putStrLn "HTTPS client thread started."
    runHttpServer httpPort
main = do
    void . forkIO $ runHttpsClient httpsPort
    putStrLn "HTTPS client thread started."
    runHttpServer httpPort