diff --git a/src/UI.purs b/src/UI.purs index f7c59aa..b87c290 100644 --- a/src/UI.purs +++ b/src/UI.purs @@ -237,7 +237,7 @@ update' (ImgUpdate isThumb pos newData) (GLoaded gal) = _, Nothing -> Modify $ GError $ UnexpectedError $ "Suprising out of bound index!" _, (Just _) -> Modify newGallery -- No fetch required 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 } }) update' Unfocus (GLoaded gal) = Modify $ GLoaded gal{ focus = Nothing } update' Zoom (GLoaded gal) = Modify $ GLoaded gal{ focus = gal.focus <#> _{ zoom = true } }