@@ -195,7 +195,7 @@ toStreamWithBufferOf chunkSize h = AS.concat $ toChunksWithBufferOf chunkSize h
195195-- /Internal/
196196--
197197{-# INLINE reader #-}
198−reader :: MonadIO m => Unfold m String String
198+reader :: MonadIO m => Unfold m FilePath FilePath
199199reader =
200200 -- XXX use proper streaming read of the dir
201201 UF.lmapM (liftIO . Dir.getDirectoryContents) UF.fromList
@@ -211,7 +211,7 @@ reader =
211211-- /Internal/
212212--
213213{-# INLINE eitherReader #-}
214−eitherReader :: MonadIO m => Unfold m String (Either String String)
214+eitherReader :: MonadIO m => Unfold m FilePath (Either FilePath FilePath)
215215eitherReader =
216216 UF.mapM2 classify
217217 $ UF.filter (\x -> x /= "." && x /= "..")
@@ -228,7 +228,7 @@ eitherReader =
228228-- /Internal/
229229--
230230{-# INLINE fileReader #-}
231−fileReader :: MonadIO m => Unfold m String String
231+fileReader :: MonadIO m => Unfold m FilePath FilePath
232232fileReader = fmap (fromRight undefined) $ UF.filter isRight eitherReader
233233
234234-- | Read directories only. Filter out "." and ".." entries.
@@ -236,14 +236,14 @@ fileReader = fmap (fromRight undefined) $ UF.filter isRight eitherReader
236236-- /Internal/
237237--
238238{-# INLINE dirReader #-}
239−dirReader :: MonadIO m => Unfold m String String
239+dirReader :: MonadIO m => Unfold m FilePath FilePath
240240dirReader = fmap (fromLeft undefined) $ UF.filter isLeft eitherReader
241241
242242-- | Raw read of a directory.
243243--
244244-- /Pre-release/
245245{-# INLINE read #-}
246−read :: MonadIO m => String -> Stream m String
246+read :: MonadIO m => FilePath -> Stream m FilePath
247247read = S.unfold reader
248248
249249{-# DEPRECATED toStream "Please use 'read' instead" #-}
@@ -256,12 +256,12 @@ toStream = read
256256--
257257-- /Pre-release/
258258{-# INLINE readEither #-}
259−readEither :: MonadIO m => String -> Stream m (Either String String)
259+readEither :: MonadIO m => FilePath -> Stream m (Either FilePath FilePath)
260260readEither = S.unfold eitherReader
261261
262262{-# DEPRECATED toEither "Please use 'readEither' instead" #-}
263263{-# INLINE toEither #-}
264−toEither :: MonadIO m => String -> Stream m (Either String String)
264+toEither :: MonadIO m => FilePath -> Stream m (Either FilePath FilePath)
265265toEither = readEither
266266
267267-- | Read files only.
@@ -269,12 +269,12 @@ toEither = readEither
269269-- /Internal/
270270--
271271{-# INLINE readFiles #-}
272−readFiles :: MonadIO m => String -> Stream m String
272+readFiles :: MonadIO m => FilePath -> Stream m FilePath
273273readFiles = S.unfold fileReader
274274
275275{-# DEPRECATED toFiles "Please use 'readFiles' instead" #-}
276276{-# INLINE toFiles #-}
277−toFiles :: MonadIO m => String -> Stream m String
277+toFiles :: MonadIO m => FilePath -> Stream m FilePath
278278toFiles = readFiles
279279
280280-- | Read directories only.
@@ -282,7 +282,7 @@ toFiles = readFiles
282282-- /Internal/
283283--
284284{-# INLINE readDirs #-}
285−readDirs :: MonadIO m => String -> Stream m String
285+readDirs :: MonadIO m => FilePath -> Stream m FilePath
286286readDirs = S.unfold dirReader
287287
288288{-# DEPRECATED toDirs "Please use 'readDirs' instead" #-}