@@ -25,6 +25,10 @@ newHandle = do
25 put (Just (h, idx))
25 put (Just (h, idx))
28+-- XXX reduce the input stream to a stream of file names
29+-- The fold can return the file name/handle after it is done.
30+-- similarly the files can written to directories and we can generate a stream
31+-- of directory names.
28splitFile :: FH.Handle -> IO ()
32splitFile :: FH.Handle -> IO ()
29splitFile inHandle =
33splitFile inHandle =
30 S.unfold FH.read inHandle
34 S.unfold FH.read inHandle