ignore object containing named captured groups, if present

Author: davidchambers

src/Data/String/Regex.js

@@ -74,8 +74,9 @@ exports._replaceBy = function (just) {
         return function (s) {
           return s.replace(r, function (match) {
             var groups = [];
-            for (var i = 1; i < arguments.length - 2; i++) {
-              groups.push(arguments[i] == null ? nothing : just(arguments[i]));
+            var group, i = 1;
+            while (typeof (group = arguments[i++]) !== 'number') {
+              groups.push(group == null ? nothing : just(group));
             }
             return f(match)(groups);
           });

test/Test/Data/String/Regex.purs

@@ -37,6 +37,7 @@ testStringRegex = do
   assert $ replace' (unsafeRegex "(foo)(bar)?" noFlags) (\s xs -> show xs) "<>" == "<>"
   assert $ replace' (unsafeRegex "(foo)(bar)?" noFlags) (\s xs -> show xs) "<foo>" == "<[(Just \"foo\"),Nothing]>"
   assert $ replace' (unsafeRegex "(foo)(bar)?" noFlags) (\s xs -> show xs) "<foobar>" == "<[(Just \"foo\"),(Just \"bar\")]>"
+  assert $ replace' (unsafeRegex "@(?<username>\\w+)" noFlags) (\s xs -> show xs) "@purescript" == "[(Just \"purescript\")]"
 
   log "search"
   assert $ search (unsafeRegex "b" noFlags) "abc" == Just 1