module Data.Repa.Flow.Simple
( module Data.Repa.Flow.States
, Source
, Sink
, drainS
, fromList
, toList
, takeList
, finalize_i
, finalize_o
, repeat_i
, replicate_i
, prepend_i
, map_i, map_o
, dup_oo, dup_io, dup_oi
, connect_i
, head_i
, peek_i
, groups_i
, pack_ii
, folds_ii
, watch_i
, watch_o
, trigger_o
, ignore_o
, abandon_o
, fromFiles
, sourceBytes
, sourceRecords
, toFiles
, sinkBytes)
where
import Data.Repa.Flow.States
import Data.Repa.Flow.Simple.Base
import Data.Repa.Flow.Simple.List
import Data.Repa.Flow.Simple.Operator
import Data.Repa.Flow.Simple.IO
import qualified Data.Repa.Flow.Generic.Eval as G
#include "repa-flow.h"
drainS :: Monad m
=> Source m a -> Sink m a -> m ()
drainS = G.drainS