recursiveFiles :: FilePath -> FPS -> Source (HandlerT m IO) Text
recursiveFiles gitdir fps =
        sourceGitFiles (fpToString gitdir) (fpsToFilePath fps)
        $= CL.mapMaybe playableOnly
recursiveFiles :: FilePath -> FPS -> Source (HandlerT m IO) Text
recursiveFiles gitdir fps =
        sourceGitFiles (fpToString gitdir) (fpsToFilePath fps)
        $= CL.mapMaybe playableOnly
recursiveFiles gitdir fps =
        sourceGitFiles (fpToString gitdir) (fpsToFilePath fps)
        $= CL.mapMaybe playableOnly