Inital work on Data.Acid + Happstack example.