From 22961d9a8991270f3242328bbc9388af66fa16cd Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gregor.kleen@ifi.lmu.de>
Date: Thu, 3 Dec 2020 16:20:54 +0100
Subject: [PATCH] refactor: hlint

---
 src/Foundation/Yesod/ErrorHandler.hs | 2 +-
 src/Settings/Cluster.hs              | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Foundation/Yesod/ErrorHandler.hs b/src/Foundation/Yesod/ErrorHandler.hs
index efae38c85..181392774 100644
--- a/src/Foundation/Yesod/ErrorHandler.hs
+++ b/src/Foundation/Yesod/ErrorHandler.hs
@@ -60,7 +60,7 @@ errorHandler err = do
       maybe clearUltDest setUltDest $ do
         current <- mCurrent
         case current of
-          _ | W.requestMethod wai `notElem` ["GET"] -> Nothing
+          _ | W.requestMethod wai /= "GET" -> Nothing
           ErrorR -> Nothing
           current' -> Just (current', gets')
       $logInfoS "errorHandler" "Redirect to LoginR"
diff --git a/src/Settings/Cluster.hs b/src/Settings/Cluster.hs
index 5bc298e83..c13ef8c28 100644
--- a/src/Settings/Cluster.hs
+++ b/src/Settings/Cluster.hs
@@ -165,5 +165,5 @@ instance FromJSON Auth.Key where
 
 instance ClusterSetting 'ClusterAuthKey where
   type ClusterSettingValue 'ClusterAuthKey = Auth.Key
-  initClusterSetting _ = liftIO $ Auth.newKey
+  initClusterSetting _ = liftIO Auth.newKey
   knownClusterSetting _ = ClusterAuthKey