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 $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 $with size <- maybe "unknown" (roughSize dataUnits True) $ keySize $ transferKey transfer
$if isJust $ startedTime info $if isJust $ startedTime info
$if isrunning info $if isrunning info