entries :: FilePath -> IO [FilePath]
entries fp = map (fp </>) `fmap` contents fp
entries :: FilePath -> IO [FilePath]
entries fp = map (fp </>) `fmap` contents fp
entries fp = map (fp </>) `fmap` contents fp