aboutsummaryrefslogtreecommitdiff
path: root/src/HaddockUtil.hs
diff options
context:
space:
mode:
authorkrasimir <unknown>2004-10-28 16:01:51 +0000
committerkrasimir <unknown>2004-10-28 16:01:51 +0000
commit5f6447142d8354a408c5cfd91cd0d5f36a6f3601 (patch)
tree29f648fb2c8420a779e48268a64cf7ac9fd09afa /src/HaddockUtil.hs
parent45ff783c59607182888c5d151ab3cfbdb8197b49 (diff)
[haddock @ 2004-10-28 16:01:51 by krasimir]
update for ghc-6.3+
Diffstat (limited to 'src/HaddockUtil.hs')
-rw-r--r--src/HaddockUtil.hs5
1 files changed, 5 insertions, 0 deletions
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