Start putting sequences on primary keys. Use sql insertion return value in haskell code