diff options
Diffstat (limited to 'Server/Main.hs')
-rw-r--r-- | Server/Main.hs | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/Server/Main.hs b/Server/Main.hs new file mode 100644 index 0000000..bed3de5 --- /dev/null +++ b/Server/Main.hs @@ -0,0 +1,32 @@ +{-# LANGUAGE OverloadedStrings #-} +module Main where + +import Data.List +import Text.Printf +import Network.Wai +import Network.HTTP.Types +import Network.Wai.Handler.Warp (run) + +app :: Application +app request respond = respond $ + case rawPathInfo request of + "/" -> index + _ -> errorResponse + +index :: Response +index = + responseLBS status200 + [("Content-Type", "text/plain")] + "Hello, world!" + +errorResponse :: Response +errorResponse = + responseFile status200 + [("Content-Type", "text/plain")] + "pages/error.html" + Nothing + +main :: IO () +main = do + putStrLn $ "http://localhost:8080/" + run 8080 app |