diff --git a/src/Semantic/CLI.hs b/src/Semantic/CLI.hs
index 063caa1b8..c062104af 100644
--- a/src/Semantic/CLI.hs
+++ b/src/Semantic/CLI.hs
@@ -120,16 +120,14 @@ arguments = info (version <*> helper <*> ((,) <$> optionsParser <*> argumentsPar
     options options fields = option (optionsReader options) (fields <> showDefaultWith (findOption options) <> metavar (intercalate "|" (fmap fst options)))
     findOption options value = maybe "" fst (find ((== value) . snd) options)
 
-
--- Example: semantic parse --symbols --fields=symbol,path,language,kind,line,span
-symbolFieldsReader ::  ReadM SymbolFields
-symbolFieldsReader = eitherReader parseSymbolFields
-  where parseSymbolFields arg = let fields = splitWhen (== ',') arg in
-          Right SymbolFields
-            { symbolFieldsName = "symbol" `elem` fields
-            , symbolFieldsPath = "path" `elem` fields
-            , symbolFieldsLang = "language" `elem` fields
-            , symbolFieldsKind = "kind" `elem` fields
-            , symbolFieldsLine = "line" `elem` fields
-            , symbolFieldsSpan = "span" `elem` fields
-            }
+    -- Example: semantic parse --symbols --fields=symbol,path,language,kind,line,span
+    symbolFieldsReader = eitherReader parseSymbolFields
+    parseSymbolFields arg = let fields = splitWhen (== ',') arg in
+                      Right SymbolFields
+                        { symbolFieldsName = "symbol" `elem` fields
+                        , symbolFieldsPath = "path" `elem` fields
+                        , symbolFieldsLang = "language" `elem` fields
+                        , symbolFieldsKind = "kind" `elem` fields
+                        , symbolFieldsLine = "line" `elem` fields
+                        , symbolFieldsSpan = "span" `elem` fields
+                        }