app/Routes.hs


1
2
3
4
5
6
7
8
9
10
11
12

module Routes where

import qualified Data.Text as T

import Web.Router
import Web.Http

import Views

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