diff options
author | Yann Herklotz <ymherklotz@gmail.com> | 2019-01-01 14:48:54 +0100 |
---|---|---|
committer | Yann Herklotz <ymherklotz@gmail.com> | 2019-01-01 14:48:54 +0100 |
commit | fd2963cae60c87aa3bcf382829cb7c44e6e0c2ae (patch) | |
tree | fdb170affd1b7f727ca057587f01850729a36fd8 /src/Test/VeriFuzz/Graph/Random.hs | |
parent | 99d2932e1b4357f4e0aa303a29d08bfd81977a9e (diff) | |
download | verismith-fd2963cae60c87aa3bcf382829cb7c44e6e0c2ae.tar.gz verismith-fd2963cae60c87aa3bcf382829cb7c44e6e0c2ae.zip |
Fix linting warnings
Diffstat (limited to 'src/Test/VeriFuzz/Graph/Random.hs')
-rw-r--r-- | src/Test/VeriFuzz/Graph/Random.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Test/VeriFuzz/Graph/Random.hs b/src/Test/VeriFuzz/Graph/Random.hs index fa72f2f..9483bdf 100644 --- a/src/Test/VeriFuzz/Graph/Random.hs +++ b/src/Test/VeriFuzz/Graph/Random.hs @@ -46,7 +46,7 @@ randomDAG :: (Arbitrary l, Arbitrary e, Eq l, Eq e) -- generate random instances of each node randomDAG = do list <- QC.infiniteListOf QC.arbitrary - l <- QC.infiniteListOf $ aE + l <- QC.infiniteListOf aE QC.sized (\n -> return . G.mkGraph (nodes list n) $ take (10*n) l) where nodes l n = zip [0..n] $ take n l |