1 files changed, 21 insertions, 0 deletions
diff --git a/fig-web/src/Fig/Web/Module/Sentiment.hs b/fig-web/src/Fig/Web/Module/Sentiment.hs
new file mode 100644
index 0000000..38a9250
--- /dev/null
+++ b/fig-web/src/Fig/Web/Module/Sentiment.hs
@@ -0,0 +1,21 @@
+module Fig.Web.Module.Sentiment
+  ( public
+  ) where
+
+import Fig.Prelude
+
+import Fig.Web.Utils
+import Fig.Web.Types
+import qualified Fig.Web.DB as DB
+
+public :: Module
+public a = do
+  onGet "/api/sentiment" do
+    s <- DB.get a.db "sentiment" >>= \case
+      Nothing -> pure "0"
+      Just x -> pure x
+    respondText $ decodeUtf8 s
+  onPost "/api/sentiment/green" do
+    DB.incr a.db "sentiment"
+  onPost "/api/sentiment/red" do
+    DB.decr a.db "sentiment"