Move permalink to proto name

1 files changed, 1 insertions, 3 deletions

diff --git a/Main.hs b/Main.hs
index 2f83f5a..d22c515 100644
--- a/Main.hs
+++ b/Main.hs
@@ -133,11 +133,9 @@ protoentry db (ident, p) =
 			, data_ "year" (maybe "" T.pack $ field "year")
 			] $ do
 			h3_ $ do
-				toHtml $ pname p
+				a_ [href_ (T.pack $ '#':ident), title_ "permalink", class_ "permalink"] $ toHtml $ pname p
 				" "
 				maybe "" (small_ . toHtml) $ plongname p
-				" "
-				small_ $ a_ [href_ (T.pack $ '#':ident), title_ "permalink", class_ "permalink"] "¶"
 			dl_ $ do
 				protopapers pubs
 				protodesc p