unix-recursive-0.1.0.0: bin/dir-traverse.hs

module Main where

import System.Directory.Recursive as Lib
import System.Environment (getArgs)


main :: IO ()
main = do
    [path] <- getArgs
    all <- Lib.getDirRecursive path
    print $ length all