blob: 8e3925ef6ccaa96647b91407c4ad0aec2e2491f8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
module Main where
import System.IO
import Response
import Request
import Router
import Views
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
|
