hyperlink to repository edit form from transfer display

This commit is contained in:
Joey Hess 2012-10-17 14:45:58 -04:00
parent e6b1f36e1d
commit 59170c4187

View file

@ -23,7 +23,9 @@
→
$of Download
←
<small>#{maybe "unknown" Remote.name $ transferRemote info}</small>
<small>
<a href="@{EditRepositoryR $ transferUUID transfer}">
#{maybe "unknown" Remote.name $ transferRemote info}
$with size <- maybe "unknown" (roughSize dataUnits True) $ keySize $ transferKey transfer
$if isJust $ startedTime info
$if isrunning info