From 1cc6cfef971ccb3c1d70f2a5570e445556e4f6fb Mon Sep 17 00:00:00 2001 From: Andrew Date: Fri, 27 Nov 2020 17:50:54 +0400 Subject: Changed directory structure --- Web/Request.hs | 13 +++++++++++++ 1 file changed, 13 insertions(+) create mode 100644 Web/Request.hs (limited to 'Web/Request.hs') 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 -- cgit v1.2.3