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

Re-enable cache by default

Browse Source 
Why?

With SHA fingerprinting speeds improved drastically by
f618d8a796, we can now re-enable
caching by default.

This introduces a -C flag to disable the cache for a run.

Note that the cache is always invalidated when files are modified.
This commit is contained in:
Joshua Clayton 2016-06-04 06:44:41 -04:00
parent 792d0dca05
commit 0505b4bff3
1 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
app/Main.hs
View File

@ -22,7 +22,7 @@ data Options = Options
, oAllLikelihoods :: Bool
, oIgnoredPaths :: [String]
, oGrouping :: CurrentGrouping
, oWithCache :: Bool
, oWithoutCache :: Bool
, oFromStdIn :: Bool
}
@ -74,8 +74,8 @@ calculateTagInput Options{ oFromStdIn = True } = loadTagsFromPipe
calculateTagInput Options{ oFromStdIn = False } = loadTagsFromFile
withCache :: Options -> IO SearchResults -> IO SearchResults
withCache Options{ oWithCache = True } = fmap SearchResults . cached "term-matches" . fmap fromResults
withCache Options{ oWithCache = False } = id
withCache Options{ oWithoutCache = True } = id
withCache Options{ oWithoutCache = False } = fmap SearchResults . cached "term-matches" . fmap fromResults
withInfo :: Parser a -> String -> String -> String -> ParserInfo a
withInfo opts h d f =
@ -104,7 +104,7 @@ parseOptions =
<*> parseAllLikelihoods
<*> parseIgnorePaths
<*> parseGroupings
<*> parseWithCache
<*> parseWithoutCache
<*> parseFromStdIn
parseSearchRunner :: Parser SearchRunner
@ -166,11 +166,11 @@ parseGroupingOption = strOption $
<> long "group-by"
<> help "[Allowed: directory, term, file, none] Group results"
parseWithCache :: Parser Bool
parseWithCache = switch $
short 'c'
<> long "with-cache"
<> help "Write to cache and read when available"
parseWithoutCache :: Parser Bool
parseWithoutCache = switch $
short 'C'
<> long "no-cache"
<> help "Ignore cache when performing calculations"
parseFromStdIn :: Parser Bool
parseFromStdIn = switch $