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

ask -> asks

Browse Source
This commit is contained in:
Joshua Clayton 2016-06-27 05:54:47 -04:00
parent fa0a947ca8
commit 87d773c126
No known key found for this signature in database
GPG Key ID: 5B6558F77E9A8118
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
app/App.hs
View File

@ -119,14 +119,14 @@ optionFilters tms = foldl (>>=) (pure tms) matchSetFilters
singleOccurrenceFilter :: AppConfig m => TermMatchSet -> m TermMatchSet
singleOccurrenceFilter tms = do
allowsSingleOccurrence <- oSingleOccurrenceMatches <$> ask
allowsSingleOccurrence <- asks oSingleOccurrenceMatches
return $ if allowsSingleOccurrence
then withOneOccurrence tms
else tms
likelihoodsFilter :: AppConfig m => TermMatchSet -> m TermMatchSet
likelihoodsFilter tms =
withLikelihoods . likelihoods <$> ask <*> pure tms
asks $ withLikelihoods . likelihoods <*> pure tms
where
likelihoods options
| oAllLikelihoods options = [High, Medium, Low]
@ -134,22 +134,22 @@ likelihoodsFilter tms =
| otherwise = oLikelihoods options
ignoredPathsFilter :: AppConfig m => TermMatchSet -> m TermMatchSet
ignoredPathsFilter tms = ignoringPaths . oIgnoredPaths <$> ask <*> pure tms
ignoredPathsFilter tms = asks $ ignoringPaths . oIgnoredPaths <*> pure tms
readFromStdIn :: AppConfig m => m Bool
readFromStdIn = oFromStdIn <$> ask
readFromStdIn = asks oFromStdIn
groupingOptions :: AppConfig m => m CurrentGrouping
groupingOptions = oGrouping <$> ask
groupingOptions = asks oGrouping
searchRunner :: AppConfig m => m SearchRunner
searchRunner = oSearchRunner <$> ask
searchRunner = asks oSearchRunner
runWithCache :: AppConfig m => m Bool
runWithCache = not . oWithoutCache <$> ask
runWithCache = asks $ not . oWithoutCache
numberOfCommits :: AppConfig m => m (Maybe Int)
numberOfCommits = oCommitCount <$> ask
numberOfCommits = asks oCommitCount
resultFormatter :: AppConfig m => m V.ResultsFormat
resultFormatter = do