blob: 38f91b546bf31c60d11e186c5d91fa8c7d709bd6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
module Web.Request where
import Web.Http
-- Request query url method
data Request = Request [QueryPair] String Method
deriving Show
getQuery (Request query _ _) = query
getUrl (Request _ url _) = url
getMethod (Request _ _ method) = method
|
