From cfbd1ac12d73d097b685f974fc06e6ba598c7e85 Mon Sep 17 00:00:00 2001 From: Yvan Sraka Date: Fri, 21 Apr 2023 14:42:48 +0200 Subject: [PATCH] Update app/Foliage/CmdBuild.hs Co-authored-by: Michael Peyton Jones --- app/Foliage/CmdBuild.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/app/Foliage/CmdBuild.hs b/app/Foliage/CmdBuild.hs index 9d22154..e369251 100644 --- a/app/Foliage/CmdBuild.hs +++ b/app/Foliage/CmdBuild.hs @@ -116,7 +116,7 @@ buildAction revcf <- foldM ( \(lastRevisionPath, cabalFiles) (timestamp, revisionPath) -> do - if takeExtension originalCabalFilePath `elem` [".diff", ".patch"] + if takeExtension revisionPath `elem` [".diff", ".patch"] then do patchedRevisionPath <- applyPatch lastRevisionPath revisionPath preparedCabal <- prepareIndexPkgCabal pkgId timestamp patchedRevisionPath