module Data.Iteratee.IO(
enumHandle,
enumHandleRandom,
#if defined(USE_POSIX)
enumFd,
enumFdRandom,
#endif
fileDriver,
fileDriverRandom,
)
where
import Data.Iteratee.Base.StreamChunk (ReadableChunk (..))
import Data.Iteratee.Base
import Data.Iteratee.Binary()
import Data.Iteratee.IO.Handle
#if defined(USE_POSIX)
import Data.Iteratee.IO.Fd
#endif
import Control.Monad.IO.Class
#if defined(USE_POSIX)
fileDriver :: (MonadIO m, ReadableChunk s el) =>
IterateeG s el m a ->
FilePath ->
m a
fileDriver = fileDriverFd
fileDriverRandom :: (MonadIO m, ReadableChunk s el) =>
IterateeG s el m a ->
FilePath ->
m a
fileDriverRandom = fileDriverRandomFd
#else
fileDriver :: (MonadIO m, ReadableChunk s el) =>
IterateeG s el m a ->
FilePath ->
m a
fileDriver = fileDriverHandle
fileDriverRandom :: (MonadIO m, ReadableChunk s el) =>
IterateeG s el m a ->
FilePath ->
m a
fileDriverRandom = fileDriverRandomHandle
#endif