Looks like a typo in the HUnit code. Spotted by Stefan Wehr. Any objections? -- Don Index: Lang.lhs =================================================================== RCS file: /home/cvs/root/fptools/libraries/HUnit/Test/HUnit/Lang.lhs,v retrieving revision 1.2 diff -u -u -r1.2 Lang.lhs --- Lang.lhs 27 Mar 2004 14:26:07 -0000 1.2 +++ Lang.lhs 24 Aug 2005 08:06:46 -0000 @@ -18,7 +18,7 @@ -------
import Data.List (isPrefixOf) -#if defined(__GLASGOW_HASKELL) || defined(__HUGS__) +#if defined(__GLASGOW_HASKELL__) || defined(__HUGS__) import Control.Exception (try) #else import System.IO.Error (ioeGetErrorString, try) @@ -61,7 +61,7 @@ case r of Right () -> return Nothing Left e -> return (Just (decode e)) where -#if defined(__GLASGOW_HASKELL) || defined(__HUGS__) +#if defined(__GLASGOW_HASKELL__) || defined(__HUGS__) decode e = let s0 = show e #else decode e = let s0 = ioeGetErrorString e