こっちが昨日書き直したFind。 - Find.hs module Find where import Control.Monad import System.Directory find :: String -> (FilePath -> Bool) -> IO [FilePath] find dir f = return . filter f =<< (ls_r dir) where ls_r [] = return [] ls_r dir = …