Haskell -- sort list with impure function

How can I sort list with IO Compare function?

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

Sortby expects (a->a->Ordering) and I don't know, how to deal with it. I am too lazy to implement quick sort myself.