Request.hs


1
2
3
4
5
6
7
8
9
10
11
12
13

module Request where

import 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