github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-27 17:05:33 +03:00
Code Issues Projects Releases Wiki Activity

Revert "Extract symbolFieldsReader to the top level."

Browse Source 
This reverts commit b46332df2d2bca571fb83fa0bcaf2567956d8b2b.
This commit is contained in:
Rob Rix 2018-05-14 10:13:06 -04:00
parent a36c7dc7da
commit b141864b77
1 changed files with 11 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Semantic/CLI.hs
View File

@ -120,11 +120,9 @@ arguments = info (version <*> helper <*> ((,) <$> optionsParser <*> argumentsPar
options options fields = option (optionsReader options) (fields <> showDefaultWith (findOption options) <> metavar (intercalate "|" (fmap fst options))) options options fields = option (optionsReader options) (fields <> showDefaultWith (findOption options) <> metavar (intercalate "|" (fmap fst options)))
findOption options value = maybe "" fst (find ((== value) . snd) options) findOption options value = maybe "" fst (find ((== value) . snd) options)
-- Example: semantic parse --symbols --fields=symbol,path,language,kind,line,span -- Example: semantic parse --symbols --fields=symbol,path,language,kind,line,span
symbolFieldsReader :: ReadM SymbolFields
symbolFieldsReader = eitherReader parseSymbolFields symbolFieldsReader = eitherReader parseSymbolFields
where parseSymbolFields arg = let fields = splitWhen (== ',') arg in parseSymbolFields arg = let fields = splitWhen (== ',') arg in
Right SymbolFields Right SymbolFields
{ symbolFieldsName = "symbol" `elem` fields { symbolFieldsName = "symbol" `elem` fields
, symbolFieldsPath = "path" `elem` fields , symbolFieldsPath = "path" `elem` fields