From 43ac120822345f2559f1062dd7cc7a005ab17b8c Mon Sep 17 00:00:00 2001
From: Duncan Coutts <duncan@community.haskell.org>
Date: Tue, 10 Mar 2015 10:17:15 +0000
Subject: [PATCH] Use whole days in the warning about out of date package index
Say 16 days, rather than 16.3 days. The precision is quite unnecessary.
---
cabal-install/Distribution/Client/IndexUtils.hs | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
diff --git a/cabal-install/Distribution/Client/IndexUtils.hs b/cabal-install/Distribution/Client/IndexUtils.hs
index 70b58d8a81..adb315e58e 100644
--- a/cabal-install/Distribution/Client/IndexUtils.hs
+++ b/cabal-install/Distribution/Client/IndexUtils.hs
@@ -86,7 +86,6 @@ import System.FilePath.Posix as FilePath.Posix
import System.IO
import System.IO.Unsafe (unsafeInterleaveIO)
import System.IO.Error (isDoesNotExistError)
-import Numeric (showFFloat)
getInstalledPackages :: Verbosity -> Compiler
@@ -223,7 +222,7 @@ readRepoIndex verbosity repo mode =
when (dt >= isOldThreshold) $ case repoKind repo of
Left remoteRepo -> warn verbosity $
"The package list for '" ++ remoteRepoName remoteRepo
- ++ "' is " ++ showFFloat (Just 1) dt " days old.\nRun "
+ ++ "' is " ++ shows (floor dt :: Int) " days old.\nRun "
++ "'cabal update' to get the latest list of available packages."
Right _localRepo -> return ()
--
GitLab