diff options
| author | Andrew <saintruler@gmail.com> | 2020-11-27 17:50:54 +0400 |
|---|---|---|
| committer | Andrew <saintruler@gmail.com> | 2020-11-27 17:50:54 +0400 |
| commit | 1cc6cfef971ccb3c1d70f2a5570e445556e4f6fb (patch) | |
| tree | 4773f8178225068e19bd7418622f8dd9084543ac /Web/Request.hs | |
| parent | fb7e450d917ec87202f9de019238b78c1b645328 (diff) | |
Changed directory structure
Diffstat (limited to 'Web/Request.hs')
| -rw-r--r-- | Web/Request.hs | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/Web/Request.hs b/Web/Request.hs new file mode 100644 index 0000000..38f91b5 --- /dev/null +++ b/Web/Request.hs @@ -0,0 +1,13 @@ +module Web.Request where + +import Web.Http + +-- Request query url method +data Request = Request [QueryPair] String Method + deriving Show + +getQuery (Request query _ _) = query + +getUrl (Request _ url _) = url + +getMethod (Request _ _ method) = method
\ No newline at end of file |