Typo in HUnit cpp

[Donald Bruce Stewart]

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