Codewars - Which are in?

module Codewars.Kata.Which where

import Data.List

-- Sorry for the name of the function.
inArray :: [String] -> [String] -> [String]
inArray a1 a2 = nub $ sort $ foldr go [] a2 where
    go word acc = acc ++ filter (\s -> isInfixOf s word) a1