From a71a4d2e36e03a52e0ee9bf6b896324dc8054442 Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@github.com>
Date: Fri, 11 Dec 2015 00:24:37 -0500
Subject: [PATCH] Adjoining onto no rows is also identity.

---
 test/Spec.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/test/Spec.hs b/test/Spec.hs
index 51135f910..da4a40c8a 100644
--- a/test/Spec.hs
+++ b/test/Spec.hs
@@ -121,6 +121,9 @@ main = hspec $ do
     prop "is identity on top of empty rows" $
       \ a -> adjoin2 [ mempty ] a == [ a ]
 
+    prop "is identity on top of no rows" $
+      \ a -> adjoin2 [] a == [ a ]
+
     it "appends appends HTML onto incomplete lines" $
       adjoin2 [ rightRowText "[" ] (rightRowText "a") `shouldBe`
               [ rightRow [ Text "[", Text "a" ] ]