From eba74e3940fc09acf14ce757b062d3bf30e0c788 Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Fri, 2 Aug 2013 12:32:16 -0400
Subject: [PATCH] fix build with old yesod

---
 Assistant/WebApp/RepoList.hs | 1 +
 templates/repolist.hamlet    | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/Assistant/WebApp/RepoList.hs b/Assistant/WebApp/RepoList.hs
index 1b63805eea..9b90a4d563 100644
--- a/Assistant/WebApp/RepoList.hs
+++ b/Assistant/WebApp/RepoList.hs
@@ -120,6 +120,7 @@ repoListDisplay reposelector = do
 	$(widgetFile "repolist")
   where
 	ident = "repolist"
+	unfinished uuid = uuid == NoUUID
 
 type RepoList = [(String, UUID, Actions)]
 
diff --git a/templates/repolist.hamlet b/templates/repolist.hamlet
index 4f7ac52da2..658033148b 100644
--- a/templates/repolist.hamlet
+++ b/templates/repolist.hamlet
@@ -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>