diff options
author | Lars-Dominik Braun <lars@6xq.net> | 2015-04-14 13:29:40 +0200 |
---|---|---|
committer | Lars-Dominik Braun <lars@6xq.net> | 2015-04-14 13:29:40 +0200 |
commit | c19379e085ac0d18f18a017e59c88a67997b45d4 (patch) | |
tree | d1b7d51204ccbe7872ef88753589dddfe08bf384 | |
parent | 94b4219cd0d36769a76e1570cc8379f02c958fcc (diff) | |
download | comatose-c19379e085ac0d18f18a017e59c88a67997b45d4.tar.gz comatose-c19379e085ac0d18f18a017e59c88a67997b45d4.tar.bz2 comatose-c19379e085ac0d18f18a017e59c88a67997b45d4.zip |
Add row ids
-rw-r--r-- | Main.hs | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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) |