Added Http parsing

1 files changed, 5 insertions, 6 deletions

diff --git a/Router.hs b/Router.hs
index 4798ec1..cad4bc8 100644
--- a/Router.hs
+++ b/Router.hs
@@ -4,6 +4,7 @@ import Control.Exception
 import Response
 import Request
 
+-- Route callback url method
 data Route = Route (Request -> IO Response) String String
 
 data RouterError = RouteNotFound
@@ -11,11 +12,9 @@ data RouterError = RouteNotFound
 
 instance Exception RouterError
 
-getResponse [] _ = throw RouteNotFound
-getResponse (Route callback routeUrl _ : routerTable) req @ (Request _ url _) =
+resolve :: [Route] -> Request -> IO Response
+resolve [] _ = return notFoundResponse
+resolve (Route callback routeUrl _ : routerTable) req @ (Request _ url _) =
   if url == routeUrl then
     callback req
-  else getResponse routerTable req
-
-router table req =
-  
+  else resolve routerTable req