(Server)+basic error handling and an index route

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