diff options
Diffstat (limited to 'test/Tests/Readers/Txt2Tags.hs')
-rw-r--r-- | test/Tests/Readers/Txt2Tags.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test/Tests/Readers/Txt2Tags.hs b/test/Tests/Readers/Txt2Tags.hs index 3989b2434..989b7f673 100644 --- a/test/Tests/Readers/Txt2Tags.hs +++ b/test/Tests/Readers/Txt2Tags.hs @@ -54,7 +54,7 @@ simpleTable'' 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 = |