Haskell: declaraciones múltiples de "<nombre de función>" ...?

Hola chicos, así que aquí está mi código en el que recibo el error extraño de "Múltiples declaraciones de espejo". Tengo otras funciones antes de eso, pero ninguna de ellas se llama espejo ... ¿Alguna idea?

mirror :: BinTree a -> BinTree a
mirror = undefined
mirror (Node tL x tR) = Node x mirror tR mirror tL

Respuestas a la pregunta(3)

Su respuesta a la pregunta