diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-04-03 17:44:34 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-04-03 17:48:54 -0400 |
| commit | 72b25b61e9c91668e0c05a17c50462b822885eb8 (patch) | |
| tree | 73a82d2033d792c0a216ce6c0e45bd1fa126b8ff /Assistant/DeleteRemote.hs | |
| parent | f768f16999d997077be98c0d8eabd3d85fd8caa5 (diff) | |
clean up urlrenderer handling when the webapp is not built
Diffstat (limited to 'Assistant/DeleteRemote.hs')
| -rw-r--r-- | Assistant/DeleteRemote.hs | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/Assistant/DeleteRemote.hs b/Assistant/DeleteRemote.hs index 59aff57fe..a23eeaa8e 100644 --- a/Assistant/DeleteRemote.hs +++ b/Assistant/DeleteRemote.hs @@ -5,13 +5,18 @@ - Licensed under the GNU GPL version 3 or higher. -} +{-# LANGUAGE CPP #-} + module Assistant.DeleteRemote where import Assistant.Common -import Assistant.WebApp +#ifdef WITH_WEBAPP import Assistant.WebApp.Types +import Assistant.WebApp +#endif import Assistant.Alert import Assistant.DaemonStatus +import Assistant.Types.UrlRenderer import qualified Remote import Remote.List import qualified Git.Command @@ -42,6 +47,7 @@ finishRemovingRemote urlrenderer uuid = do void $ removeRemote uuid liftAnnex $ trustSet uuid DeadTrusted +#ifdef WITH_WEBAPP desc <- liftAnnex $ Remote.prettyUUID uuid url <- liftIO $ renderUrl urlrenderer (FinishedDeletingRepositoryContentsR uuid) [] close <- asIO1 removeAlert @@ -50,3 +56,4 @@ finishRemovingRemote urlrenderer uuid = do , buttonUrl = url , buttonAction = Just close } +#endif |