createPool help in database.hs