From 038caa8f525067eef0ed644782845d1cbe2d6155 Mon Sep 17 00:00:00 2001
From: Yann Herklotz <ymherklotz@gmail.com>
Date: Fri, 1 Feb 2019 20:36:17 +0000
Subject: Small warning fix

---
 src/VeriFuzz/Gen.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

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