From 49772469e722419764377ad9449520512626c407 Mon Sep 17 00:00:00 2001
From: defanor <defanor@uberspace.net>
Date: Mon, 11 Dec 2017 17:22:00 +0300
Subject: Improve code style in a couple of places

- `sum lens /= 0` implies `length lens /= 0`, so no need to check the
  latter after the former.
- Don't use `concat` for just two elements.
---
 Pancake/Rendering.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Pancake/Rendering.hs')

diff --git a/Pancake/Rendering.hs b/Pancake/Rendering.hs
index 6c6f4e2..6c5a873 100644
--- a/Pancake/Rendering.hs
+++ b/Pancake/Rendering.hs
@@ -436,7 +436,7 @@ renderBlock (P.Table caption aligns widths headers rows) = do
   ws <- if widthsAreSet then pure widths else do
     lens <- map sum . transpose <$> mapM
       (mapM (fmap (length . unstyled . concat . rLines) . renderCell 80)) rows
-    pure $ map (\l -> if sum lens == 0 || length lens == 0
+    pure $ map (\l -> if sum lens == 0
                       then 0
                       else fromIntegral l / fromIntegral (sum lens) * 0.7
                            + 1 / fromIntegral (length lens) * 0.3) lens
-- 
cgit v1.2.3