anchor.diff:      | ToggleFsharpCollapse
       | ToggleHtmlCollapse
       | FailEditorsLayout of exn
  +    | WindowResize
   
   open Elmish
   open Fable.Import.JS
  
positive.code:             | HtmlOnly -> FSharpOnly
  
          { model with EditorCollapse = newState }, Cmd.attemptFunc updateLayouts () FailEditorsLayout
  
      | FailEditorsLayout error ->
          console.log error.Message
  
negative.code: 
  open Elmish.React
  
  let resizeSubscription _ =
      let sub dispatch =
          let mutable lastTick = DateTime.Now
  
          window.addEventListener_resize(Func<_,_>(fun _ ->
              let now = DateTime.Now
              if lastTick - now > TimeSpan.FromSeconds 1.5 then
                  dispatch WindowResize
                  lastTick <- now
              null
          ))
  
      Cmd.ofSub sub
  
  Program.mkProgram init update view
  #if DEBUG
  // |> Program.withConsoleTrace
  