anchor.diff:      member this.ToGameEntry() = 
           { GameRecord.ID = this.ID; Name = this.Name }
   
  -    static member FromGameEntry(ge: GameRecord) = 
  +    static member FromGameRecord(ge: GameRecord) = 
           let dbge = new GameEntry()
           dbge.ID <- ge.ID
           dbge.Name <- ge.Name
  
positive.code:         db.Commit()
  
      member private this.DeleteCardInternal(c: CardRecord) = 
          db.Delete(CardEntry.FromCardEntry(c)) |> ignore
  
      member private this.DeleteCardsInternal(cards: CardRecord seq) = 
          cards |> Seq.iter this.DeleteCardInternal
  
negative.code: 
      member this.AddCards(c: CardRecord seq) = 
          let cardsWithHashes = 
              c |> Seq.map(fun t -> this.UpdateCardWithHash >> CardEntry.FromCardRecord) 
  
          db.RunInTransaction(fun _ -> db.InsertAll(cardsWithHashes) |> ignore)
  
  