From c8fbacfa67d08d382a74bcaf5a3311c0d7e7debb Mon Sep 17 00:00:00 2001 From: panne Date: Mon, 2 Aug 2004 20:31:13 +0000 Subject: [haddock @ 2004-08-02 20:31:13 by panne] Warning police --- src/HsSyn.lhs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'src') diff --git a/src/HsSyn.lhs b/src/HsSyn.lhs index 1599365c..664c9601 100644 --- a/src/HsSyn.lhs +++ b/src/HsSyn.lhs @@ -1,5 +1,5 @@ % ----------------------------------------------------------------------------- -% $Id: HsSyn.lhs,v 1.20 2004/07/27 22:58:24 krasimir Exp $ +% $Id: HsSyn.lhs,v 1.21 2004/08/02 20:31:13 panne Exp $ % % (c) The GHC Team, 1997-2002 % @@ -460,6 +460,7 @@ markup m (DocCodeBlock d) = markupCodeBlock m (markup m d) markup m (DocURL url) = markupURL m url markup m (DocAName ref) = markupAName m ref +markupPair :: DocMarkup id a -> (GenDoc id, GenDoc id) -> (a, a) markupPair m (a,b) = (markup m a, markup m b) -- | The identity markup -- cgit v1.2.3