Permalink
Browse files

Suppress warning only

  • Loading branch information...
1 parent 2765a8c commit 41875172889ea452a7fad0bd085c1818ba2c81ab @batterseapower committed Jan 31, 2011
Showing with 1 addition and 1 deletion.
  1. +1 −1 Development/Shake/Files.hs
@@ -140,7 +140,7 @@ instance Namespace CanonicalFilePath where
ss_accessed = M.filter (\(atime1, atime2) -> atime1 < atime2) ss_continued
-- 1) We must not be allowed to access/delete files that we didn't "need" or are building
- accessed_no_need = filter (\(fp, reason) -> not $ fp `elem` (building_fps ++ needed_fps)) (map (,"deleted") (M.keys ss_deleted) ++ map (,"read or written to") (M.keys ss_accessed))
+ accessed_no_need = filter (\(fp, _reason) -> not $ fp `elem` (building_fps ++ needed_fps)) (map (,"deleted") (M.keys ss_deleted) ++ map (,"read or written to") (M.keys ss_accessed))
-- 2) We should not "need" files that we didn't access
-- FIXME: I shouldn't be doing this until the very last need..
--needed_no_access = filter (\fp -> not $ fp `M.member` ss_accessed) fps

0 comments on commit 4187517

Please sign in to comment.