summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Main.hs4
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