diff options
author | Yann Herklotz <git@yannherklotz.com> | 2019-07-20 19:38:01 +0100 |
---|---|---|
committer | Yann Herklotz <git@yannherklotz.com> | 2019-07-20 19:38:01 +0100 |
commit | 7d69341adfef072e46098a5b377a22ab4ce610dd (patch) | |
tree | f2af69a57cca91dc754395b88b7bd09ab42b0c7a /src/VeriFuzz/Fuzz.hs | |
parent | 562f0da77e0464bfc21e8753070aec1cf9e60cf2 (diff) | |
download | verismith-7d69341adfef072e46098a5b377a22ab4ce610dd.tar.gz verismith-7d69341adfef072e46098a5b377a22ab4ce610dd.zip |
Multiple initialisations now appearing
Diffstat (limited to 'src/VeriFuzz/Fuzz.hs')
-rw-r--r-- | src/VeriFuzz/Fuzz.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/VeriFuzz/Fuzz.hs b/src/VeriFuzz/Fuzz.hs index 4f5c016..77962b5 100644 --- a/src/VeriFuzz/Fuzz.hs +++ b/src/VeriFuzz/Fuzz.hs @@ -91,8 +91,8 @@ synthesisers = lift $ asks getSynthesisers --simulators :: (Monad m) => Fuzz () m [SimTool] --simulators = lift $ asks getSimulators -combinations :: [a] -> [b] -> [(a, b)] -combinations l1 l2 = [ (x, y) | x <- l1, y <- l2 ] +--combinations :: [a] -> [b] -> [(a, b)] +--combinations l1 l2 = [ (x, y) | x <- l1, y <- l2 ] logT :: MonadSh m => Text -> m () logT = liftSh . logger |