mirror of https://github.com/voidlizard/hbs2
16 lines
440 B
Haskell
16 lines
440 B
Haskell
import System.Directory
|
|
import System.IO.Posix.MMap
|
|
import System.Posix.Files
|
|
import System.FilePath
|
|
import Control.Monad
|
|
import Control.Applicative
|
|
|
|
main = do
|
|
-- let dir = "/home/dons/lambdabot/_darcs/patches"
|
|
-- ss <- getDirectoryContents dir
|
|
-- fs <- filterM (\f -> do st <- getFileStatus (dir </> f)
|
|
-- return (not $ isDirectory st)) ss
|
|
|
|
fs <- lines <$> readFile "/tmp/files"
|
|
mapM_ unsafeMMapFile fs
|