avoid listing glacier when prompting to set up a transfer repository after xmpp

Assistant/WebApp/Configurators.hs

@@ -57,8 +57,8 @@ introDisplay ident = do
 makeMiscRepositories :: Widget
 makeMiscRepositories = $(widgetFile "configurators/repositories/misc")
 
-makeCloudRepositories :: Widget
-makeCloudRepositories = $(widgetFile "configurators/repositories/cloud")
+makeCloudRepositories :: Bool -> Widget
+makeCloudRepositories onlyTransfer = $(widgetFile "configurators/repositories/cloud")
 
 {- Lists known repositories, followed by options to add more. -}
 getRepositoriesR :: Handler RepHtml

templates/configurators/pairing/xmpp/end.hamlet

@@ -30,4 +30,4 @@
   ^{cloudrepolist}
   <h2>
     Add a cloud repository
-  ^{makeCloudRepositories}
+  ^{makeCloudRepositories True}

templates/configurators/repositories.hamlet

@@ -11,4 +11,4 @@
       <h2>
         Store your data in the cloud
 
-      ^{makeCloudRepositories}
+      ^{makeCloudRepositories False}

templates/configurators/repositories/cloud.hamlet

@@ -16,6 +16,7 @@
 <p>
   Good choice for professional quality storage.
 
+$if not onlyTransfer
   <h3>
     <a href="@{AddGlacierR}">
       <i .icon-plus-sign></i> Amazon Glacier