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 <[email protected]> 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' _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
