joshuaclayton/unused
1
1
Fork 0
mirror of https://github.com/joshuaclayton/unused.git synced 2024-08-15 15:50:26 +03:00
Code Issues Projects Releases Wiki Activity

Point-free filter lambdas

Browse Source
This commit is contained in:
Joshua Clayton 2016-05-03 05:17:20 -04:00
parent f5394e4b36
commit e64db21f9e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Unused/Types.hs
View File

@ -40,10 +40,10 @@ resultsFromMatches m =
totalOccurrences' = sum $ fmap occurrences m
withOneFile :: ParseResponse -> ParseResponse
withOneFile = fmap $ Map.filterWithKey (\_ a -> totalFiles a == 1)
withOneFile = fmap $ Map.filterWithKey (const $ ((==) 1) . totalFiles)
withOneOccurrence :: ParseResponse -> ParseResponse
withOneOccurrence = fmap $ Map.filterWithKey (\_ a -> totalOccurrences a == 1)
withOneOccurrence = fmap $ Map.filterWithKey (const $ ((==) 1 ) . totalOccurrences)
listFromMatchSet :: TermMatchSet -> [(String, [TermMatch])]
listFromMatchSet =