如何修复Haskell中的错误“非穷举模式”

Question

我的代码有问题，我试图根据质心列表将颜色放入颜色列表中。 我有一个不匹配的模式，但我不明白为什么？ 你可以帮帮我吗？

最佳问候 （对不起，我的英语水平）

verifWhereShouldGo :: Colors -> [Float] -> Float -> Int -> [[Colors]] -> [[Colors]]
verifWhereShouldGo    _ _ _ 525 newListCluster = newListCluster
verifWhereShouldGo    _ [] d_anc _ newListCluster = newListCluster
verifWhereShouldGo    couleur (firstD:restD) d_anc counter (fristList:restList) = do
   case firstD <= d_anc of
    True -> do
        let try = (fristList ++ [couleur])
        verifWhereShouldGo couleur (firstD:restD) 0 525 (try:restList)
    False -> do
        let d_anc = firstD
        verifWhereShouldGo couleur restD d_anc 1 restList