unix-recursive-0.1.0.0: bin/unix-recursive-bytestring.hs

module Main where

import qualified Data.ByteString.UTF8 as BS
import System.Environment (getArgs)
import qualified System.Posix.Recursive.ByteString as Lib


main :: IO ()
main = do
    [path'] <- getArgs
    let path = BS.fromString path'
    all <- Lib.followList path
    print $ length all