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

fix build with old yesod

Browse source
This commit is contained in:
Joey Hess 2013-08-02 12:32:16 -04:00
parent 93f2371e09
commit eba74e3940
2 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
Assistant/WebApp/RepoList.hs
View file

@ -120,6 +120,7 @@ repoListDisplay reposelector = do
$(widgetFile "repolist") $(widgetFile "repolist")
where where
ident = "repolist" ident = "repolist"
unfinished uuid = uuid == NoUUID
type RepoList = [(String, UUID, Actions)] type RepoList = [(String, UUID, Actions)]

2
templates/repolist.hamlet
View file

@ -12,7 +12,7 @@
<table .table .table-condensed> <table .table .table-condensed>
<tbody #costsortable> <tbody #costsortable>
$forall (name, uuid, actions) <- repolist $forall (name, uuid, actions) <- repolist
$if uuid == NoUUID $if unfinished uuid
<tr .repoline> <tr .repoline>
<td> <td>
<a .btn .btn-mini .disabled> <a .btn .btn-mini .disabled>