Use --hyperlinked-source if available

commercialhaskell · Sep 28, 2015 · cc13cac · cc13cac
1 parent 4b06874
commit cc13cac
Showing 1 changed file with 14 additions and 5 deletions.
diff --git a/src/Stack/Build/Execute.hs b/src/Stack/Build/Execute.hs
@@ -965,12 +965,21 @@ singleBuild runInBase ac@ActionContext {..} ee@ExecuteEnv {..} task@Task {..} in
 
         when (doHaddock package) $ do
             announce "haddock"
-            hscolourExists <- doesExecutableExist eeEnvOverride "HsColour"
-            unless hscolourExists $ $logWarn
-                ("Warning: haddock not generating hyperlinked sources because 'HsColour' not\n" <>
-                 "found on PATH (use 'stack install hscolour' to install).")
+            sourceFlag <- do
+                hyped <- tryProcessStdout Nothing eeEnvOverride "haddock" ["--hyperlinked-source"]
+                case hyped of
+                    -- Fancy crosslinked source
+                    Right _ -> do
+                        return ["--haddock-option=--hyperlinked-source"]
+                    -- Older hscolour colouring
+                    Left _  -> do
+                        hscolourExists <- doesExecutableExist eeEnvOverride "HsColour"
+                        unless hscolourExists $ $logWarn
+                            ("Warning: haddock not generating hyperlinked sources because 'HsColour' not\n" <>
+                             "found on PATH (use 'stack install hscolour' to install).")
+                        return ["--hyperlink-source" | hscolourExists]
             cabal False (concat [["haddock", "--html", "--hoogle", "--html-location=../$pkg-$version/"]
-                                ,["--hyperlink-source" | hscolourExists]
+                                ,sourceFlag
                                 ,["--ghcjs" | wc == Ghcjs]])
 
         withMVar eeInstallLock $ \() -> do