source :: Source IO (Flush Builder) -> ActionM ()
source src = stream $ \send flush ->
    src $$ CL.mapM_ (\case Chunk b -> send b
                           Flush -> flush)
source :: Source IO (Flush Builder) -> ActionM ()
source src = stream $ \send flush ->
    src $$ CL.mapM_ (\case Chunk b -> send b
                           Flush -> flush)
source src = stream $ \send flush ->
    src $$ CL.mapM_ (\case Chunk b -> send b
                           Flush -> flush)