Added basic HTTP types

1 files changed, 2 insertions, 7 deletions

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