From 22882c1fa061106cfc06a8e0536cffcd8b5f5b0f Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gregor.kleen@ifi.lmu.de>
Date: Tue, 28 Jul 2020 20:21:02 +0200
Subject: [PATCH] refactor: hlint

---
 src/Utils/Failover.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/src/Utils/Failover.hs b/src/Utils/Failover.hs
index 3e745b5ed..e8c51dae7 100644
--- 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) $