Fix hlint: replace lambdas with flip seq

Author: elopez

lib/Echidna/Exec.hs

@@ -350,7 +350,7 @@ forceVMData vm =
     -- the suspended inserts still need their spines demanded via size
     subStateWhnf =
       let ss = vm.tx.subState
-          whnfElems = foldl (\u x -> x `seq` u) ()
+          whnfElems = foldl (flip seq) ()
       in whnfElems ss.selfdestructs `seq`
          whnfElems ss.touchedAccounts `seq`
          whnfElems (map fst ss.refunds) `seq`

lib/Echidna/UI.hs

@@ -388,7 +388,7 @@ monitor snapshotRef = do
             -- evaluated, and nothing in the render path demands the list
             -- elements
             let strippedTests = (\t -> t { vm = Nothing } :: EchidnaTest) <$> tests
-                !_ = foldl (\u t -> t `seq` u) () strippedTests
+                !_ = foldl (flip seq) () strippedTests
             let updatedState = state { campaigns = c', status = Running, now
                                      , tests = strippedTests
                                      , fetchedContracts = contracts