mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

another hamlet compat fix

Browse source
This commit is contained in:
Joey Hess 2013-03-14 16:22:18 -04:00
parent 7dcf33a164
commit bcc40eac4a
3 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Assistant/WebApp/RepoList.hs
View file

@ -213,7 +213,7 @@ getRepositoriesReorderR = do
remoteListRefresh remoteListRefresh
liftAssistant updateSyncRemotes liftAssistant updateSyncRemotes
where where
fromjs = toUUID . snd . separate (== '_') . T.unpack fromjs = toUUID . T.unpack
reorderCosts :: Remote -> [Remote] -> [(Remote, Cost)] reorderCosts :: Remote -> [Remote] -> [(Remote, Cost)]
reorderCosts remote rs = zip rs'' (insertCostAfter costs i) reorderCosts remote rs = zip rs'' (insertCostAfter costs i)

2
git-annex.cabal
View file

@ -1,5 +1,5 @@
Name: git-annex Name: git-annex
Version: 4.20130228 Version: 4.20130314
Cabal-Version: >= 1.8 Cabal-Version: >= 1.8
License: GPL License: GPL
Maintainer: Joey Hess <joey@kitenet.net> Maintainer: Joey Hess <joey@kitenet.net>

2
templates/configurators/repositories/list.hamlet
View file

@ -12,7 +12,7 @@
<table .table .table-condensed> <table .table .table-condensed>
<tbody #costsortable> <tbody #costsortable>
$forall (_num, name, uuid, actions) <- repolist $forall (_num, name, uuid, actions) <- repolist
<tr .repoline ##{"costsortable_" ++ fromUUID uuid}> <tr .repoline ##{fromUUID uuid}>
<td .handle> <td .handle>
<i .icon-resize-vertical></i> <i .icon-resize-vertical></i>
#{name} #{name}