On 11 Feb 2010, at 10:05, Vasyl Pasternak wrote:
But fromSql function could convert everything to String, so you never
need to use `show`, just simply write
convrow2 :: [SqlValue] -> String
convrow2 (x:xs) = foldl (\i j -> i ++ " | " ++ (fromSql j)) (fromSql x) xs
But, IMO, this is more readable version of your function:
convrow2' :: [SqlValue] -> String
convrow2' = unwords . intersperse "|" . map fromSql
On 11 Feb 2010, at 10:06, Miguel Mitrofanov wrote:
What if you just omit the "show" function? fromSql seems to be able to convert almost anything to String.
Ok, thanks, that's a big help. I'm really glad to get rid off all that extra cruft I had there. I'd forgotten about intersperse, too. The new code works fine.