refactor: hlint

2020-07-28 20:21:02 +02:00 · 2020-07-28 20:21:02 +02:00 · 22882c1fa0
commit 22882c1fa0
parent 9213b7554a
1 changed files with 1 additions and 3 deletions
--- a/src/Utils/Failover.hs
+++ b/src/Utils/Failover.hs
@ -164,9 +164,7 @@ withFailover' testTarget' f@Failover{..} mode detAcceptable act = withFailoverRe
                -> fromMaybe (goFirst failover') $ P.next failover'
              | otherwise
                -> failover'
-            where goFirst l = case P.previous l of
-                    Nothing -> l
-                    Just l' -> goFirst l'
+            where goFirst l = maybe l goFirst $ P.previous l

        $logDebugS "withFailover'" $ tshow (hashUnique alreadyTested) <> " using item " <> failoverLabel
        res' <- handleAll (\err -> $logErrorS "withFailover'" (tshow (hashUnique alreadyTested) <> " exception during act or detAcceptable: " <> tshow err) >> recordFailure >> throwM err) $