Fix to avoid extra _ in deepSplitPortNames/shallowSplitPortNames when base is empty

Author: krame505

src/Libraries/Base1/SplitPorts.bs

@@ -69,7 +69,7 @@ instance (ShallowSplitPorts' r p) => ShallowSplitPorts' (Meta (MetaField name id
   shallowUnsplitPorts' = Meta ∘ shallowUnsplitPorts'
   shallowSplitPortNames' _ base = shallowSplitPortNames' (_ :: r) $
     -- Avoid an extra underscore, since data fields names are _[0-9]+
-    if stringOf name == "" || stringHead (stringOf name) == '_'
+    if base == "" || stringOf name == "" || stringHead (stringOf name) == '_'
     then base +++ stringOf name
     else base +++ "_" +++ stringOf name
 
@@ -180,7 +180,7 @@ instance (DeepSplitPorts'' r p) => DeepSplitPorts'' (Meta (MetaField name idx) r
   deepUnsplitPorts'' = Meta ∘ deepUnsplitPorts''
   deepSplitPortNames'' _ base = deepSplitPortNames'' (_ :: r) $
     -- Avoid an extra underscore, since data fields names are _[0-9]+
-    if stringOf name == "" || stringHead (stringOf name) == '_'
+    if base == "" || stringOf name == "" || stringHead (stringOf name) == '_'
     then base +++ stringOf name
     else base +++ "_" +++ stringOf name