Commit 78878b77 authored by Andrey Mokhov's avatar Andrey Mokhov
Browse files

Fix package registration

parent 72bf4b18
module Rules.Register (registerPackage) where module Rules.Register (registerPackage) where
import Hadrian.Utilities
import Base import Base
import Context import Context
import Expression import Expression
...@@ -16,7 +18,7 @@ registerPackage rs context@Context {..} = when (stage <= Stage1) $ do ...@@ -16,7 +18,7 @@ registerPackage rs context@Context {..} = when (stage <= Stage1) $ do
let confIn = pkgInplaceConfig context let confIn = pkgInplaceConfig context
dir = inplacePackageDbDirectory stage dir = inplacePackageDbDirectory stage
dir -/- pkgNameString package ++ "*.conf" %> \conf -> do matchVersionedFilePath (dir -/- pkgNameString package) "conf" ?> \conf -> do
need [confIn] need [confIn]
buildWithResources rs $ buildWithResources rs $
target context (GhcPkg Update stage) [confIn] [conf] target context (GhcPkg Update stage) [confIn] [conf]
......
Supports Markdown
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