Commit 28e453a1 authored by Mikhail Glushenkov's avatar Mikhail Glushenkov
Browse files

Merge pull request #1395 from trofi/master

Distribution/Client/Tar.hs: make clearer error message when tar fails to...
parents 91fabb30 33374292
......@@ -527,8 +527,10 @@ checkEntryTarbomb _ entry | nonFilesystemEntry = Nothing
checkEntryTarbomb expectedTopDir entry =
case FilePath.Native.splitDirectories (entryPath entry) of
(topDir:_) | topDir == expectedTopDir -> Nothing
_ -> Just $ "File in tar archive is not in the expected directory "
s -> Just $ "File in tar archive is not in the expected directory "
++ show expectedTopDir
++ " but got the following hierarchy: "
++ show s
--
......
Supports Markdown
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