diff options
| author | David Waern <david.waern@gmail.com> | 2011-11-25 02:30:41 +0100 |
|---|---|---|
| committer | David Waern <david.waern@gmail.com> | 2011-11-25 02:30:41 +0100 |
| commit | 7a6b3777157e2a1e63d662b354104229cf773342 (patch) | |
| tree | ba8ac1ba1e3f5ef7f21d17a6a293c25adc4eda81 /src/Main.hs | |
| parent | 3bdd9282ce67d1094c36204e77e3f32356a2c059 (diff) | |
Add flag --interface-version.
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/src/Main.hs b/src/Main.hs index 787b5574..f78ace69 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -359,9 +359,10 @@ shortcutFlags :: [Flag] -> IO () shortcutFlags flags = do usage <- getUsage - when (Flag_Help `elem` flags) (bye usage) - when (Flag_Version `elem` flags) byeVersion - when (Flag_GhcVersion `elem` flags) byeGhcVersion + when (Flag_Help `elem` flags) (bye usage) + when (Flag_Version `elem` flags) byeVersion + when (Flag_InterfaceVersion `elem` flags) (bye (show binaryInterfaceVersion ++ "\n")) + when (Flag_GhcVersion `elem` flags) (bye (cProjectVersion ++ "\n")) when (Flag_PrintGhcPath `elem` flags) $ do dir <- fmap fst (getGhcDirs flags) @@ -390,8 +391,6 @@ shortcutFlags flags = do "Haddock version " ++ projectVersion ++ ", (c) Simon Marlow 2006\n" ++ "Ported to use the GHC API by David Waern 2006-2008\n" - byeGhcVersion = bye (cProjectVersion ++ "\n") - updateHTMLXRefs :: [(DocPaths, InterfaceFile)] -> IO () updateHTMLXRefs packages = writeIORef html_xrefs_ref (Map.fromList mapping) |