pgdl-7.5: src/Search.hs

{-# LANGUAGE OverloadedStrings #-}

module Search where

import Video


import qualified Data.Text as T

search :: [Video] -> [String] -> [Video]
search vids par = filter ok vids
    where ok v = all (\tar -> T.pack tar `T.isInfixOf` name) par
            where name = if isVid v then vidName v else fldName v