Changed String to Text everywhere

1 files changed, 5 insertions, 3 deletions

diff --git a/Main.hs b/Main.hs
index 86bc37e..aefc95c 100644
--- a/Main.hs
+++ b/Main.hs
@@ -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