Added basic HTTP types

1 files changed, 6 insertions, 1 deletions

diff --git a/Http.hs b/Http.hs
index 1d60456..f8da91f 100644
--- a/Http.hs
+++ b/Http.hs
@@ -3,5 +3,10 @@ module Http where
 import Data.Text (Text)
 
 data Header = Header Text Text
-data Method = GET | POST
+  deriving Show
+
+data Method = GET | PUT | POST
+  deriving (Show, Eq)
+
 data QueryPair = QueryPair Text Text
+  deriving Show