don't allow file paths to .git directory

This commit is contained in:
Joey Hess 2014-12-11 20:13:37 -04:00
parent 57b2473360
commit 5861ed680e

View file

@ -39,6 +39,7 @@ mkSafeFilePath p = SafeFilePath $ if null p' then "file" else p'
safe s
| isDrive s = False
| s == ".." = False
| s == ".git" = False
| null s = False
| otherwise = True