Programación Funcional - funcion predefinidad all

buenas

tengo un conjunto de numeros en una lista de listas del siguiente modo [[1,2],[1,3],[2,3]]
y necesito una funcion que me diga si todas las sublistas son de la misma longitud utilizando la funcion del prelude "all"

longitud :: [[Int]] -> Bool
longitud [] = True
longitud (primero:resto) = all (== (length (primero))) (primero:resto)

me da este error

*** Expression : all (flip (==) (length primero)) (primero : resto)
*** Term : flip (==) (length primero)
*** Type : Int -> Bool
*** Does not match : [Int] -> Bool

alguien me ehca un cable?¿

gracias de antemano

Aunque es demasiado tarde, aqui tienes mi solución:

mismaLongitud :: [[a]] -> Bool
mismaLongitud lista = all (==(head lenS)) lenS
where lenS = [length y | y <- lista]

saludos,
meck!