a guest Jul 10th, 2013 11 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
- import System.Directory.Tree
- import qualified Data.Foldable as F
- import qualified Data.Traversable as T
- main = do
- dir <- readDirectoryWithL readFile "directory"
- tree = dirTree dir
- a:xs = contents tree
- print $ name a
- _ <- getLine -- manually change the content of the file here
- print $ file a
RAW Paste Data