From 2f3b8bc5f6b8dbb0a00b69e5ba9dbf1a8738f257 Mon Sep 17 00:00:00 2001 From: Leon Isenberg Date: Fri, 25 Sep 2015 12:40:43 +0200 Subject: [PATCH] mark executable-only packages as installed when copied from cache --- src/Stack/Build/Execute.hs | 3 +++ 1 file changed, 3 insertions(+) diff --git a/src/Stack/Build/Execute.hs b/src/Stack/Build/Execute.hs index 55e43e4410..16580140bf 100644 --- a/src/Stack/Build/Execute.hs +++ b/src/Stack/Build/Execute.hs @@ -896,6 +896,9 @@ singleBuild runInBase ac@ActionContext {..} ee@ExecuteEnv {..} task@Task {..} in D.createDirectoryIfMissing True bindir let dst = bindir FP. FP.takeFileName exe createLink exe dst `catchIO` \_ -> D.copyFile exe dst + case (mlib, exes) of + (Nothing, _:_) -> markExeInstalled (taskLocation task) taskProvides + _ -> return () -- Find the package in the database wc <- getWhichCompiler