Fix #76: Update current view when using timeline option.

This commit is contained in:
Nicolas Perriault 2017-04-27 19:48:35 +02:00
parent 1596085617
commit e77dca0692
No known key found for this signature in database
GPG Key ID: DA5E4C83904F7A2A

View File

@ -740,7 +740,11 @@ update msg model =
[]
UseGlobalTimeline flag ->
{ model | useGlobalTimeline = flag } ! []
let
newModel =
{ model | useGlobalTimeline = flag }
in
{ model | currentView = preferredTimeline newModel } ! []
ClearOpenedAccount ->
{ model | currentView = preferredTimeline model } ! []