From 27376c681ce1efcef87b320ff1bc1587ea7437af Mon Sep 17 00:00:00 2001
From: David Waern <david.waern@gmail.com>
Date: Thu, 6 Nov 2008 21:51:31 +0000
Subject: Fix warnings in H.InterfaceFile and H.Options

---
 src/Haddock/InterfaceFile.hs | 3 ++-
 src/Haddock/Options.hs       | 4 ++--
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/Haddock/InterfaceFile.hs b/src/Haddock/InterfaceFile.hs
index 19aaf7a6..62f19275 100644
--- a/src/Haddock/InterfaceFile.hs
+++ b/src/Haddock/InterfaceFile.hs
@@ -37,9 +37,10 @@ import Module
 import HscTypes
 import FastMutInt
 import HsDoc
+#if __GLASGOW_HASKELL__ >= 609 
 import FastString
 import Unique
-
+#endif
 
 data InterfaceFile = InterfaceFile {
   ifLinkEnv         :: LinkEnv,
diff --git a/src/Haddock/Options.hs b/src/Haddock/Options.hs
index a55b7a9b..09ce47fe 100644
--- a/src/Haddock/Options.hs
+++ b/src/Haddock/Options.hs
@@ -29,8 +29,8 @@ getUsage = do
 
 
 parseHaddockOpts :: [String] -> IO ([Flag], [String])
-parseHaddockOpts words =
-  case getOpt Permute (options True) words of
+parseHaddockOpts params =
+  case getOpt Permute (options True) params  of
     (flags, args, []) -> return (flags, args)
     (_, _, errors)    -> do 
       usage <- getUsage
-- 
cgit v1.2.3