refactor: hlint

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"

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