Haddock use relative paths in output (fixed #4971)

commercialhaskell · Jul 23, 2019 · f4f06b6 · f4f06b6
1 parent 5fe2909
commit f4f06b6
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/Stack/Build/Haddock.hs b/src/Stack/Build/Haddock.hs
@@ -229,8 +229,10 @@ generateHaddockIndex descr bco dumpPackages docRelFP destDir = do
                         docRelFP FP.</>
                         packageIdentifierString dpPackageIdent FP.</>
                         (packageNameString name FP.<.> "haddock")
+                    docPathRelFP =
+                        fmap ((docRelFP FP.</>) . FP.takeFileName) dpHaddockHtml
                     interfaces = intercalate "," $
-                      maybeToList dpHaddockHtml ++ [srcInterfaceFP]
+                        maybeToList docPathRelFP ++ [srcInterfaceFP]
 
                 destInterfaceAbsFile <- parseCollapsedAbsFile (toFilePath destDir FP.</> destInterfaceRelFP)
                 esrcInterfaceModTime <- tryGetModificationTime srcInterfaceAbsFile