diff options
| author | David Waern <david.waern@gmail.com> | 2008-11-06 21:51:31 +0000 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2008-11-06 21:51:31 +0000 |
| commit | 27376c681ce1efcef87b320ff1bc1587ea7437af (patch) | |
| tree | ab9e36c80e6431ae8eb3859d7ac9a2ef8f21604d /src/Haddock/Options.hs | |
| parent | 41afec2520ce926dcd04da1024facb4e6e4cde4e (diff) | |
Fix warnings in H.InterfaceFile and H.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 |