haskell know if a list is in ascending order code example

Example: haskell check if list is sorted

sorted :: (Ord a) => [a] -> Bool
sorted [] = True
sorted [x] = True
sorted (x:y:xs) = if x <= y then sorted (y:xs) else False