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,11 +16,12 @@
 <p>
   Good choice for professional quality storage.
 
-<h3>
-  <a href="@{AddGlacierR}">
-    <i .icon-plus-sign></i> Amazon Glacier
-<p>
-  Low cost offline data archival.
+$if not onlyTransfer
+  <h3>
+    <a href="@{AddGlacierR}">
+      <i .icon-plus-sign></i> Amazon Glacier
+  <p>
+    Low cost offline data archival.
 
 <h3>
   <a href="@{AddSshR}">