refactor alert button creation code
This commit is contained in:
parent
628637c633
commit
8b329c0317
16 changed files with 267 additions and 235 deletions
|
@ -57,14 +57,9 @@ checkCloudRepos :: UrlRenderer -> Remote -> Assistant ()
|
|||
checkCloudRepos urlrenderer r =
|
||||
unlessM (syncingToCloudRemote <$> getDaemonStatus) $ do
|
||||
buddyname <- getBuddyName $ Remote.uuid r
|
||||
url <- liftIO $
|
||||
renderUrl urlrenderer (NeedCloudRepoR $ Remote.uuid r) []
|
||||
close <- asIO1 removeAlert
|
||||
void $ addAlert $ cloudRepoNeededAlert buddyname $ AlertButton
|
||||
{ buttonLabel = "Add a cloud repository"
|
||||
, buttonUrl = url
|
||||
, buttonAction = Just close
|
||||
}
|
||||
button <- mkAlertButton "Add a cloud repository" urlrenderer $
|
||||
NeedCloudRepoR $ Remote.uuid r
|
||||
void $ addAlert $ cloudRepoNeededAlert buddyname button
|
||||
#else
|
||||
checkCloudRepos _ _ = noop
|
||||
#endif
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue