@@ -124,12 +124,12 @@ data DataFrameExpr = DataFrameExpr {
124124dataFrameAsHTML :: DataFrame -> T.Text
125125-- web browsers don't display tables with empty cells or empty headers, so we have to insert some placeholders- it's not technically the same, but looks as expected in the browser
126126dataFrameAsHTML df
127− | length (tuples df) == 1 && length (attributes df) == 0 = style <>
127+ | length (tuples df) == 1 && null (attributes df) = style <>
128128 tablestart <>
129129 "<tr><th></th></tr>" <>
130130 "<tr><td></td></tr>" <>
131131 tablefooter <> "</table>"
132− | length (tuples df) == 0 && length (attributes df) == 0 = style <>
132+ | null (tuples df) && null (attributes df) = style <>
133133 tablestart <>
134134 "<tr><th></th></tr>" <>
135135 tablefooter <>
@@ -147,7 +147,7 @@ dataFrameAsHTML df
147147 tablestart = "<table class=\"pm36dataframe\"\">"
148148
149149tuplesAsHTML :: [DataFrameTuple] -> T.Text
150−tuplesAsHTML tups = foldr folder "" tups
150+tuplesAsHTML = foldr folder ""
151151 where
152152 folder tuple acc = acc <> tupleAsHTML tuple
153153