diff options
| author | panne <unknown> | 2004-08-02 20:31:13 +0000 |
|---|---|---|
| committer | panne <unknown> | 2004-08-02 20:31:13 +0000 |
| commit | c8fbacfa67d08d382a74bcaf5a3311c0d7e7debb (patch) | |
| tree | 4fd91b3ce873d455acdc23a07a9a71e34f1213f6 | |
| parent | 09527ce32a8614d3abbc8e7dc984ffdd5712f917 (diff) | |
[haddock @ 2004-08-02 20:31:13 by panne]
Warning police
| -rw-r--r-- | src/HsSyn.lhs | 3 |
1 files changed, 2 insertions, 1 deletions
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 |