相关疑难解决方法(0)

我正在尝试编写一个行为如下的函数:

correctCards :: [Card] -> [Card] -> Int

它需要两个类型卡列表并检查有多少卡是相同的.这是我的代码:

correctCards answer guess = foldr step acc guess
        where 
            acc = 0
            step acc guess
                | elem (head guess) answer  = acc + 1
                | otherwise                 = acc

但类型不匹配.谁能告诉我哪里出错了？谢谢.