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