From 5f6447142d8354a408c5cfd91cd0d5f36a6f3601 Mon Sep 17 00:00:00 2001
From: krasimir <unknown>
Date: Thu, 28 Oct 2004 16:01:51 +0000
Subject: [haddock @ 2004-10-28 16:01:51 by krasimir] update for ghc-6.3+

---
 src/HaddockUtil.hs | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/src/HaddockUtil.hs b/src/HaddockUtil.hs
index bf326b82..f6152722 100644
--- a/src/HaddockUtil.hs
+++ b/src/HaddockUtil.hs
@@ -447,7 +447,12 @@ mapMaybeM _ Nothing = return Nothing
 mapMaybeM f (Just a) = f a >>= return . Just
 
 escapeStr :: String -> String
+#if __GLASGOW_HASKELL__ < 603
 escapeStr str = escapeString str unreserved
+#else
+escapeStr str = escapeString unreserved str
+#endif
+
 
 -----------------------------------------------------------------------------
 -- HTML cross references
-- 
cgit v1.2.3