anchor.diff:          match existingEntry with
           | Some(ee) ->
               let updatedEntry = { le with ID = ee.ID }
  -            db.Update(LessonEntry.FromLessonEntry(updatedEntry)) |> ignore
  +            db.Update(LessonEntry.FromLessonRecord(updatedEntry)) |> ignore
               ee.ID
           | _ -> this.AddLesson(le)
   
  
positive.code:         this.LanguagesForLesson(le.ID)
  
      member this.CardsFromLessonAndLanguageTag(lid: int, language: string) = 
          db.Query<CardEntry>("select * from CardEntry where LessonID = ? and LanguageTag = ?", lid, language) |> Seq.map(fun t -> t.ToCardEntry()) |> Array.ofSeq
  
      member this.CardsFromLessonAndLanguageTag(le: LessonRecord, language: string) = 
          this.CardsFromLessonAndLanguageTag(le.ID, language)
negative.code:     member this.ToGameEntry() = 
          { GameRecord.ID = this.ID; Name = this.Name }
  
      static member FromGameRecord(ge: GameRecord) = 
          let dbge = new GameEntry()
          dbge.ID <- ge.ID
          dbge.Name <- ge.Name
  