Haskell — список сортировки с нечистой функцией

Как я могу отсортировать список с помощью функции сравнения ввода-вывода?

sortWith :: [String] -> (String -> String -> IO Ordering) -> IO [String]

Sortby ожидает (a->a->Ordering)и я не знаю, как с этим быть. Мне лень самому реализовывать быструю сортировку.