Commit e081b081 authored by Andrey Mokhov's avatar Andrey Mokhov
Browse files

Fix paths in inplace-pkg-config files

parent 6552aff7
...@@ -47,10 +47,8 @@ buildPackageData context@Context {..} = do ...@@ -47,10 +47,8 @@ buildPackageData context@Context {..} = do
. replace "rts/dist/build" rtsBuildPath . replace "rts/dist/build" rtsBuildPath
. replace "includes/dist-derivedconstants/header" generatedPath ) . replace "includes/dist-derivedconstants/header" generatedPath )
. lines . lines
else do else
top <- topDirectory fixFile conf $ unlines . map (replace (path </> "build") path) . lines
let oldPath = top -/- path </> "build"
fixFile conf $ unlines . map (replace oldPath path) . lines
priority 2.0 $ when (nonCabalContext context) $ dataFile %> priority 2.0 $ when (nonCabalContext context) $ dataFile %>
generatePackageData context generatePackageData context
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment