Commit d0aaaff4 authored by Diederik van Arkel's avatar Diederik van Arkel

ignore .DS_Store

parent 7c919e8f
......@@ -44,6 +44,8 @@ where
= ((errs,cache),files)
//removedups :: !.[(String,String,DateTime)] -> .[(String,String,DateTime)]
removedups [x=:(".DS_Store",_,_):xs]
= removedups xs
removedups [x=:(l,p,_):xs]
# (wrn,xs) = dropWarn (\(r,_,_) -> l==r) xs
| isEmpty wrn
......
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