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

---
 Request.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'Request.hs')

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
 
-- 
cgit v1.2.3