From 6907a35ac265c4d4eeb127befea481a84e59ad4a Mon Sep 17 00:00:00 2001
From: Andrew <saintruler@gmail.com>
Date: Thu, 26 Nov 2020 16:51:52 +0400
Subject: Added Http parsing

---
 Views.hs | 10 ++++++++++
 1 file changed, 10 insertions(+)
 create mode 100644 Views.hs

(limited to 'Views.hs')

diff --git a/Views.hs b/Views.hs
new file mode 100644
index 0000000..47d81e5
--- /dev/null
+++ b/Views.hs
@@ -0,0 +1,10 @@
+module Views where
+
+import Request
+import Response
+
+indexGet (Request query url method) =
+  return $ HtmlResponse 200 "<strong>index</strong>"
+
+helloGet req =
+  return $ HtmlResponse 200 "<i>hello</i>"
\ No newline at end of file
-- 
cgit v1.2.3