diff options
Diffstat (limited to 'test/Tests/Readers/Org/Block/Table.hs')
| -rw-r--r-- | test/Tests/Readers/Org/Block/Table.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test/Tests/Readers/Org/Block/Table.hs b/test/Tests/Readers/Org/Block/Table.hs index d35d17979..ab404648e 100644 --- a/test/Tests/Readers/Org/Block/Table.hs +++ b/test/Tests/Readers/Org/Block/Table.hs @@ -35,7 +35,7 @@ simpleTable'' capt spec headers rows (TableFoot nullAttr []) where toRow = Row nullAttr . map simpleCell - toHeaderRow l = if null l then [] else [toRow l] + toHeaderRow l = [toRow l | not (null l)] tests :: [TestTree] tests = |