add a alert at the top of the main part of the webapp, above the transfers display

Based on feedback that it was too sparse to be clear what it's doing.

Assistant/WebApp/DashBoard.hs

@@ -44,7 +44,6 @@ transfersDisplay warnNoScript = do
 	webapp <- lift getYesod
 	current <- lift $ M.toList <$> getCurrentTransfers
 	queued <- liftIO $ getTransferQueue $ transferQueue webapp
-	let ident = "transfers"
 	autoUpdate ident NotifierTransfersR (10 :: Int) (10 :: Int)
 	let transfers = simplifyTransfers $ current ++ queued
 	if null transfers
@@ -54,6 +53,7 @@ transfersDisplay warnNoScript = do
 			)
 		else $(widgetFile "dashboard/transfers")
 	where
+		ident = "transfers"
 		isrunning info = not $
 			transferPaused info || isNothing (startedTime info)
 

templates/dashboard/transfers.hamlet

@@ -1,4 +1,10 @@
 <div .span9 ##{ident}>
+  $maybe reldir <- relDir webapp
+    <div .alert .alert-info>
+      <p>
+        git-annex is watching over your files in #
+        <small><tt>#{reldir}</tt></small>, #
+        and keeping them in sync with other repositories.
   $if null transfers
   $else
     <h2>Transfers