Pretty printer improvements

Addresses (to an extent) #34

Note that this does not precisely match what is written in #34, because
of group choices. That is, handling of something like the following:
```
credential = [0, addr_keyhash //
              1, scripthash]
```

Author: nc6

CHANGELOG.md

@@ -8,3 +8,8 @@
 
 * Rationalise the choice operators. Drop (//) and provide detailed comments
   explaining the use of (/).
+
+## 0.3.0.1 -- 2024-07-31
+
+* Improvements in the pretty printer - various groups should be formatted more
+  cleanly

cuddle.cabal

@@ -1,6 +1,6 @@
 cabal-version:   3.4
 name:            cuddle
-version:         0.3.0.0
+version:         0.3.0.1
 synopsis:        CDDL Generator and test utilities
 
 -- description:

src/Codec/CBOR/Cuddle/Pretty.hs

@@ -67,9 +67,9 @@ instance Pretty Type1 where
 instance Pretty Type2 where
   pretty (T2Value v) = pretty v
   pretty (T2Name n mg) = pretty n <> pretty mg
-  pretty (T2Group g) = enclose "(" ")" $ pretty g
-  pretty (T2Map g) = enclose "{" "}" $ pretty g
-  pretty (T2Array g) = enclose "[" "]" $ pretty g
+  pretty (T2Group g) = align $ enclose "(" ")" $ pretty g
+  pretty (T2Map g) = align $ enclose "{" "}" $ pretty g
+  pretty (T2Array g) = brackets $ pretty g
   pretty (T2Unwrapped n mg) = "~" <+> pretty n <> pretty mg
   pretty (T2Enum g) = "&" <+> enclose "(" ")" (pretty g)
   pretty (T2EnumRef g mg) = "&" <+> pretty g <> pretty mg
@@ -92,9 +92,9 @@ instance Pretty OccurrenceIndicator where
 
 instance Pretty Group where
   pretty (Group (NE.toList -> xs)) =
-    align . encloseSep mempty mempty " // " $ fmap prettyGrpChoice xs
+    align . vsep . punctuate " // " $ fmap prettyGrpChoice xs
     where
-      prettyGrpChoice = align . encloseSep mempty mempty ", " . fmap pretty
+      prettyGrpChoice = sep . punctuate "," . fmap pretty
 
 instance Pretty GroupEntry where
   pretty (GEType moi mmk t) =