ある入力に対してリストの中で合致したものをリストで返す関数

@_a_uに聞いてしまったり、id:suu_gがLispでやってくれたりしているうちに寝落ちしてしまって、起きたらすぐにできた、というオチ。

main = do print $ myFilter "aa" ["aa","bb","cc","aa"]

myFilter :: String -> [String] -> [String]
myFilter search list = filter (search ==) list

filterの使い方に慣れていないのがバレバレですね。