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

module ServerMain where

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

serverMain :: IO ()
serverMain = do
  printGreeter
  -- putStrLn "Starting file server @ http://localhost:8080/"
  -- fileServerThread <- forkIO $ run 8080 files
  -- putStrLn "File server is running\n"
  putStrLn "Starting app @ http://localhost:8080/"
  run 8080 workFlows
    where
      printGreeter = do
        putStrLn "\n\n"
        putStrLn "       _.=:'^^':=._            "
        putStrLn "     +^            ^+           .__.      .__.   .__.   .__."
        putStrLn "   +°     (.**.)     °+         |  |      |  |   |  |  /  /"
        putStrLn " °+     (.*oOOo*.)     +°       |  | .__. |  |   |  | /  /"
        putStrLn "+^     (.oO(00)Oo.)     ^+      |  |/    \\|  |   |  |/  /"
        putStrLn " °+     (.*oOOo*.)     +°       |  |  /\\  |  |   |  |  /"
        putStrLn "   +°     (.**.)     °+         |    /  \\    |   |    /"
        putStrLn "     °+_.        ._+°           |___/    \\___|   |___/"
        putStrLn "         ^=`°°`=^"
        putStrLn "\n\n"