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

Extract results printing to separate function

Browse Source
This commit is contained in:
Joshua Clayton 2016-05-23 08:18:43 -04:00
parent 3f402120d9
commit db10b79f93
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
app/Main.hs
View File

@ -53,11 +53,13 @@ run options = withoutCursor $ do
resetScreen
either printParseError (printSearchResults . groupedResponses (oGrouping options)) $
fmap (optionFilters options) response
either printParseError (printResults options) response
return ()
printResults :: Options -> TermMatchSet -> IO ()
printResults options = printSearchResults . groupedResponses (oGrouping options) . optionFilters options
loadLanguageConfig :: IO [LanguageConfiguration]
loadLanguageConfig = either (const []) id <$> loadConfig