From cc52e7d7cb1fff90ec7b0795ba1e4aeb28493fb8 Mon Sep 17 00:00:00 2001
From: Yann Herklotz Grave <git@yannherklotzgrave.com>
Date: Sat, 16 Feb 2019 20:24:11 +0000
Subject: Fix lint errors

---
 src/VeriFuzz/Parser.hs | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'src')

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
-- 
cgit