From 0ece6f01aa3a4f30f4ab3185bf2e0c3242a48409 Mon Sep 17 00:00:00 2001
From: Lia Lenckowski <lialenck@protonmail.com>
Date: Wed, 28 Feb 2024 08:57:59 +0100
Subject: slight simplifications: use getsYesod instead of ... <$> getYesod

---
 src/Main.hs | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/src/Main.hs b/src/Main.hs
index 0aac4ec..6c4834f 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -79,7 +79,7 @@ getStyleR = do
 
 getBangsR :: Handler TypedContent
 getBangsR = do
-    st <- bangState <$> getYesod
+    st <- getsYesod bangState
 
     -- changes here should propagate quicker, so we're using 1h.
     -- besides, we're using an eTag as well.
@@ -110,20 +110,20 @@ getOpenSearchR :: Handler TypedContent
 getOpenSearchR = do
     neverExpires
 
-    cfg <- config <$> getYesod
+    cfg <- getsYesod config
     resXml <- makeOpenSearch cfg <$> lookupGetParam "default"
     respond "application/opensearchdescription+xml" resXml
 
 postVerdictR :: Bool -> Handler ()
 postVerdictR b = do
-    cfg <- config <$> getYesod
+    cfg <- getsYesod config
     ensureAuth cfg
 
     (PendingBang n u dp mayEm) <- requireCheckJsonBody
     -- NOTE: known race condition: the bang bang may be deleted from the database
     -- before the updated bangs are written to disk, leading to the loss of
     -- a pending bang on very specific crash timing.
-    st <- bangState <$> getYesod
+    st <- getsYesod bangState 
     when b $ liftIO $ addBang n u dp st
     runDB $ deleteWhere [PendingBangBang ==. n]
 
-- 
cgit v1.2.3-70-g09d2