From 08b2b306ae1accfa0b84dc3d327ba54add10a284 Mon Sep 17 00:00:00 2001
From: Yann Herklotz Grave <git@yannherklotzgrave.com>
Date: Sun, 17 Feb 2019 00:51:45 +0000
Subject: Add Parser to Main.hs

---
 src/VeriFuzz/Parser.hs | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/VeriFuzz/Parser.hs b/src/VeriFuzz/Parser.hs
index b4831d1..fa44202 100644
--- a/src/VeriFuzz/Parser.hs
+++ b/src/VeriFuzz/Parser.hs
@@ -13,7 +13,8 @@ whole Verilog syntax, as the AST does not support it either.
 
 module VeriFuzz.Parser
   ( -- * Parsers
-    parseVerilogSrc
+    parseVerilog
+  , parseVerilogSrc
   , parseDescription
   , parseModDecl
   , parseContAssign
@@ -212,3 +213,6 @@ parseDescription = Description <$> lexeme parseModDecl
 
 parseVerilogSrc :: Parser VerilogSrc
 parseVerilogSrc = VerilogSrc <$> (whiteSpace *> (many parseDescription))
+
+parseVerilog :: String -> String -> Either ParseError VerilogSrc
+parseVerilog f s = parse parseVerilogSrc f s
-- 
cgit