From abbf64f5a5453fcb6bfe9b90df9e8f6fa002b66a Mon Sep 17 00:00:00 2001 From: Andrew Guschin Date: Sun, 5 Mar 2023 14:28:47 +0400 Subject: Fixed warnings --- app/Web/Request.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'app/Web/Request.hs') 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 -- cgit v1.2.3