pgdl-6.8: src/Search.hs

{-# LANGUAGE OverloadedStrings #-}

module Search where

import Video

import Data.Function

import qualified Data.Text as T

search :: [Video] -> [String] -> [Video]
search vlst param = foldl (\vs ps -> filter (targ ps . vidName) vs) vlst pt
    where pt = map T.pack param
          targ = T.isInfixOf `on` T.toUpper