From 152f988363dcedacfad2c7b26021951e2211a005 Mon Sep 17 00:00:00 2001 From: "Niels G. W. Serup" Date: Sat, 5 Oct 2024 23:42:40 +0200 Subject: [PATCH] Force early evaluation --- byg/src/DependencyGenerator.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/byg/src/DependencyGenerator.hs b/byg/src/DependencyGenerator.hs index 4950cd2..cecbe17 100644 --- a/byg/src/DependencyGenerator.hs +++ b/byg/src/DependencyGenerator.hs @@ -279,4 +279,6 @@ hasExtension exts filename = do ext `elemOf` exts copyTo :: (TokenableTo FilePath a, TokenableTo FilePath b) => a -> b -> DepGenM () -copyTo path targetDir = copyFile path (joinPaths targetDir path) +copyTo path targetDir = do + pathToken <- toToken path + copyFile pathToken (joinPaths targetDir pathToken)