-- 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 Workflow Visualiser @ http://localhost:8080/\n"
  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"