I find it Handy when cleaning up C includes:



import Data.List
import System.IO

header_ord a b | Length a > length b = GT
| length a
header_ord a b = compare a b

order_headers = concat . (intersperse "\n") .
nub . (sortBy header_ord) . lines
main = do interact order_headers