From 027a1d7b192534ab861beccc86a998a72ca360c2 Mon Sep 17 00:00:00 2001
From: Lucy Cifferello <12953208+elvece@users.noreply.github.com>
Date: Fri, 9 Sep 2022 15:38:30 -0600
Subject: [PATCH] fix warning

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

diff --git a/src/Cli/Cli.hs b/src/Cli/Cli.hs
index 76b3318..bb9e397 100644
--- a/src/Cli/Cli.hs
+++ b/src/Cli/Cli.hs
@@ -586,7 +586,7 @@ eosUpload (EosUpload name img version) = do
             <&> setRequestHeaders [("Content-Length", show size)]
             <&> applyBasicAuth (B8.pack publishCfgRepoUser) (B8.pack publishCfgRepoPass)
     hash <- hashFile @_ @SHA256 img
-    bar <- newProgressBar defStyle 30 (Progress 0 (fromIntegral size) ())
+    bar <- newProgressBar defStyle 30 (Progress 0 size ())
     body <- observedStreamFile (updateProgress bar . const . sfs2prog) img
     let withBody = setRequestBody body noBody
     let withQParams =