33 lines
1.2 KiB
Haskell
33 lines
1.2 KiB
Haskell
-- 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"
|