From 9896698e7fd4f6266289200ee0b8932bcd528f2a Mon Sep 17 00:00:00 2001 From: Syaiful Bahri Date: Fri, 2 Jun 2017 09:17:12 +0700 Subject: [PATCH] add failing test for stack safety --- test/Main.purs | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) create mode 100644 test/Main.purs diff --git a/test/Main.purs b/test/Main.purs new file mode 100644 index 0000000..9d98910 --- /dev/null +++ b/test/Main.purs @@ -0,0 +1,19 @@ +module Test.Main where + +import Prelude hiding (discard) + +import Control.Monad.Eff (Eff) +import Control.Monad.Eff.Console (CONSOLE) + +import Data.Foldable (class Foldable) +import Data.List ((..)) + +import Pipes (each, for, (>->), discard) +import Pipes.Core (runEffectRec, Pipe) +import Pipes.Prelude as P + +runDrain :: forall e f a. Foldable f => Pipe Int a (Eff e) Unit -> f Int -> (Eff e) Unit +runDrain p v = runEffectRec $ for (each v >-> p) discard + +main :: forall eff. Eff (console :: CONSOLE | eff) Unit +main = runDrain (P.map (add 2)) (1..3000)