-
Notifications
You must be signed in to change notification settings - Fork 0
/
Main.hs
73 lines (72 loc) · 1.75 KB
/
Main.hs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
-- HTTP/1.1 requests consist of the following components:
--
-- request:
--
-- Request-Line
-- *(( general-header
-- | request-header
-- | entity-header ) CRLF)
-- CRLF
-- [ message-body ]
--
-- request-line:
--
-- method SP request-uri SP http-version CRLF
--
-- method: "OPTIONS"
-- | "GET"
-- | "HEAD"
-- | "POST"
-- | "PUT"
-- | "DELETE"
-- | "TRACE"
-- | "CONNECT"
--
-- request-uri: "*"
-- | absoluteURI
-- | abs_path
-- | authority
--
-- general-header: Cache-Control
-- | Connection
-- | Date
-- | Pragma
-- | Trailer
-- | Transfer-Encoding
-- | Upgrade
-- | Via
-- | Warning
--
-- request-header: Accept
-- | Accept-Charset
-- | Accept-Encoding
-- | Accept-Language
-- | Authorization
-- | Expect
-- | From
-- | Host
-- | If-Match
-- | If-Modified-Since
-- | If-Unmodified-Since
-- | Max-Forwards
-- | Proxy-Authorization
-- | Range
-- | Referer
-- | TE
-- | User-Agent
--
-- entity-header: Allow
-- | Content-Encoding
-- | Content-Language
-- | Content-Length
-- | Content-Location
-- | Content-MD5
-- | Content-Range
-- | Content-Type
-- | Expires
-- | Last-Modified
-- | extension-header
--
-- extension-header: message-header
import qualified Http.Request
import qualified Http.Response