Emi/aviary-ps
1
0
Fork 0
Code Issues Pull requests Releases Activity

Change load order when focusing image

Browse source
This commit is contained in:
Emi Simpson 2022-11-16 11:54:27 -05:00
parent 40757cbe6a
commit f364d00d3e
Signed by: Emi
GPG key ID: A12F2C2FFDC3D847
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/UI.purs
View file

@ -237,7 +237,7 @@ update' (ImgUpdate isThumb pos newData) (GLoaded gal) =
_, Nothing -> Modify $ GError $ UnexpectedError $ "Suprising out of bound index!" _, Nothing -> Modify $ GError $ UnexpectedError $ "Suprising out of bound index!"
_, (Just _) -> Modify newGallery -- No fetch required _, (Just _) -> Modify newGallery -- No fetch required
update' (Focus imageIndex) (GLoaded gal) = Both update' (Focus imageIndex) (GLoaded gal) = Both
([DownloadImage >>> pure] <*> [imageIndex, imageIndex - 1, imageIndex + 1]) ([DownloadImage >>> pure] <*> [imageIndex, imageIndex + 1, imageIndex - 1])
(GLoaded gal{ focus = Just { imageIndex, zoom: false } }) (GLoaded gal{ focus = Just { imageIndex, zoom: false } })
update' Unfocus (GLoaded gal) = Modify $ GLoaded gal{ focus = Nothing } update' Unfocus (GLoaded gal) = Modify $ GLoaded gal{ focus = Nothing }
update' Zoom (GLoaded gal) = Modify $ GLoaded gal{ focus = gal.focus <#> _{ zoom = true } } update' Zoom (GLoaded gal) = Modify $ GLoaded gal{ focus = gal.focus <#> _{ zoom = true } }