Request.hs


1
2
3
4
5
6
7
8
9
10

module Request where

-- Request query url method
data Request = Request String String String

getQuery (Request query _ _) = query

getUrl (Request _ url _) = url

getMethod (Request _ _ method) = method