User-reported unhelpful error message

**Program:** https://code.world/haskell#PlluIfwylwWGLUS0ky9qN1Q

**Message:**

program.hs:13:26-29: error:
• Occurs check: cannot construct the infinite type: a ~ [a]
• In the expression: n : ns
In the expression: [n : ns]
In the expression:
if length ns == 3 then
[n : ns]
else
[n, (head ns), head (tail ns), ....] : breakItUp ns
• Relevant bindings include
ns :: [a] (bound at program.hs:12:14)
n :: a (bound at program.hs:12:12)
breakItUp :: [a] -> [[a]] (bound at program.hs:7:1)

リンクされた CodeWorld プログラムを再現し、その Haskell コンパイラ診断がどのように表示されるかを調査します。レポートにはリポジトリのファイル、エントリポイント、テストが記載されていません。完了とするには、このエラーメッセージについて明確に合意された改善と、リンクされた例がそのメッセージを生成することの検証が必要です。

索引モデルが issue の本文から書いたものです。