From 446602fe336ad1c2a23e3d50d7cd1d1356fcc9de Mon Sep 17 00:00:00 2001 From: Andrew Guschin Date: Thu, 26 Nov 2020 13:55:55 +0400 Subject: Initial commit --- Request.hs | 9 +++++++++ 1 file changed, 9 insertions(+) create mode 100644 Request.hs (limited to 'Request.hs') diff --git a/Request.hs b/Request.hs new file mode 100644 index 0000000..a0c18d7 --- /dev/null +++ b/Request.hs @@ -0,0 +1,9 @@ +module Request where + +data Request = Request String String String + +getQuery (Request query _ _) = query + +getUrl (Request _ url _) = url + +getMethod (Request _ _ method) = method \ No newline at end of file -- cgit v1.2.3