blob: 96144b8da1cf0d18b1132160be21379808684cd3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
module Web.Request where
import Data.Text (Text)
import Web.Http
-- Request query url method
data Request = Request [QueryPair] Text Method
deriving Show
getQuery :: Request -> [QueryPair]
getQuery (Request query _ _) = query
getUrl :: Request -> Text
getUrl (Request _ url _) = url
getMethod :: Request -> Method
getMethod (Request _ _ method) = method
|
