summaryrefslogtreecommitdiff
path: root/Main.hs
diff options
context:
space:
mode:
authorLars-Dominik Braun <lars@6xq.net>2015-04-30 15:41:57 +0200
committerLars-Dominik Braun <lars@6xq.net>2015-04-30 15:41:57 +0200
commit46251a7e076aa23e4caa30c50f154382a1608ef1 (patch)
treeebbb210fbdb01f5a25ec0f0bbb517caacaadd565 /Main.hs
parentaeb5666b39103f5419d5d006dec54a07e35a8528 (diff)
downloadcomatose-46251a7e076aa23e4caa30c50f154382a1608ef1.tar.gz
comatose-46251a7e076aa23e4caa30c50f154382a1608ef1.tar.bz2
comatose-46251a7e076aa23e4caa30c50f154382a1608ef1.zip
Add longname and author to filter
Diffstat (limited to 'Main.hs')
-rw-r--r--Main.hs2
1 files changed, 2 insertions, 0 deletions
diff --git a/Main.hs b/Main.hs
index b937fb9..4dbc74e 100644
--- a/Main.hs
+++ b/Main.hs
@@ -122,6 +122,8 @@ protoentry db (ident, p) =
id_ $ T.pack ident
, class_ "protocol"
, data_ "name" (T.pack $ pname p)
+ , data_ "longname" (maybe "" T.pack $ plongname p)
+ , data_ "author" (maybe "" T.pack $ field "author")
, data_ "year" (maybe "" T.pack $ field "year")
] $ do
h3_ $ do