fix build with old yesod

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

View file

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

View file

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