From 65fc31db4405340f1ca1130ff37ef5147423c89a Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 7 May 2002 15:36:36 +0000
Subject: [haddock @ 2002-05-07 15:36:36 by simonmar] DocEmpty is a right and
 left-unit of DocAppend (remove it in the smart constructor).

---
 src/HaddockTypes.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src')

diff --git a/src/HaddockTypes.hs b/src/HaddockTypes.hs
index c5010fa4..f99d2893 100644
--- a/src/HaddockTypes.hs
+++ b/src/HaddockTypes.hs
@@ -160,6 +160,8 @@ docAppend (DocOrderedList ds1) (DocOrderedList ds2)
   = DocOrderedList (ds1++ds2)
 docAppend (DocOrderedList ds1) (DocAppend (DocOrderedList ds2) d)
   = DocAppend (DocOrderedList (ds1++ds2)) d
+docAppend DocEmpty d = d
+docAppend d DocEmpty = d
 docAppend d1 d2 
   = DocAppend d1 d2
 
-- 
cgit v1.2.3