From 463665e8a91e8b0611c3e8413842182c67d3ea3d Mon Sep 17 00:00:00 2001
From: Andrew <saintruler@gmail.com>
Date: Fri, 27 Nov 2020 18:06:40 +0400
Subject: Changed String to Text everywhere

---
 Main.hs | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'Main.hs')

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
-- 
cgit v1.2.3