Extension method to allow the use of Quotation Expressions for NotifyPropertyChanged

PropertyChangedBaseEx.fs

[<AutoOpen>]
module PropertyChangedBaseEx

open Caliburn.Micro
open System
open System.Linq.Expressions
open Microsoft.FSharp.Linq.QuotationEvaluation
open Microsoft.FSharp.Quotations

type PropertyChangedBase with
    member self.NotifyOfPropertyChange (expr: Expr<'a>) =
        let body = expr.ToLinqExpression()
        let func = Expression.Lambda<Func<'a>>(body)
        self.NotifyOfPropertyChange func

usage example:

[<Export(typeof<IShell>)>]
type ShellViewModel [<ImportingConstructor>] (testViewModel: TestViewModel) =
    inherit Screen()

    let mutable isBusy = false

    interface IShell

    member self.IsBusy
        with get() = isBusy
        and set(value) =
            isBusy <- value
            self.NotifyOfPropertyChange <@ self.IsBusy @>