diff options
| -rw-r--r-- | src/Haddock/InterfaceFile.hs | 3 | ||||
| -rw-r--r-- | 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 |