diff options
| -rw-r--r-- | src/HaddockTypes.hs | 2 |
1 files changed, 2 insertions, 0 deletions
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 |