Permalink
Browse files

ModuleInspector: Give all flags to Haddock for GHC

Currently ModuleInspector only supports forwarding a single flag.
  • Loading branch information...
1 parent d57173e commit d5c17cb7b9a50a6abb5e06968042d788152e676f @kolmodin kolmodin committed Mar 31, 2013
Showing with 1 addition and 1 deletion.
  1. +1 −1 ModuleInspector.hs
View
@@ -228,7 +228,7 @@ main = do
args <- Environment.getArgs
case args of
[filename] -> main' filename []
- [filename, ghcopts] -> main' filename [Doc.Flag_OptGhc ghcopts]
+ (filename:ghcopts) -> main' filename (map Doc.Flag_OptGhc ghcopts)
_ -> putStrLn ("Usage: " ++ programName ++ " FILENAME [GHCOPTS]")
where
main' :: FilePath -> [Doc.Flag] -> IO ()

0 comments on commit d5c17cb

Please sign in to comment.