fraport/fradrive-old
Archived
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

refactor: hlint

Browse Source
This commit is contained in:
Gregor Kleen 2020-12-03 16:20:54 +01:00
parent 833b674c31
commit 22961d9a89
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Foundation/Yesod/ErrorHandler.hs
View File

@ -60,7 +60,7 @@ errorHandler err = do
maybe clearUltDest setUltDest $ do maybe clearUltDest setUltDest $ do
current <- mCurrent current <- mCurrent
case current of case current of
_ | W.requestMethod wai `notElem` ["GET"] -> Nothing _ | W.requestMethod wai /= "GET" -> Nothing
ErrorR -> Nothing ErrorR -> Nothing
current' -> Just (current', gets') current' -> Just (current', gets')
$logInfoS "errorHandler" "Redirect to LoginR" $logInfoS "errorHandler" "Redirect to LoginR"

2
src/Settings/Cluster.hs
View File

@ -165,5 +165,5 @@ instance FromJSON Auth.Key where
instance ClusterSetting 'ClusterAuthKey where instance ClusterSetting 'ClusterAuthKey where
type ClusterSettingValue 'ClusterAuthKey = Auth.Key type ClusterSettingValue 'ClusterAuthKey = Auth.Key
initClusterSetting _ = liftIO $ Auth.newKey initClusterSetting _ = liftIO Auth.newKey
knownClusterSetting _ = ClusterAuthKey knownClusterSetting _ = ClusterAuthKey