From fb7e450d917ec87202f9de019238b78c1b645328 Mon Sep 17 00:00:00 2001
From: Andrew <saintruler@gmail.com>
Date: Fri, 27 Nov 2020 17:40:04 +0400
Subject: Added basic HTTP types

---
 Router.hs | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

(limited to 'Router.hs')

diff --git a/Router.hs b/Router.hs
index cad4bc8..17ee11c 100644
--- a/Router.hs
+++ b/Router.hs
@@ -1,16 +1,11 @@
 module Router where
 
-import Control.Exception
 import Response
 import Request
+import Http
 
 -- Route callback url method
-data Route = Route (Request -> IO Response) String String
-
-data RouterError = RouteNotFound
-  deriving Show
-
-instance Exception RouterError
+data Route = Route (Request -> IO Response) String Method
 
 resolve :: [Route] -> Request -> IO Response
 resolve [] _ = return notFoundResponse
-- 
cgit v1.2.3