pipes-file example

pipes-file-example.hs

import Pipes
import Pipes.Files
import Pipes.Safe
import Data.Monoid
import Data.Time.Clock
import System.Posix.Files.ByteString ( fileSize )

example = do
  let megs = 1024 * 1024
      days = 86400
  now <- liftIO getCurrentTime
  find "." ( hasStatus (\fs -> fileSize fs < (100*megs))
              <> hasMode 0o644
              <> lastModified_ (> addUTCTime (-(2*days)) now)
           )

main = runSafeT $ runEffect $ for example (liftIO . putStrLn )