haskell second largest element from list

Question

I have this function that returns the second largest value from given list:

import Data.List

secondL:: Ord a => [a] -> a
secondL xs = let x = head xs i