Migrated project to cabal

1 files changed, 17 insertions, 0 deletions

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