diff options
| author | Andrew Guschin <guschin.drew@gmail.com> | 2023-03-05 14:28:47 +0400 |
|---|---|---|
| committer | Andrew Guschin <guschin.drew@gmail.com> | 2023-03-05 14:28:47 +0400 |
| commit | abbf64f5a5453fcb6bfe9b90df9e8f6fa002b66a (patch) | |
| tree | 9e567245de098d9938b97a96b5e20bfa2ebe2543 /app/Web/Request.hs | |
| parent | a0e8e5a91d15ed8c79f4a1b5914d3a6242c0cbd3 (diff) | |
Diffstat (limited to 'app/Web/Request.hs')
| -rw-r--r-- | app/Web/Request.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/app/Web/Request.hs b/app/Web/Request.hs index 71dc421..96144b8 100644 --- a/app/Web/Request.hs +++ b/app/Web/Request.hs @@ -8,8 +8,11 @@ import Web.Http 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) = method
\ No newline at end of file +getMethod :: Request -> Method +getMethod (Request _ _ method) = method |