[commit: Cabal] master: Fix fallout of Num / Show class changes in ghc-7.4 (5dfa57a)
Ian Lynagh
igloo at earth.li
Fri Nov 4 18:08:12 CET 2011
Repository : ssh://darcs.haskell.org//srv/darcs/packages/Cabal
On branch : master
http://hackage.haskell.org/trac/ghc/changeset/5dfa57a2c58c9cffb3cb7ac79966a6cb57eac559
>---------------------------------------------------------------
commit 5dfa57a2c58c9cffb3cb7ac79966a6cb57eac559
Author: Duncan Coutts <duncan at community.haskell.org>
Date: Fri Nov 4 00:25:10 2011 +0000
Fix fallout of Num / Show class changes in ghc-7.4
>---------------------------------------------------------------
cabal-install/Distribution/Client/Tar.hs | 2 +-
1 files changed, 1 insertions(+), 1 deletions(-)
diff --git a/cabal-install/Distribution/Client/Tar.hs b/cabal-install/Distribution/Client/Tar.hs
index 7063292..327cfbb 100644
--- a/cabal-install/Distribution/Client/Tar.hs
+++ b/cabal-install/Distribution/Client/Tar.hs
@@ -743,7 +743,7 @@ putString :: FieldWidth -> String -> String
putString n s = take n s ++ fill (n - length s) '\NUL'
--TODO: check integer widths, eg for large file sizes
-putOct :: Integral a => FieldWidth -> a -> String
+putOct :: (Show a, Integral a) => FieldWidth -> a -> String
putOct n x =
let octStr = take (n-1) $ showOct x ""
in fill (n - length octStr - 1) '0'
More information about the Cvs-libraries
mailing list