From b5a95779534b50a037ee8956786f56a05b1cfba0 Mon Sep 17 00:00:00 2001
From: Lars-Dominik Braun <lars@6xq.net>
Date: Mon, 4 May 2015 10:11:51 +0200
Subject: Show description

---
 Main.hs | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'Main.hs')

diff --git a/Main.hs b/Main.hs
index 4dbc74e..2f83f5a 100644
--- a/Main.hs
+++ b/Main.hs
@@ -111,6 +111,12 @@ protopapers pubs = do
 		then p_ $ bibentry $ head pubs
 		else ol_ $ forM_ pubs (li_ . bibentry)
 
+protodesc :: Protocol -> Html ()
+protodesc Protocol { pdescription = Nothing } = mempty
+protodesc Protocol { pdescription = Just desc } = do
+	dt_ "Description"
+	dd_ $ p_ $ toHtml desc
+
 protoentry :: Database -> (String, Protocol) -> Html ()
 protoentry db (ident, p) =
 	let
@@ -134,6 +140,7 @@ protoentry db (ident, p) =
 				small_ $ a_ [href_ (T.pack $ '#':ident), title_ "permalink", class_ "permalink"] "¶"
 			dl_ $ do
 				protopapers pubs
+				protodesc p
 				protofeatures db p
 
 extcss url = link_ [rel_ "stylesheet", type_ "text/css", href_ url]
-- 
cgit v1.2.3