summaryrefslogtreecommitdiff
path: root/Main.hs
diff options
context:
space:
mode:
authorLars-Dominik Braun <lars@6xq.net>2015-04-14 13:29:40 +0200
committerLars-Dominik Braun <lars@6xq.net>2015-04-14 13:29:40 +0200
commitc19379e085ac0d18f18a017e59c88a67997b45d4 (patch)
treed1b7d51204ccbe7872ef88753589dddfe08bf384 /Main.hs
parent94b4219cd0d36769a76e1570cc8379f02c958fcc (diff)
downloadcomatose-c19379e085ac0d18f18a017e59c88a67997b45d4.tar.gz
comatose-c19379e085ac0d18f18a017e59c88a67997b45d4.tar.bz2
comatose-c19379e085ac0d18f18a017e59c88a67997b45d4.zip
Add row ids
Diffstat (limited to 'Main.hs')
-rw-r--r--Main.hs2
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)