pgdl-7.3: src/Search.hs

{-# LANGUAGE OverloadedStrings #-}

module Search where

import Video

import Data.Function

import qualified Data.Text as T

search :: [Video] -> [String] -> [Video]
search vids par = filter pred vids
    where pred v = all (\tar -> (T.pack tar) `T.isInfixOf` name) par
            where name = vidName v