diff --git a/prototype/src/App.elm b/prototype/src/App.elm index 52aa590..9a18932 100644 --- a/prototype/src/App.elm +++ b/prototype/src/App.elm @@ -213,6 +213,7 @@ updateModel action app = case (app.location, action) of --(_, View story') -> {app | location = Viewing story' initialItemView screen1} (_, View story' screen') -> {app | location = Viewing story' initialItemView screen'} (_, ViewFavourites) -> {app | location = ViewingFavourites} + (_, ViewAboutScreen) -> {app | location = AboutScreen} -- Data update actions (_, LoadData updateItems) -> {app | items = updateItems app.items} (_, LoadDiscoveryData items updateItems) -> {app | items = updateItems app.items, discovery = updateDiscoverableItems app.discovery items}