diff options
Diffstat (limited to 'src/Haddock/Options.hs')
| -rw-r--r-- | src/Haddock/Options.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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 |