From a2343757458542ea7fd2e00c53f40233797ddd5c Mon Sep 17 00:00:00 2001
From: Yann Herklotz <ymherklotz@gmail.com>
Date: Fri, 1 Feb 2019 20:52:43 +0000
Subject: Remove last warning

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

(limited to 'src/VeriFuzz/Gen.hs')

diff --git a/src/VeriFuzz/Gen.hs b/src/VeriFuzz/Gen.hs
index 733f956..9eecdbf 100644
--- a/src/VeriFuzz/Gen.hs
+++ b/src/VeriFuzz/Gen.hs
@@ -31,9 +31,12 @@ randomAssigns ids = random ids . ContAssign <$> ids
 
 randomMod :: Gen ModDecl
 randomMod = do
-  let ids = Identifier . ("w"<>) . T.pack . show <$> [1..100]
+  let ids = toId <$> [1..100]
   sequence_ $ randomAssigns ids
   return $ ModDecl "" [] [] []
+  where
+    toId :: Int -> Identifier
+    toId = Identifier . ("w"<>) . T.pack . show
 
 fromGraph :: Gen ModDecl
 fromGraph = do
-- 
cgit