Advertisement
Guest User

Untitled

a guest
Jul 10th, 2013
89
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. import System.Directory.Tree
  2. import qualified Data.Foldable as F
  3. import qualified Data.Traversable as T
  4.  
  5. main = do
  6.     dir <- readDirectoryWithL readFile "directory"
  7.     let
  8.         tree = dirTree dir
  9.         a:xs = contents tree
  10.     print $ name a
  11.     _ <- getLine -- manually change the content of the file here
  12.     print $ file a
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement