From fb7e450d917ec87202f9de019238b78c1b645328 Mon Sep 17 00:00:00 2001 From: Andrew Date: Fri, 27 Nov 2020 17:40:04 +0400 Subject: Added basic HTTP types --- Http.hs | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'Http.hs') 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 -- cgit v1.2.3