Repository : ssh://darcs.haskell.org//srv/darcs/packages/Cabal On branch : master
http://hackage.haskell.org/trac/ghc/changeset/295f9ae95f7ef00ae1dd84ab20a744287739161c >--------------------------------------------------------------- commit 295f9ae95f7ef00ae1dd84ab20a744287739161c Author: Duncan Coutts <[email protected]> Date: Sat Feb 23 18:41:30 2008 +0000 Print output as UTF8 >--------------------------------------------------------------- cabal-install/Hackage/Check.hs | 10 +++++----- 1 files changed, 5 insertions(+), 5 deletions(-) diff --git a/cabal-install/Hackage/Check.hs b/cabal-install/Hackage/Check.hs index f2ba43c..6640e69 100644 --- a/cabal-install/Hackage/Check.hs +++ b/cabal-install/Hackage/Check.hs @@ -21,7 +21,7 @@ import Distribution.PackageDescription.Parse ( readPackageDescription ) import Distribution.PackageDescription.Check import Distribution.PackageDescription.Configuration ( flattenPackageDescription ) import Distribution.Verbosity ( Verbosity ) -import Distribution.Simple.Utils ( defaultPackageDesc ) +import Distribution.Simple.Utils ( defaultPackageDesc, toUTF8 ) check :: Verbosity -> IO Bool check verbosity = do @@ -50,22 +50,22 @@ check verbosity = do unless (null buildImpossible) $ do putStrLn "The package will not build sanely due to these errors:" - mapM_ (putStrLn . explanation) buildImpossible + mapM_ (putStrLn . toUTF8. explanation) buildImpossible putStrLn "" unless (null buildWarning) $ do putStrLn "The following warnings are likely affect your build negatively:" - mapM_ (putStrLn . explanation) buildWarning + mapM_ (putStrLn . toUTF8 . explanation) buildWarning putStrLn "" unless (null distSuspicious) $ do putStrLn "These warnings may cause trouble when distributing the package:" - mapM_ (putStrLn . explanation) distSuspicious + mapM_ (putStrLn . toUTF8 . explanation) distSuspicious putStrLn "" unless (null distInexusable) $ do putStrLn "The following errors will cause portability problems on other environments:" - mapM_ (putStrLn . explanation) distInexusable + mapM_ (putStrLn . toUTF8 . explanation) distInexusable putStrLn "" let isDistError (PackageDistSuspicious {}) = False _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
