Advertisement
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"
- let
- tree = dirTree dir
- a:xs = contents tree
- print $ name a
- _ <- getLine -- manually change the content of the file here
- print $ file a
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement