我编写了一个 Elm 代码片段，它会绘制一个正方形，并在每次单击鼠标时在红色和黑色之间更改正方形颜色。
然而，changeColor函数中的case结构不能按预期工作，而使用if结构实现的changeColor可以工作。
我应该怎么做才能找出问题所在？谢谢。
import Color exposing (red, black, blue, Color)
import Signal exposing ((<~))
import Graphics.Element exposing (Element, show)
import Graphics.Collage exposing (collage, square, filled, Form)
import Mouse
import Window
main : Signal Element
main =
scene <~ (Signal.foldp changeColor black Mouse.clicks)
scene : Color -> Element
scene color =
collage 600 600 [ filled_square color ]
changeColor : () -> Color -> Color
changeColor _ color =
case color of …