fcore/app-update.sml

structure AppUpdate =
struct
  open AppType

  fun update (model: app_type, inputMsg) =
    case #mode model of
      NORMAL_MODE => NormalMode.update (model, inputMsg)
    | BROWSE_MODE => BrowseMode.update (model, inputMsg)
end
begin refactoring AppUpdate structure 2025-07-06 02:49:38 +01:00			`structure AppUpdate =`
			`struct`
			`open AppType`

done refactoring functional core (mostly); next, need to move folders in temp-squares directory into main 2025-07-06 14:45:20 +01:00			`fun update (model: app_type, inputMsg) =`
			`case #mode model of`
			`NORMAL_MODE => NormalMode.update (model, inputMsg)`
			`\| BROWSE_MODE => BrowseMode.update (model, inputMsg)`
begin refactoring AppUpdate structure 2025-07-06 02:49:38 +01:00			`end`