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.

1 files changed, 2 insertions, 3 deletions

diff --git a/Pancake/Configuration.hs b/Pancake/Configuration.hs
index 9ad60dc..2748907 100644
--- a/Pancake/Configuration.hs
+++ b/Pancake/Configuration.hs
@@ -109,9 +109,8 @@ instance Default Config where
     , indentDivs = False
     }
     where
-      curl = concat
-        [ "curl --compressed -4 -L "
-        , "-w \"\n-pancake-\nuri: %{url_effective}\ntype: %{content_type}\n\" "]
+      curl = "curl --compressed -4 -L " ++
+        "-w \"\n-pancake-\nuri: %{url_effective}\ntype: %{content_type}\n\" "
 
 -- | Loads configuration from an XDG config directory.
 loadConfig :: MonadIO m => m Config