Dev - C++ - exception en Haskell

Hola estaba haciendo un programa de arboles en haskell pero cuando intento sacar el nombre de las hojas del arbol me manda la siguiente excepcion.
"*** Exception: Arbol.hs:(14,1)-(15,45): Non-exhaustive patterns in function noHoja
mi programa es este
---Hojas Con Valor IRD
import Data.Char
data Arbol a = Hojas String
| Nodor (Arbol a) String (Arbol a)
| Nodoi (Arbol a) String
| Nodod String (Arbol a)
arbol :: Arbol String
arbol = Nodor (Nodoi (Nodor (Hojas "Apolo")"Zeus" (Hojas "Atenas")) "Cronos" ) "Urano" (Nodor (Hojas "Eros")"Afrofita" (Hojas "Hades"))

raiz :: Arbol String -> String
raiz (Nodor i r d) = r

noHoja :: Arbol String -> String
noHoja (Hojas r)= r
noHoja (Nodor i _ d) = noHoja i ++ noHoja d