1
1
mirror of https://github.com/nmattia/snack.git synced 2024-09-11 11:55:36 +03:00

Reproduction for swp file as input, #80.

This commit is contained in:
Phil de Joux 2018-10-10 15:14:59 -04:00 committed by Nicolas Mattia
parent 3e7b93ceae
commit d4ec01d2d9
3 changed files with 12 additions and 0 deletions

3
tests/swp/package.nix Normal file
View File

@ -0,0 +1,3 @@
{ src = ./src;
dependencies = [ "conduit" ];
}

Binary file not shown.

9
tests/swp/src/Foo/Bar.hs Normal file
View File

@ -0,0 +1,9 @@
module Bar where
import Conduit
spitOut :: ConduitT () Int IO ()
spitOut = yieldMany [ 1 ..]
digest :: ConduitT Int Void IO ()
digest = mapM_C print