--- darcs-1.0.5/ColourPrinter.lhs.vns	2005-12-07 15:12:41 +0300

+++ darcs-1.0.5/ColourPrinter.lhs	2006-01-17 21:58:54 +0300

@@ -44,7 +44,7 @@

     envDontEscapeAnything  <- getEnvBool "DARCS_DONT_ESCAPE_ANYTHING"

     envDontEscapeIsprint   <- getEnvBool "DARCS_DONT_ESCAPE_ISPRINT"

     envUseIsprint          <- getEnvBool "DARCS_USE_ISPRINT" -- for backwards-compatibility

-    envDontEscape8bit      <- getEnvBool "DARCS_DONT_ESCAPE_8BIT"

+    envDontEscape8bit      <- getEnvBoolDefTrue "DARCS_DONT_ESCAPE_8BIT"

     envDontEscapeExtra  <- getEnvString "DARCS_DONT_ESCAPE_EXTRA"

     envEscapeExtra      <- getEnvString "DARCS_ESCAPE_EXTRA"

@@ -74,7 +74,8 @@

   getEnvBool s = safeGetEnv s >>= return.(/= "0")

   safeGetEnv s = getEnv s `catch` \_ -> return "0"

   getEnvString s = getEnv s `catch` \_ -> return ""

-

+  getEnvBoolDefTrue s = safeGetEnvDefTrue s >>= return.(/= "0")

+  safeGetEnvDefTrue s = getEnv s `catch` \_ -> return "1"

 -- printers