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