haskell + mdfind sample

find.hs

import Data.List
import System.Process

getList :: String -> IO [String]
getList kwd = do lst <- readProcess "mdfind" query ""
                 return $ lines lst
                   where
                     query = ["kMDItemContentType == \"public.folder\" && kMDItemDisplayName == \"*" ++ kwd ++ "*\"wcd"]
               
-- マッチ
includeMe :: String -> [String] -> [String]
includeMe kwd = filter (isInfixOf kwd)

-- アンマッチ
omitMe :: String -> [String] -> [String]
omitMe kwd = filter (not . isInfixOf kwd)

main :: IO ()
main = do l <- getList "test"
          putStr . unlines $ fileFilter l
            where
              fileFilter = (omitMe "/Users/nbqx/Library") . (includeMe "/Users/nbqx")