dcf79c4 · typeable/pandoc

102import qualified Data.ByteString.Lazy as BL

103import qualified System.Environment as IO (lookupEnv)

104import System.FilePath.Glob (match, compile)

105−import System.Directory (createDirectoryIfMissing, listDirectory,

105+import System.Directory (createDirectoryIfMissing, getDirectoryContents,

106 doesDirectoryExist)

107import System.FilePath ((</>), (<.>), takeDirectory,

108 takeExtension, dropExtension, isRelative, normalise)

486 isdir <- doesDirectoryExist fp

487 if isdir

488 then do -- recursively add contents of directories

489− fs <- map (fp </>) <$> listDirectory fp

489+ let isSpecial ".." = True

490+ isSpecial "." = True

491+ isSpecial _ = False

492+ fs <- (map (fp </>) . filter (not . isSpecial)) <$> getDirectoryContents fp

490 foldM addToFileTree (FileTree treemap) fs

493 foldM addToFileTree (FileTree treemap) fs

491 else do

494 else do

492 contents <- B.readFile fp

495 contents <- B.readFile fp