diff options
| -rw-r--r-- | Server/Main.hs | 8 | ||||
| -rw-r--r-- | Server/pages/index.html | 35 |
2 files changed, 42 insertions, 1 deletions
diff --git a/Server/Main.hs b/Server/Main.hs index bed3de5..8954d6d 100644 --- a/Server/Main.hs +++ b/Server/Main.hs @@ -2,6 +2,7 @@ module Main where import Data.List +import Data.ByteString.Lazy (fromStrict) import Text.Printf import Network.Wai import Network.HTTP.Types @@ -15,6 +16,11 @@ app request respond = respond $ index :: Response index = + responseFile status200 + [("Content-Type", "text/html;charset=UTF-8")] + "pages/index.html" + Nothing + responseLBS status200 [("Content-Type", "text/plain")] "Hello, world!" @@ -22,7 +28,7 @@ index = errorResponse :: Response errorResponse = responseFile status200 - [("Content-Type", "text/plain")] + [("Content-Type", "text/html;charset=UTF-8")] "pages/error.html" Nothing diff --git a/Server/pages/index.html b/Server/pages/index.html new file mode 100644 index 0000000..0358ac6 --- /dev/null +++ b/Server/pages/index.html @@ -0,0 +1,35 @@ +<!doctype html> +<html class='no-js' lang=''> + <head> + <meta charset='utf-8'> + <meta http-equiv='x-ua-compatible' content='ie=edge'> + <title>NumberDisplay - Error</title> + <meta name='description' content='Error page for NumberDisplay program'> + <meta name='author' content='Aryadev Chavali'/> + <meta name='viewport' content='width=device-width, initial-scale=1'> + + <link rel='apple-touch-icon' href='/apple-touch-icon.png'> + <link rel='shortcut icon' href='/favicon.ico'/> + <!-- Place favicon.ico in the root directory --> + <style> + #form { + width:50%; + display:grid; + grid-template-columns:10fr 1fr + } + </style> + </head> + <body> + <!--[if lt IE 8]> + <p class='browserupgrade'> + You are using an <strong>outdated</strong> browser. Please + <a href='http://browsehappy.com/'>upgrade your browser</a> to improve + your experience. + </p> + <![endif]--> + <form id="form" action="/input"> + <input name="number" type="text" value=""/> + <button>Enter</button> + </form> + </body> +</html> |