FsAdvent 2018 Code

AvaloniaProgram.fs

[<STAThread>]
[<EntryPoint>]
let main _ =         
    let app () =
        AppBuilder.Configure<App>().UsePlatformDetect().LogToDebug().SetupWithoutStarting().Instance                

    let nav = Gjallarhorn.Avalonia.Navigation.singleView app MainWindow
    let app' = Program.application nav.Navigate
         
    Gjallarhorn.Avalonia.Framework.RunApplication<Forest,unit,ForestMessage> (nav, app')
    0

WpfView.fs

[<STAThread>]
[<EntryPoint>]
let main _ =  
	// Run using the WPF wrappers around the basic application framework    
	let nav = Gjallarhorn.Wpf.Navigation.singleView System.Windows.Application MainWindow
	let app = Program.application nav.Navigate
	Gjallarhorn.Wpf.Framework.RunApplication<Forest,unit,ForestMessage> (nav, app)
	0