Main.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

module Main where

import qualified Data.Text as T

import Web.Response
import Web.Request
import Web.Router
import Web.Views
import Web.Utils
import Web.Http

table = [ Route indexGet (T.pack "/") GET
        , Route helloGet (T.pack "/hello") GET ]

main = do
  response <- resolve table (Request [] (T.pack "/hello") GET)
  print $ formResponse response