diff options
Diffstat (limited to 'Main.hs')
| -rw-r--r-- | Main.hs | 8 |
1 files changed, 5 insertions, 3 deletions
@@ -1,5 +1,7 @@ module Main where +import qualified Data.Text as T + import Web.Response import Web.Request import Web.Router @@ -7,9 +9,9 @@ import Web.Views import Web.Utils import Web.Http -table = [ Route indexGet "/" GET - , Route helloGet "/hello" GET ] +table = [ Route indexGet (T.pack "/") GET + , Route helloGet (T.pack "/hello") GET ] main = do - response <- resolve table (Request [] "/hello" GET) + response <- resolve table (Request [] (T.pack "/hello") GET) print $ response
\ No newline at end of file |