Haskell and map/reduce

gistfile1.hs

 {-# LANGUAGE UnicodeSyntax #-}
-- Pardon me. Crying for the missing lambda charater on the keybord. 
 
-- Let's construct queries from SQL statements.
makeQueries strs = map λstr → prepare conn str
doQuery qrys = foldl (λresults query → results >> query) (return ()) qrys 

-- Do query and get results.
let stmts = [ "INSERT INTO Articles ('Functional JavaScript')"
            , "INSERT INTO Gecko VALUES ('30.a1')"
            , "DELETE FROM Articles WHERE version='deprecated'"
            ]

main = execute (doQuery (makeQuery stmts))