Force early evaluation
This commit is contained in:
parent
9c912d2457
commit
152f988363
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue