From 6daba5fb5523f49ef9965df009a5c276d2d34ccc Mon Sep 17 00:00:00 2001 From: Yann Herklotz Grave Date: Mon, 25 Feb 2019 19:59:19 +0000 Subject: Add recursive reduce call --- src/VeriFuzz/Parser.hs | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'src/VeriFuzz/Parser.hs') diff --git a/src/VeriFuzz/Parser.hs b/src/VeriFuzz/Parser.hs index 23329bb..596867c 100644 --- a/src/VeriFuzz/Parser.hs +++ b/src/VeriFuzz/Parser.hs @@ -225,8 +225,12 @@ parseModDecl = do parseDescription :: Parser Description parseDescription = Description <$> lexeme parseModDecl +-- | Parses a 'String' into 'VerilogSrc' by skipping any beginning whitespace +-- and then parsing multiple Verilog source. parseVerilogSrc :: Parser VerilogSrc parseVerilogSrc = VerilogSrc <$> (whiteSpace *> many parseDescription) +-- | Parse a 'String' containing verilog code. The parser currently only supports +-- the subset of Verilog that is being generated randomly. parseVerilog :: String -> String -> Either ParseError VerilogSrc parseVerilog = parse parseVerilogSrc -- cgit