Commit a4752477 authored by Henrik Tramberend's avatar Henrik Tramberend
Browse files

Remove trace output

parent 62eb95ed
......@@ -726,7 +726,7 @@ copyAndLinkFile project public base url = do
let pub = public </> rel
liftIO $ createDirectoryIfMissing True (takeDirectory pub)
copyFileChanged url pub
return $ traceId $ makeRelativeTo (traceId base) (traceId pub)
return $ makeRelativeTo base pub
-- | Express the second path argument as relative to the first.
-- Both arguments are expected to be absolute pathes.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment