summaryrefslogtreecommitdiff
path: root/Assistant/DeleteRemote.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-04-04 01:48:26 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-04-04 01:48:26 -0400
commit0d021ce388369f3f683f9c9c8d13b5c983b12ca3 (patch)
treedab67313491f4680ef0454f6396f6007d750511a /Assistant/DeleteRemote.hs
parent8fb369aa5667f95d46b24f26b06636559155402b (diff)
refactor alert button creation code
Diffstat (limited to 'Assistant/DeleteRemote.hs')
-rw-r--r--Assistant/DeleteRemote.hs25
1 files changed, 11 insertions, 14 deletions
diff --git a/Assistant/DeleteRemote.hs b/Assistant/DeleteRemote.hs
index 65cd056f2..cae377e53 100644
--- a/Assistant/DeleteRemote.hs
+++ b/Assistant/DeleteRemote.hs
@@ -10,14 +10,10 @@
module Assistant.DeleteRemote where
import Assistant.Common
-#ifdef WITH_WEBAPP
-import Assistant.WebApp.Types
-import Assistant.WebApp
-#endif
+import Assistant.Types.UrlRenderer
import Assistant.TransferQueue
import Logs.Transfer
import Logs.Location
-import Assistant.Alert
import Assistant.DaemonStatus
import qualified Remote
import Remote.List
@@ -25,7 +21,12 @@ import qualified Git.Command
import Logs.Trust
import qualified Annex
+#ifdef WITH_WEBAPP
+import Assistant.WebApp.Types
+import Assistant.WebApp
+import Assistant.Alert
import qualified Data.Text as T
+#endif
{- Removes a remote (but leave the repository as-is), and returns the old
- Remote data. -}
@@ -82,16 +83,12 @@ removableRemote urlrenderer uuid = do
- Without the webapp, just do the removal now.
-}
finishRemovingRemote :: UrlRenderer -> UUID -> Assistant ()
-finishRemovingRemote urlrenderer uuid = do
#ifdef WITH_WEBAPP
+finishRemovingRemote urlrenderer uuid = do
desc <- liftAnnex $ Remote.prettyUUID uuid
- url <- liftIO $ renderUrl urlrenderer (FinishDeleteRepositoryR uuid) []
- close <- asIO1 removeAlert
- void $ addAlert $ remoteRemovalAlert desc $ AlertButton
- { buttonLabel = T.pack "Finish deletion process"
- , buttonUrl = url
- , buttonAction = Just close
- }
+ button <- mkAlertButton (T.pack "Finish deletion process") urlrenderer $
+ FinishDeleteRepositoryR uuid
+ void $ addAlert $ remoteRemovalAlert desc button
#else
-
+finishRemovingRemote _ uuid = void $ removeRemote uuid
#endif