anchor.diff:          db.RunInTransaction(fun _ -> db.InsertAll(cardsWithHashes) |> ignore)
   
       member this.DeleteCard(c: CardRecord) = 
  -        db.Delete(CardEntry.FromCardEntry(c)) |> ignore
  +        this.DeleteCardInternal(c)
  +        this.Compact()
   
       member this.DeleteCards(cards: CardRecord seq) = 
           db.BeginTransaction()
           this.DeleteCardsInternal(cards)
           db.Commit()
   
  -    member this.DeleteCardsInternal(cards: CardRecord seq) = 
  -        cards |> Seq.iter this.DeleteCard
  +    member private this.DeleteCardInternal(c: CardRecord) = 
  +        db.Delete(CardEntry.FromCardEntry(c)) |> ignore
  +
  +    member private this.DeleteCardsInternal(cards: CardRecord seq) = 
  +        cards |> Seq.iter this.DeleteCardInternal
   
       member this.CreateOrUpdateGame(ge: GameRecord) = 
           let existingEntry = this.Games |> Array.tryFind(fun t -> t.Name = ge.Name)
  
positive.code:     member this.Cards = 
          db.Query<CardEntry>("select * from CardEntry") |> Seq.map(fun t -> t.ToCardEntry()) |> Array.ofSeq
  
      member this.AddGame(g: GameRecord) = 
          db.Insert(GameEntry.FromGameEntry(g)) |> ignore
          (this.Games |> Array.find(fun t -> t.Name = g.Name)).ID
  
negative.code:         db.BeginTransaction()
          this.DeleteGameInternal(g)
          db.Commit()
          this.Compact()
  
      member private this.DeleteGameInternal(g: GameRecord) =
          db.Delete(GameEntry.FromGameEntry(g)) |> ignore
  