1 files changed, 1 insertions, 1 deletions
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)