]> git.wincent.com - docvim.git/commitdiff
Fix hlint nits
authorGreg Hurrell <greg@hurrell.net>
Sun, 20 Mar 2016 05:25:22 +0000 (22:25 -0700)
committerGreg Hurrell <greg@hurrell.net>
Sun, 20 Mar 2016 05:25:22 +0000 (22:25 -0700)
Mostly unnecessary parens, plus one unnecessary `$`.

README.md
src/Lex.hs
src/Parse.hs

index 8dad93086e25b3edf4dac4f9db6c974cd7f8801e..1ce7c0307858f98fd95cd524704c992c767fde5c 100644 (file)
--- a/README.md
+++ b/README.md
@@ -27,3 +27,10 @@ cabal repl
 cabal haddock --executables
 open dist/doc/html/docvim/docvim/index.html
 ```
+
+### Linting
+
+```
+cabal install hlint
+hlint src
+```
index 4dc364d3c3409bff60d9f927b458db5770145224..98eb4de0d7178400ec6b343ad886dc87f9c240f4 100644 (file)
@@ -46,7 +46,7 @@ data Token = Annotation String
 
 -- | Parses a translation unit (file contents) into an AST.
 lexUnit :: Parser [Token]
-lexUnit = (many token) <* eof
+lexUnit = many token <* eof
 
 -- TODO: literal <br /> support
 token = choice [ --vimScriptLine -- must come first
index 2265967a5dd493f602acd734d8fba55760b0fd4f..872dbb2dcd64b98d685ea97d1551a154ef1280e5 100644 (file)
@@ -107,12 +107,12 @@ data Annotation = Plugin Name Description
                 | Option Name Type (Maybe Default)
   deriving (Eq, Show)
 
-vimScriptLine = VimScript <$> many1 (noneOf "\n") <* (optional newline)
+vimScriptLine = VimScript <$> many1 (noneOf "\n") <* optional newline
 
 -- These cause type errors unless used...
 -- blockquote    = string ">" >> return Blockquote
 -- commentStart  = string "\"" >> return CommentStart
-docBlockStart = (string "\"\"" <* (optional ws)) >> return DocBlockStart
+docBlockStart = (string "\"\"" <* optional ws) >> return DocBlockStart
 -- listItem      = string "-" >> return ListItem
 newline       = char '\n' >> return Newline
 ws    = Whitespace <$> many1 (oneOf " \t")
@@ -140,7 +140,7 @@ docNode = choice [ annotation
                  ]
 
 heading :: Parser DocNode
-heading = Heading <$> (char '#' >> (optional ws) *> (manyTill anyChar (newline <|> (eof >> return EOF))))
+heading = Heading <$> (char '#' >> optional ws *> manyTill anyChar (newline <|> (eof >> return EOF)))
 -- TODO: probably want to swallow the newline here; make it implicit
 -- (and any trailing whitespace)
 
@@ -173,7 +173,7 @@ annotation = DocNode <$> (char '@' *> annotationName)
              , plugin
              ]
 
-    command           = string "command" >> ws >> Command <$> ((:) <$> char ':' <*> (many1 (noneOf "\n")))
+    command           = string "command" >> ws >> Command <$> ((:) <$> char ':' <*> many1 (noneOf "\n"))
 
     function          = string "function" >> ws >> Function <$> word <* optional ws
 
@@ -183,7 +183,7 @@ annotation = DocNode <$> (char '@' *> annotationName)
     option            = string "option" >> ws >> Option <$> optionName <*> optionType <*> optionDefault
     optionName        = many1 (alphaNum <|> char ':') <* ws <?> "option name"
     optionType        = many1 alphaNum <* ws <?> "option type"
-    optionDefault     = (optionMaybe $ word) <?> "option default value"
+    optionDefault     = optionMaybe word <?> "option default value"
 
     plugin            = string "plugin" >> ws >> Plugin <$> pluginName <*> plugInDescription
     pluginName        = many1 alphaNum <* ws