blob: ced8f228bf73b6ffb126b7163642d35ea436f8c7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
module Main where
import Response
import Request
import Router
import Views
import Utils
import Http
table = [ Route indexGet "/" GET
, Route helloGet "/hello" GET ]
main = do
response <- resolve table (Request [] "/hello" GET)
print $ response
|
