Added basic HTTP types

1 files changed, 4 insertions, 1 deletions

diff --git a/Request.hs b/Request.hs
index fae0a32..ad63909 100644
--- a/Request.hs
+++ b/Request.hs
@@ -1,7 +1,10 @@
 module Request where
 
+import Http
+
 -- Request query url method
-data Request = Request String String String
+data Request = Request [QueryPair] String Method
+  deriving Show
 
 getQuery (Request query _ _) = query