-- SPDX-FileCopyrightText: 2023 David Mosbach <david.mosbach@campus.lmu.de>
--
-- SPDX-License-Identifier: AGPL-3.0-or-later

module ServerMain where

import Routes (workFlows, files)
import Network.Wai
import Network.Wai.Handler.Warp ( run )
import Control.Concurrent

serverMain :: IO ()
serverMain = do
  putStrLn "Starting app @ http://localhost:8081/"
  mainServerThread <- forkIO $ run 8081 workFlows
  putStrLn "Main server is running"
  putStrLn "Starting file server @ http://localhost:8080/"
  run 8080 files