From a0e8e5a91d15ed8c79f4a1b5914d3a6242c0cbd3 Mon Sep 17 00:00:00 2001
From: Andrew Guschin <guschin.drew@gmail.com>
Date: Sun, 5 Mar 2023 13:45:37 +0400
Subject: Migrated project to cabal

---
 app/Web/Router.hs | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 app/Web/Router.hs

(limited to 'app/Web/Router.hs')

diff --git a/app/Web/Router.hs b/app/Web/Router.hs
new file mode 100644
index 0000000..5e014d9
--- /dev/null
+++ b/app/Web/Router.hs
@@ -0,0 +1,17 @@
+module Web.Router where
+
+import Data.Text (Text)
+
+import Web.Response
+import Web.Request
+import Web.Http
+
+-- Route callback url method
+data Route = Route (Request -> IO Response) Text Method
+
+resolve :: [Route] -> Request -> IO Response
+resolve [] _ = return notFoundResponse
+resolve (Route callback routeUrl _ : routerTable) req@(Request _ url _) =
+  if url == routeUrl then
+    callback req
+  else resolve routerTable req
-- 
cgit v1.2.3