From f4f06b675a3a33ad8aad59aa7a119f21fb89ee2f Mon Sep 17 00:00:00 2001 From: Emanuel Borsboom Date: Tue, 23 Jul 2019 12:05:12 -0700 Subject: [PATCH] Haddock use relative paths in output (fixed #4971) --- src/Stack/Build/Haddock.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/Stack/Build/Haddock.hs b/src/Stack/Build/Haddock.hs index 1e89394751..74bc200eea 100644 --- 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