From 87d773c126f51241a60bb7e7b90fb1611cbd0fad Mon Sep 17 00:00:00 2001 From: Joshua Clayton Date: Mon, 27 Jun 2016 05:54:47 -0400 Subject: [PATCH] ask -> asks --- app/App.hs | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/app/App.hs b/app/App.hs index 99d0c09..54a56c3 100644 --- a/app/App.hs +++ b/app/App.hs @@ -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