Stuff

entradastest = all (== True) [nuevaFe d m a == fechaE entrada && nuevaH h mi == HoraE entrada && salaE entrada == nombre && sectorE entrada == sec && filaE entrada == fil && butacaE entrada == b | d <- [1..31], m <- [1..12], a <-[1..4], h <- [0..23], mi<-[0..59], nombre<-["tito", "cache", "tentenpie", "amigo"], sec <-[0..10], fil <-[0..10], b <-[0..10]] where entrada = (nuevaE (nuevaFe d m a) (nuevaH h mi) nombre sec fil b)