hariroshan/elm-native-library
1
1
Fork 0
mirror of https://github.com/hariroshan/elm-native-library.git synced 2024-11-24 09:04:47 +03:00
Code Issues Actions Packages Projects Releases Wiki Activity

fixed frame navigation bug

Browse Source
This commit is contained in:
hariroshan 2023-01-14 19:23:05 +05:30
parent 96fc76ecf8
commit 9e944207a9
1 changed files with 7 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
elm-native/src/Native/Frame.elm
View File

@ -2,10 +2,10 @@ module Native.Frame exposing
( Model
, TransitionCurve(..)
, TransitionName(..)
, back
, current
, defaultNavigationOptions
, frame
, goTo
, handleBack
, init
, setAnimated
, setBackstackVisible
@ -257,8 +257,8 @@ init currentPage =
}
back : Bool -> Model page -> Model page
back isBackNavigation model =
handleBack : Bool -> Model page -> Model page
handleBack isBackNavigation model =
if not isBackNavigation then
model
@ -267,15 +267,12 @@ back isBackNavigation model =
[] ->
model
cur :: [] ->
{ model | history = [], current = cur }
_ :: cur :: rest ->
cur :: rest ->
{ model | history = rest, current = cur }
current : page -> Maybe NavigationOptions -> Model page -> Model page
current page maybeNavigationOptions model =
goTo : page -> Maybe NavigationOptions -> Model page -> Model page
goTo page maybeNavigationOptions model =
{ model
| history = model.current :: model.history
, current = page