From c19379e085ac0d18f18a017e59c88a67997b45d4 Mon Sep 17 00:00:00 2001
From: Lars-Dominik Braun <lars@6xq.net>
Date: Tue, 14 Apr 2015 13:29:40 +0200
Subject: Add row ids

---
 Main.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Main.hs')

diff --git a/Main.hs b/Main.hs
index d7e4a16..be2e409 100644
--- a/Main.hs
+++ b/Main.hs
@@ -88,7 +88,7 @@ head' [] = Nothing
 head' (x:_) = Just x
 
 protoentry :: Database -> (String, Protocol) -> Html ()
-protoentry db (ident, p) = tr_ $ do
+protoentry db (ident, p) = tr_ [id_ $ T.pack ident] $ do
 	let
 		pubs = protoPublications db p
 		firstpub = join (head' pubs)
-- 
cgit v1.2.3