Force early evaluation
This commit is contained in:
@@ -279,4 +279,6 @@ hasExtension exts filename = do
|
|||||||
ext `elemOf` exts
|
ext `elemOf` exts
|
||||||
|
|
||||||
copyTo :: (TokenableTo FilePath a, TokenableTo FilePath b) => a -> b -> DepGenM ()
|
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)
|
||||||
|
|||||||
Reference in New Issue
Block a user