From 1f2e453d0c9f8412b9032cb4e655713ecdcf1fa3 Mon Sep 17 00:00:00 2001 From: LLLL Colonq Date: Mon, 26 May 2025 04:43:38 -0400 Subject: web: Refactor major style --- fig-web/src/Fig/Web/Module/Sentiment.hs | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 fig-web/src/Fig/Web/Module/Sentiment.hs (limited to 'fig-web/src/Fig/Web/Module/Sentiment.hs') 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" -- cgit v1.2.3