diff options
| author | Andrew Guschin <guschin.drew@gmail.com> | 2023-03-05 13:45:37 +0400 |
|---|---|---|
| committer | Andrew Guschin <guschin.drew@gmail.com> | 2023-03-05 13:47:41 +0400 |
| commit | a0e8e5a91d15ed8c79f4a1b5914d3a6242c0cbd3 (patch) | |
| tree | 76f76788523a16c0db8cb8f3a90b23912acd37d4 /app/Web/Request.hs | |
| parent | dd73de2e563c332c5a90bb21c5c7e6cbebc0ab86 (diff) | |
Migrated project to cabal
Diffstat (limited to 'app/Web/Request.hs')
| -rw-r--r-- | app/Web/Request.hs | 15 |
1 files changed, 15 insertions, 0 deletions
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 |