diff options
author | Yann Herklotz <git@ymhg.org> | 2019-04-02 12:58:36 +0100 |
---|---|---|
committer | Yann Herklotz <git@ymhg.org> | 2019-04-02 12:58:36 +0100 |
commit | 0a091d39fefd199fb3042677d60895113781dc31 (patch) | |
tree | 53231f1e86fb68adaf4e7b2e6a5dff78829c6b5b /app | |
parent | cf95e95869fb3ecf716ba16f58eeacd7723bba09 (diff) | |
download | verismith-0a091d39fefd199fb3042677d60895113781dc31.tar.gz verismith-0a091d39fefd199fb3042677d60895113781dc31.zip |
Remove QuickCheck and use Hedgehog instead
Diffstat (limited to 'app')
-rw-r--r-- | app/Main.hs | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/app/Main.hs b/app/Main.hs index c214929..4d2f0c4 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -5,7 +5,6 @@ import Data.Text (Text) import qualified Data.Text as T import Options.Applicative import qualified Shelly as S -import qualified Test.QuickCheck as QC import qualified VeriFuzz as V data Tool = Yosys @@ -199,10 +198,8 @@ handleOpts (Fuzz _) = do ) <$> [1 .. num] sequence_ $ takeMVar <$> vars -handleOpts (Generate f) = do - g <- QC.generate $ V.randomMod 50 1000 - S.shelly . S.writefile f $ V.genSource g -handleOpts (Parse f) = do +handleOpts (Generate _) = error "Not implemented" +handleOpts (Parse f) = do verilogSrc <- readFile file case V.parseVerilog file verilogSrc of Left l -> print l |