anchor.diff:      /// </summary>
       member val Reversible = true with get, set
   
  -    member this.ToCardEntry() = 
  +    member this.ToCardRecord() = 
           {
               CardRecord.ID = this.ID; 
               LessonID = this.LessonID;
  
positive.code:             
          let cardsToUpdateWithIds = existingCards |> Array.map (fun c -> { c with ID = idOfExistingCard(c) })
  
          db.UpdateAll(cardsToUpdateWithIds |> Seq.map CardEntry.FromCardEntry) |> ignore
          db.InsertAll(newCards |> Seq.map CardEntry.FromCardEntry) |> ignore
  
  
      member this.CardsFromLesson(lid: int) = 
          db.Query<CardEntry>("select * from CardEntry where LessonID = ?", lid) |> Seq.map(fun t -> t.ToCardEntry()) |> Array.ofSeq
  
      member this.CardsFromLesson(le: LessonRecord) = 
          this.CardsFromLesson(le.ID)
  
negative.code:         db.Query<LessonEntry>("select * from LessonEntry") |> Seq.map(fun t -> t.ToLessonEntry()) |> Array.ofSeq
  
      member this.Cards = 
          db.Query<CardEntry>("select * from CardEntry") |> Seq.map(fun t -> t.ToCardRecord()) |> Array.ofSeq
  
      member private this.Compact() = 
          db.Execute("VACUUM;") |> ignore
  
      member this.AddGame(g: GameRecord) = 
          db.Insert(GameEntry.FromGameRecord(g)) |> ignore
          (this.Games |> Array.find(fun t -> t.Name = g.Name)).ID
  
      member this.DeleteGame(g: GameRecord) = 
  