sort csv file by column...

gistfile1.hs

import Data.List
import Data.List.Split

strToTable raw = map (splitOn ",") rawRowList where 
	rawRowList = splitOn "\n" raw

tableToStr table = strJoin "\n" rawRowList where
	rawRowList = map (strJoin ",") table

strJoin :: String -> [String] -> String
strJoin separator (x:xs) = foldl (\acc i->acc++separator++i) x xs
strJoin _ [] = [] 

main = do
	content <- readFile "D:\\data.csv"
	writeFile "D:\\data_sorted.csv" $ tableToStr $ sort $ strToTable content