Merge pull request #782 from haskell-CI/merge-spaces

Merge spaces when parsing constraint set constraints

Author: phadej

haskell-ci.cabal

@@ -1,6 +1,6 @@
 cabal-version:      2.2
 name:               haskell-ci
-version:            0.19.20250531
+version:            0.19.20250604
 synopsis:           Haskell CI script generator
 description:
   Script generator (@haskell-ci@) for

src/HaskellCI/Newtypes.hs

@@ -64,7 +64,15 @@ newtype NoCommas = NoCommas String
   deriving anyclass (C.Newtype String)
 
 instance C.Parsec NoCommas where
-    parsec = NoCommas <$> liftA2 (:) (C.satisfy (not . isSpace)) (C.munch (/= ','))
+    parsec = NoCommas . mergeSpaces <$> liftA2 (:) (C.satisfy (not . isSpace)) (C.munch (/= ','))
+
+mergeSpaces :: String -> String
+mergeSpaces []        = []
+mergeSpaces (' ' : s) = ' ' : go s where
+    go []         = []
+    go (' ' : s') = go s'
+    go (c   : s') = c : mergeSpaces s'
+mergeSpaces (c   : s) = c   : mergeSpaces s
 
 instance C.Pretty NoCommas where
     pretty (NoCommas p) = PP.text p