diff options
author | Yann Herklotz Grave <git@yannherklotzgrave.com> | 2019-02-16 20:24:11 +0000 |
---|---|---|
committer | Yann Herklotz Grave <git@yannherklotzgrave.com> | 2019-02-16 20:24:11 +0000 |
commit | cc52e7d7cb1fff90ec7b0795ba1e4aeb28493fb8 (patch) | |
tree | 30876a1895afbad4a9f59c089dc03898c2bf7f24 | |
parent | d0dd067977e9e6db748dfc894ebde13d3c58e525 (diff) | |
download | verismith-cc52e7d7cb1fff90ec7b0795ba1e4aeb28493fb8.tar.gz verismith-cc52e7d7cb1fff90ec7b0795ba1e4aeb28493fb8.zip |
Fix lint errors
-rw-r--r-- | src/VeriFuzz/Parser.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/src/VeriFuzz/Parser.hs b/src/VeriFuzz/Parser.hs index ef91265..bdfde7e 100644 --- a/src/VeriFuzz/Parser.hs +++ b/src/VeriFuzz/Parser.hs @@ -113,8 +113,7 @@ parseCond e = do parseExpr :: Parser Expr parseExpr = do e <- parseExpr' - y <- option e $ parseCond e - return y + option e $ parseCond e -- | Table of binary and unary operators that encode the right precedence for -- each. @@ -161,7 +160,7 @@ aroundList a b c = do parseContAssign :: Parser ContAssign parseContAssign = do - var <- (spaces *> reserved "assign" *> spaces *> ident) + var <- spaces *> reserved "assign" *> spaces *> ident expr <- spaces *> reservedOp "=" *> spaces *> parseExpr _ <- spaces *> string ";" return $ ContAssign var expr @@ -213,7 +212,7 @@ parseModList = list <|> spaces $> [] parseModDecl :: Parser ModDecl parseModDecl = do - name <- (reserved "module" *> ident) + name <- reserved "module" *> ident modL <- fmap defaultPort <$> parseModList _ <- string ";" modItem <- option [] . try $ many1 parseModItem |