diff options
| author | krasimir <unknown> | 2004-10-28 16:01:51 +0000 |
|---|---|---|
| committer | krasimir <unknown> | 2004-10-28 16:01:51 +0000 |
| commit | 5f6447142d8354a408c5cfd91cd0d5f36a6f3601 (patch) | |
| tree | 29f648fb2c8420a779e48268a64cf7ac9fd09afa | |
| parent | 45ff783c59607182888c5d151ab3cfbdb8197b49 (diff) | |
[haddock @ 2004-10-28 16:01:51 by krasimir]
update for ghc-6.3+
| -rw-r--r-- | src/HaddockUtil.hs | 5 |
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 |