Update app/Foliage/CmdBuild.hs

Co-authored-by: Michael Peyton Jones <[email protected]>
input-output-hk · Apr 21, 2023 · cfbd1ac · cfbd1ac
1 parent 701ee2c
commit cfbd1ac
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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