[haddock @ 2003-07-28 14:32:42 by simonmar]

Update to avoid using hslibs with GHC >= 5.04

1 files changed, 7 insertions, 1 deletions

diff --git a/src/HaddockHtml.hs b/src/HaddockHtml.hs
index 44663821..7275e948 100644
--- a/src/HaddockHtml.hs
+++ b/src/HaddockHtml.hs
@@ -16,11 +16,17 @@ import HsSyn
 
 import IO
 import Maybe	( fromJust, isJust )
-import FiniteMap
 import List 	( sortBy )
 import Char	( toUpper, toLower, isAlpha, ord )
 import Monad	( when, unless )
+
+#if __GLASGOW_HASKELL__ < 503
+import FiniteMap
 import URI	( escapeString, unreserved )
+#else
+import Data.FiniteMap
+import Network.URI ( escapeString, unreserved )
+#endif
 
 import Html
 import qualified Html