diff options
| author | Mateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk> | 2013-09-05 03:21:44 +0100 |
|---|---|---|
| committer | Simon Hengel <sol@typeful.net> | 2013-09-18 22:43:34 +0200 |
| commit | 51315107171402cf2bef93d5ff06c87d070a078b (patch) | |
| tree | 64cc91b2824d526dc9f36c4fb29a948749c9aa54 /src/Haddock.hs | |
| parent | 9697748a1619a0fc892393a11c3a05da3f69e787 (diff) | |
Fixes #231
Diffstat (limited to 'src/Haddock.hs')
| -rw-r--r-- | src/Haddock.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Haddock.hs b/src/Haddock.hs index 3b31c756..5f5b1156 100644 --- a/src/Haddock.hs +++ b/src/Haddock.hs @@ -367,6 +367,8 @@ shortcutFlags flags = do when (Flag_Help `elem` flags) (bye usage) when (Flag_Version `elem` flags) byeVersion when (Flag_InterfaceVersion `elem` flags) (bye (show binaryInterfaceVersion ++ "\n")) + when (Flag_CompatibleInterfaceVersions `elem` flags) + (bye (unwords (map show binaryInterfaceVersionCompatibility) ++ "\n")) when (Flag_GhcVersion `elem` flags) (bye (cProjectVersion ++ "\n")) when (Flag_PrintGhcPath `elem` flags) $ do @@ -448,4 +450,3 @@ getExecDir = return Nothing #endif #endif - |