diff options
author | Yann Herklotz <ymherklotz@gmail.com> | 2019-02-01 20:36:17 +0000 |
---|---|---|
committer | Yann Herklotz <ymherklotz@gmail.com> | 2019-02-01 20:36:17 +0000 |
commit | 038caa8f525067eef0ed644782845d1cbe2d6155 (patch) | |
tree | fe144358dbfd2795d6dc27ee7a65a2da7c37592d /src/VeriFuzz/Gen.hs | |
parent | 2b690485436b1d4df3c9212a928a1557562fb378 (diff) | |
download | verismith-038caa8f525067eef0ed644782845d1cbe2d6155.tar.gz verismith-038caa8f525067eef0ed644782845d1cbe2d6155.zip |
Small warning fix
Diffstat (limited to 'src/VeriFuzz/Gen.hs')
-rw-r--r-- | src/VeriFuzz/Gen.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/VeriFuzz/Gen.hs b/src/VeriFuzz/Gen.hs index 56d48bf..733f956 100644 --- a/src/VeriFuzz/Gen.hs +++ b/src/VeriFuzz/Gen.hs @@ -32,7 +32,7 @@ randomAssigns ids = random ids . ContAssign <$> ids randomMod :: Gen ModDecl randomMod = do let ids = Identifier . ("w"<>) . T.pack . show <$> [1..100] - _ <- sequence $ randomAssigns ids + sequence_ $ randomAssigns ids return $ ModDecl "" [] [] [] fromGraph :: Gen ModDecl |