File: small.hs

package info (click to toggle)
haskell-bytestring-mmap 0.2.2-13
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 116 kB
  • sloc: haskell: 230; ansic: 11; sh: 7; makefile: 2
file content (15 lines) | stat: -rw-r--r-- 440 bytes parent folder | download | duplicates (5) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
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