Main.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

module Main where

import System.IO

import Response
import Request
import Router
import Views
import Utils

renderTemplate name = do
  template <- readTemplate name
  return $ HtmlResponse 200 template

readTemplate name = do
  handle <- openFile ("templates/" ++ name) ReadMode
  hGetContents handle

table = [ Route indexGet "/" "GET"
        , Route helloGet "/hello" "GET" ]

main = do
  response <- resolve table (Request "query" "/jopa" "GET")
  print $ getContent response