fix(csv): less quoting in semicolon separated lists

src/Utils/Csv.hs

@@ -140,7 +140,9 @@ instance ToField a => ToField (CsvSemicolonList a) where
       fs = map toField xs
       encOpts = defaultEncodeOptions
         { encDelimiter = fromIntegral $ ord ';'
-        , encQuoting = bool QuoteMinimal QuoteAll $ all null fs
+        , encQuoting = case fs of
+            [fStr] | null fStr -> QuoteAll
+            _other             -> QuoteMinimal
         , encUseCrLf = True
         }
 

test/Utils/CsvSpec.hs

@@ -32,7 +32,7 @@ spec = modifyMaxSuccess (* 10) . parallel $ do
       test ["foo", "bar"] "foo;bar"
       test [] ""
       test [""] "\"\""
-      test ["", ""] "\"\";\"\""
+      test ["", ""] ";"
       test ["foo", ""] "foo;"
       test ["", "foo"] ";foo"
       test ["", "", "foo", ""] ";;foo;"