diff options
| author | Yann Herklotz <git@ymhg.org> | 2019-05-07 15:12:37 +0100 |
|---|---|---|
| committer | Yann Herklotz <git@ymhg.org> | 2019-05-07 15:12:37 +0100 |
| commit | d52b98fb2672374c48f157aaa68483c39a46363d (patch) | |
| tree | be63ae6594727a7f6a50560cd3056092c1194f27 /src/VeriFuzz/Fuzz.hs | |
| parent | e811ba886d9adaed746abe1c9f37c1a87e58a964 (diff) | |
| download | verismith-d52b98fb2672374c48f157aaa68483c39a46363d.tar.gz verismith-d52b98fb2672374c48f157aaa68483c39a46363d.zip | |
Rename some functions to use nicer names
Diffstat (limited to 'src/VeriFuzz/Fuzz.hs')
| -rw-r--r-- | src/VeriFuzz/Fuzz.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/VeriFuzz/Fuzz.hs b/src/VeriFuzz/Fuzz.hs index 553fc88..5f0ccfb 100644 --- a/src/VeriFuzz/Fuzz.hs +++ b/src/VeriFuzz/Fuzz.hs @@ -88,7 +88,7 @@ combinations :: [a] -> [b] -> [(a, b)] combinations l1 l2 = [ (x, y) | x <- l1, y <- l2 ] logT :: MonadSh m => Text -> m () -logT = liftSh . echoP +logT = liftSh . logger timeit :: (MonadIO m, MonadSh m) => m a -> m (NominalDiffTime, a) timeit a = do |