Akii · November 5, 2018 21:33
diff --git a/Aha.hs b/Aha.hs
 import           Pipes
 import qualified Pipes.Prelude as P

 p1 = each [1,2,3 :: Int]
 p2 = each [4,5,6 :: Int]

 main :: IO ()
 main = do
  runEffect ((p1 <> p2) >-> P.print)
 {-
 main
 1
 2
 3
 4
 5
 6
 -}
	import Pipes
	import qualified Pipes.Prelude as P

	p1 = each [1,2,3 :: Int]
	p2 = each [4,5,6 :: Int]

	main :: IO ()
	main = do
	runEffect ((p1 <> p2) >-> P.print)
	{-
	main
	1
	2
	3
	4
	5
	6
	-}