Impecable! Salió con ese pique, no me había dado cuenta la verdad.
Asi quedo:
transpose :: Matriz a -> Matriz a
transpose [] = []
transpose m = [ columna c m | c <- [1..(length $ head m)] ]
Gracias!
Asi quedo:
transpose :: Matriz a -> Matriz a
transpose [] = []
transpose m = [ columna c m | c <- [1..(length $ head m)] ]
Gracias!