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