[Haskell-cafe] Best way to write endsWith

Hello, I have this function here:

endsWith :: Eq a => [a] -> [a] -> Bool endsWith suffix list | lengthDifference < 0 = False | otherwise = (drop lengthDifference list) == suffix where lengthDifference = (length list) - (length suffix)

Would this be the preferred function argument order? Or is the reverse (ie. endsWith list suffix) better? I like being able to say "abc" `endsWith` "c", but I also like to be able to say map (endsWith 't') ["cat", dog"] but I can't have both. By the way, is there a better way to write this function to be clearer and more efficient? Thanks -John