From 32b2314d0c28f4e613fc91a6c78373fd8130ab18 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gregor.kleen@ifi.lmu.de>
Date: Wed, 23 Sep 2020 17:02:29 +0200
Subject: [PATCH] refactor: hlint

---
 src/Jobs/Handler/Files.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Jobs/Handler/Files.hs b/src/Jobs/Handler/Files.hs
index b22a02af6..6fa139a45 100644
--- a/src/Jobs/Handler/Files.hs
+++ b/src/Jobs/Handler/Files.hs
@@ -326,7 +326,7 @@ dispatchJobInjectFiles = JobHandlerException . maybeT (return ()) $ do
                             eta :: Maybe Integer
                             eta = do
                               accsz' <- assertM' (/= 0) accsz
-                              return . ceiling $ (toRational currT - toRational startT) / (fromIntegral accsz') * (fromIntegral sz - fromIntegral accsz)
+                              return . ceiling $ (toRational currT - toRational startT) / fromIntegral accsz' * (fromIntegral sz - fromIntegral accsz)
                         when (lastReport' /= lastReport || sz' >= fromIntegral sz) $
                           flip runLoggingT logger . $logInfoS "InjectFiles" . mconcat $ catMaybes
                             [ pure [st|Sinking chunk ##{tshow c} (#{textBytes csz}): #{textBytes sz'}/#{textBytes sz} (#{tshow p}%)|]