From a0e8e5a91d15ed8c79f4a1b5914d3a6242c0cbd3 Mon Sep 17 00:00:00 2001 From: Andrew Guschin Date: Sun, 5 Mar 2023 13:45:37 +0400 Subject: Migrated project to cabal --- app/Web/Request.hs | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 app/Web/Request.hs (limited to 'app/Web/Request.hs') diff --git a/app/Web/Request.hs b/app/Web/Request.hs new file mode 100644 index 0000000..71dc421 --- /dev/null +++ b/app/Web/Request.hs @@ -0,0 +1,15 @@ +module Web.Request where + +import Data.Text (Text) + +import Web.Http + +-- Request query url method +data Request = Request [QueryPair] Text Method + deriving Show + +getQuery (Request query _ _) = query + +getUrl (Request _ url _) = url + +getMethod (Request _ _ method) = method \ No newline at end of file -- cgit v1.2.3