aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorpanne <unknown>2005-05-21 12:35:29 +0000
committerpanne <unknown>2005-05-21 12:35:29 +0000
commit00074a687695496c8b2cc4103571d133c19de00e (patch)
tree83d2c4524177bcf42b859ebbe411cf94f4c01043 /src
parent23281f787a412ebc54c3e3074ed49327f2942e6c (diff)
[haddock @ 2005-05-21 12:35:29 by panne]
Warning/versionitis police
Diffstat (limited to 'src')
-rw-r--r--src/HaddockUtil.hs8
1 files changed, 6 insertions, 2 deletions
diff --git a/src/HaddockUtil.hs b/src/HaddockUtil.hs
index eacde1bb..965858c5 100644
--- a/src/HaddockUtil.hs
+++ b/src/HaddockUtil.hs
@@ -38,7 +38,7 @@ import Data.Char ( isAlpha, isSpace, toUpper, ord )
import Data.IORef ( IORef, newIORef, readIORef )
import Data.List ( intersect, isSuffixOf, intersperse )
import Data.Maybe ( maybeToList, fromMaybe )
-import Network.URI ( escapeString, unreserved )
+import Network.URI
import System.Environment ( getProgName )
import System.Exit ( exitWith, ExitCode(..) )
import System.IO ( hPutStr, stderr )
@@ -445,7 +445,11 @@ mapMaybeM _ Nothing = return Nothing
mapMaybeM f (Just a) = f a >>= return . Just
escapeStr :: String -> String
-escapeStr str = escapeString str unreserved
+#if __GLASGOW_HASKELL__ < 603
+escapeStr = flip escapeString unreserved
+#else
+escapeStr = escapeURIString isUnreserved
+#endif
-----------------------------------------------------------------------------
-- HTML cross references