Fix warnings in H.InterfaceFile and H.Options

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