From 21d6bb713fac1fbbc988a9939d7b0b1edc7a5f64 Mon Sep 17 00:00:00 2001
From: Mark Lentczner <markl@glyphic.com>
Date: Wed, 14 Jul 2010 16:00:54 +0000
Subject: convert args to SubDecl format

---
 src/Haddock/Backends/Xhtml/Layout.hs | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'src/Haddock/Backends/Xhtml/Layout.hs')

diff --git a/src/Haddock/Backends/Xhtml/Layout.hs b/src/Haddock/Backends/Xhtml/Layout.hs
index 3c695042..440d8e1e 100644
--- a/src/Haddock/Backends/Xhtml/Layout.hs
+++ b/src/Haddock/Backends/Xhtml/Layout.hs
@@ -20,6 +20,7 @@ module Haddock.Backends.Xhtml.Layout (
   divTopDecl,
   
   SubDecl,
+  subArguments,
   subConstructors, subFields,
   
   topDeclElem, declElem,
@@ -98,6 +99,10 @@ subTable decls = Just $ table << aboves (concatMap subRow decls)
        td << nonEmpty (fmap docToHtml mdoc))
       : map (cell . (td <<)) subs
       
+
+subArguments :: [(Html, Maybe (Doc DocName), [Html])] -> Html
+subArguments = divSubDecls "arguments" "Arguments" . subTable
+
 subConstructors :: [(Html, Maybe (Doc DocName), [Html])] -> Html
 subConstructors = divSubDecls "constructors" "Constructors" . subTable
 
-- 
cgit v1.2.3