@mattpolzin/harmony 5.4.0 → 5.4.2

package/harmony

@@ -9500,7 +9500,7 @@ function AppVersion_printVersion($0) {
 
 /* AppVersion.appVersion : String */
 const AppVersion_appVersion = __lazy(function () {
- return '5.4.0';
+ return '5.4.2';
 });
 
 /* Commands.Help.subcommandHelp' : String -> Doc AnsiStyle */
@@ -10851,7 +10851,7 @@ function Commands_PullRequest_with__listOpenPRs_1394($0, $1, $2, $3, $4) {
 }
 
 /* Commands.PullRequest.case block in case block in case block in identifyOrCreatePR,createPR */
-function Commands_PullRequest_case__casex20blockx20inx20casex20blockx20inx20identifyOrCreatePRx2ccreatePR_4000($0, $1, $2, $3, $4, $5, $6, $7, $8, $9, $a, $b) {
+function Commands_PullRequest_case__casex20blockx20inx20casex20blockx20inx20identifyOrCreatePRx2ccreatePR_4007($0, $1, $2, $3, $4, $5, $6, $7, $8, $9, $a, $b) {
  const $1b = $1c => $1d => $1e => {
   const $2d = $2e => $2f => $30 => {
    const $41 = title => $42 => $43 => {
@@ -10860,11 +10860,11 @@ function Commands_PullRequest_case__casex20blockx20inx20casex20blockx20inx20iden
      let $51;
      switch($52.h) {
       case 0: /* nothing */ {
-       $51 = Commands_PullRequest_n__11118_3058_inlineDescription($0, $1, $2, $3, $4, $5, csegen_74()(), $9.a2);
+       $51 = Commands_PullRequest_n__11124_3058_inlineDescription($0, $1, $2, $3, $4, $5, csegen_74()(), $9.a2);
        break;
       }
       case undefined: /* just */ {
-       $51 = $60 => $61 => Data_Promise_map_Functor_x28Promisex20x24ex29($64 => Prelude_Types_either(() => $67 => '', () => $69 => $69, $64), Commands_PullRequest_n__11118_3056_editorDescription($0, $1, $2, $3, $4, $5, csegen_74()(), $52.a1, templateFilePath, $9.a2), $60, $61);
+       $51 = $60 => $61 => Data_Promise_map_Functor_x28Promisex20x24ex29($64 => Prelude_Types_either(() => $67 => '', () => $69 => $69, $64), Commands_PullRequest_n__11124_3056_editorDescription($0, $1, $2, $3, $4, $5, csegen_74()(), $52.a1, templateFilePath, $9.a2), $60, $61);
        break;
       }
      }
@@ -10879,35 +10879,35 @@ function Commands_PullRequest_case__casex20blockx20inx20casex20blockx20inx20iden
  return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($f => $10 => $11 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($14 => Prelude_IO_prim__putStr('What would you like the title to be?\n', $14), $f, $10, $11), $1b, $a, $b);
 }
 
-/* Commands.PullRequest.10025:2002:userNotice */
-function Commands_PullRequest_n__10025_2002_userNotice($0, $1, $2, $3, $4, $5, $6) {
+/* Commands.PullRequest.10031:2002:userNotice */
+function Commands_PullRequest_n__10031_2002_userNotice($0, $1, $2, $3, $4, $5, $6) {
  switch($6.h) {
   case 0: /* nothing */ {
    switch($2.h) {
     case 0: /* nil */ return 'no users';
-    default: return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $e => $e, {a1: Commands_PullRequest_n__10025_1997_csv($0, $1, $2, $3, $4, $5, $2), a2: {h: 0}});
+    default: return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $e => $e, {a1: Commands_PullRequest_n__10031_1997_csv($0, $1, $2, $3, $4, $5, $2), a2: {h: 0}});
    }
   }
-  case undefined: /* just */ return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $1f => $1f, {a1: Commands_PullRequest_n__10025_1997_csv($0, $1, $2, $3, $4, $5, {a1: $6.a1, a2: $2}), a2: {h: 0}});
+  case undefined: /* just */ return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $1f => $1f, {a1: Commands_PullRequest_n__10031_1997_csv($0, $1, $2, $3, $4, $5, {a1: $6.a1, a2: $2}), a2: {h: 0}});
  }
 }
 
-/* Commands.PullRequest.10025:2001:teamNotice */
-function Commands_PullRequest_n__10025_2001_teamNotice($0, $1, $2, $3, $4, $5, $6) {
+/* Commands.PullRequest.10031:2001:teamNotice */
+function Commands_PullRequest_n__10031_2001_teamNotice($0, $1, $2, $3, $4, $5, $6) {
  switch($6.h) {
   case 0: /* nil */ return '';
   case undefined: /* cons */ {
    switch($6.a2.h) {
-    case 0: /* nil */ return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $e => $e, {a1: ' and team ', a2: {a1: Commands_PullRequest_n__10025_1997_csv($0, $1, $2, $3, $4, $5, {a1: $6.a1, a2: {h: 0}}), a2: {h: 0}}});
-    default: return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $23 => $23, {a1: ' and teams ', a2: {a1: Commands_PullRequest_n__10025_1997_csv($0, $1, $2, $3, $4, $5, $6), a2: {h: 0}}});
+    case 0: /* nil */ return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $e => $e, {a1: ' and team ', a2: {a1: Commands_PullRequest_n__10031_1997_csv($0, $1, $2, $3, $4, $5, {a1: $6.a1, a2: {h: 0}}), a2: {h: 0}}});
+    default: return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $23 => $23, {a1: ' and teams ', a2: {a1: Commands_PullRequest_n__10031_1997_csv($0, $1, $2, $3, $4, $5, $6), a2: {h: 0}}});
    }
   }
-  default: return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $36 => $36, {a1: ' and teams ', a2: {a1: Commands_PullRequest_n__10025_1997_csv($0, $1, $2, $3, $4, $5, $6), a2: {h: 0}}});
+  default: return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $36 => $36, {a1: ' and teams ', a2: {a1: Commands_PullRequest_n__10031_1997_csv($0, $1, $2, $3, $4, $5, $6), a2: {h: 0}}});
  }
 }
 
-/* Commands.PullRequest.11118:3060:prepareDescriptionFile */
-function Commands_PullRequest_n__11118_3060_prepareDescriptionFile($0, $1, $2, $3, $4, $5, $6, $7, $8) {
+/* Commands.PullRequest.11124:3060:prepareDescriptionFile */
+function Commands_PullRequest_n__11124_3060_prepareDescriptionFile($0, $1, $2, $3, $4, $5, $6, $7, $8) {
  const $1e = $1f => {
   switch($1f) {
    case 0: return $6.a1.a1.a2(undefined)('');
@@ -10915,7 +10915,7 @@ function Commands_PullRequest_n__11118_3060_prepareDescriptionFile($0, $1, $2, $
     const $38 = $39 => {
      switch($39.h) {
       case 0: /* Left */ return $6.a1.a1.a2(undefined)('');
-      case 1: /* Right */ return $6.a1.a1.a2(undefined)(Data_String_fastUnlines($39.a1.a2));
+      case 1: /* Right */ return $6.a1.a1.a2(undefined)(Data_String_Extra_join('', csegen_146(), $39.a1.a2));
      }
     };
     return $6.a1.a2(undefined)(undefined)(System_File_ReadWrite_readFilePage($6, 0n, Data_Fuel_limit(5000n), $7))($38);
@@ -10924,55 +10924,55 @@ function Commands_PullRequest_n__11118_3060_prepareDescriptionFile($0, $1, $2, $
  };
  const $11 = $6.a1.a2(undefined)(undefined)(System_File_Meta_exists($6, $7))($1e);
  const $b = $6.a1.a2(undefined)(undefined)($11);
- const $4c = templateContents => {
-  const $4d = Prelude_Types_foldMap_Foldable_List(csegen_51()(), $53 => $53, {a1: $8, a2: {a1: '\n', a2: {a1: templateContents, a2: {h: 0}}}});
-  return $6.a1.a1.a1(undefined)(undefined)($65 => undefined)(System_File_ReadWrite_writeFile($6, 'pr_description.tmp.md', $4d));
+ const $4f = templateContents => {
+  const $50 = Prelude_Types_foldMap_Foldable_List(csegen_51()(), $56 => $56, {a1: $8, a2: {a1: '\n', a2: {a1: templateContents, a2: {h: 0}}}});
+  return $6.a1.a1.a1(undefined)(undefined)($68 => undefined)(System_File_ReadWrite_writeFile($6, 'pr_description.tmp.md', $50));
  };
- return $b($4c);
+ return $b($4f);
 }
 
-/* Commands.PullRequest.11118:3059:prCreationUrl */
-function Commands_PullRequest_n__11118_3059_prCreationUrl($0, $1, $2, $3, $4, $5) {
+/* Commands.PullRequest.11124:3059:prCreationUrl */
+function Commands_PullRequest_n__11124_3059_prCreationUrl($0, $1, $2, $3, $4, $5) {
  const $6 = $5.a3;
  const $8 = $5.a2;
  return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $f => $f, {a1: 'https://github.com/', a2: {a1: $8, a2: {a1: '/', a2: {a1: $6, a2: {a1: '/compare/', a2: {a1: $2, a2: {a1: '?expand=1', a2: {h: 0}}}}}}}});
 }
 
-/* Commands.PullRequest.10025:2000:prComment */
-function Commands_PullRequest_n__10025_2000_prComment($0, $1, $2, $3, $4, $5, $6) {
+/* Commands.PullRequest.10031:2000:prComment */
+function Commands_PullRequest_n__10031_2000_prComment($0, $1, $2, $3, $4, $5, $6) {
  return Prelude_Types_foldMap_Foldable_List(csegen_51()(), $c => $c, {a1: ':musical_note: Harmoniously requested review from ', a2: {a1: $6, a2: {a1: '.', a2: {h: 0}}}});
 }
 
-/* Commands.PullRequest.10025:1999:namePrComment */
-function Commands_PullRequest_n__10025_1999_namePrComment($0, $1, $2, $3, $4, $5, $6) {
- return Commands_PullRequest_n__10025_2000_prComment($0, $1, $2, $3, $4, $5, Prelude_Types_foldMap_Foldable_List(csegen_51()(), $14 => $14, {a1: $6.a2, a2: {h: 0}}));
+/* Commands.PullRequest.10031:1999:namePrComment */
+function Commands_PullRequest_n__10031_1999_namePrComment($0, $1, $2, $3, $4, $5, $6) {
+ return Commands_PullRequest_n__10031_2000_prComment($0, $1, $2, $3, $4, $5, Prelude_Types_foldMap_Foldable_List(csegen_51()(), $14 => $14, {a1: $6.a2, a2: {h: 0}}));
 }
 
-/* Commands.PullRequest.10025:1998:mentionPrComment */
-function Commands_PullRequest_n__10025_1998_mentionPrComment($0, $1, $2, $3, $4, $5, $6) {
- return Commands_PullRequest_n__10025_2000_prComment($0, $1, $2, $3, $4, $5, Prelude_Types_foldMap_Foldable_List(csegen_51()(), $14 => $14, {a1: '@', a2: {a1: $6, a2: {h: 0}}}));
+/* Commands.PullRequest.10031:1998:mentionPrComment */
+function Commands_PullRequest_n__10031_1998_mentionPrComment($0, $1, $2, $3, $4, $5, $6) {
+ return Commands_PullRequest_n__10031_2000_prComment($0, $1, $2, $3, $4, $5, Prelude_Types_foldMap_Foldable_List(csegen_51()(), $14 => $14, {a1: '@', a2: {a1: $6, a2: {h: 0}}}));
 }
 
-/* Commands.PullRequest.11118:3058:inlineDescription */
-function Commands_PullRequest_n__11118_3058_inlineDescription($0, $1, $2, $3, $4, $5, $6, $7) {
+/* Commands.PullRequest.11124:3058:inlineDescription */
+function Commands_PullRequest_n__11124_3058_inlineDescription($0, $1, $2, $3, $4, $5, $6, $7) {
  return $6.a1.a2(undefined)(undefined)($6.a2(undefined)($16 => Prelude_IO_prim__putStr('What would you like the description to be (two blank lines to finish)?\n', $16)))($1b => $6.a1.a2(undefined)(undefined)($6.a2(undefined)($2a => Prelude_IO_prim__putStr(($7+'\n'), $2a)))($31 => $6.a1.a1.a1(undefined)(undefined)($3c => Data_String_fastUnlines({a1: $7, a2: $3c}))(Util_getManyLines($6, Data_Fuel_limit(100n)))));
 }
 
-/* Commands.PullRequest.11118:3057:getBaseBranch */
-function Commands_PullRequest_n__11118_3057_getBaseBranch($0, $1, $2, $3, $4, $5, $6, $7) {
+/* Commands.PullRequest.11124:3057:getBaseBranch */
+function Commands_PullRequest_n__11124_3057_getBaseBranch($0, $1, $2, $3, $4, $5, $6, $7) {
  switch($3.h) {
   case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($b => $c => $d => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($10 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_51()(), $19 => $19, {a1: 'Will merge into ', a2: {a1: $3.a1, a2: {a1: '.', a2: {h: 0}}}})+'\n'), $10), $b, $c, $d), $27 => $28 => $29 => Data_Promise_pure_Applicative_x28Promisex20x24ex29($3.a1, $28, $29), $6, $7);
   case 0: /* nothing */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($32 => $33 => $34 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($37 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_51()(), $40 => $40, {a1: 'What branch are you merging into (ENTER for default: ', a2: {a1: $5.a5, a2: {a1: ')?', a2: {h: 0}}}})+'\n'), $37), $32, $33, $34), $4f => $50 => $51 => Data_Promise_map_Functor_x28Promisex20x24ex29($54 => Util_Prompting_orIfEmpty({a1: $5.a5}, Data_String_trim($54)), csegen_410()(), $50, $51), $6, $7);
  }
 }
 
-/* Commands.PullRequest.9787:1728:forkedReviews */
-function Commands_PullRequest_n__9787_1728_forkedReviews($0, $1, $2, $3) {
+/* Commands.PullRequest.9793:1728:forkedReviews */
+function Commands_PullRequest_n__9793_1728_forkedReviews($0, $1, $2, $3) {
  return FFI_Concurrency_fork(csegen_74()(), ('reviews --json '+Prelude_Show_show_Show_Integer($3.a1)));
 }
 
-/* Commands.PullRequest.9210:1183:filterString */
-function Commands_PullRequest_n__9210_1183_filterString($0, $1, $2, $3, $4) {
+/* Commands.PullRequest.9216:1183:filterString */
+function Commands_PullRequest_n__9216_1183_filterString($0, $1, $2, $3, $4) {
  switch($4.h) {
   case 0: /* nothing */ return 'none';
   case undefined: /* just */ {
@@ -10984,8 +10984,8 @@ function Commands_PullRequest_n__9210_1183_filterString($0, $1, $2, $3, $4) {
  }
 }
 
-/* Commands.PullRequest.11118:3056:editorDescription */
-function Commands_PullRequest_n__11118_3056_editorDescription($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
+/* Commands.PullRequest.11124:3056:editorDescription */
+function Commands_PullRequest_n__11124_3056_editorDescription($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
  const $1d = $1e => {
   const $36 = $37 => {
    switch($37) {
@@ -10995,16 +10995,16 @@ function Commands_PullRequest_n__11118_3056_editorDescription($0, $1, $2, $3, $4
   };
   return $6.a1.a2(undefined)(undefined)(System_system($6, Prelude_Types_foldMap_Foldable_List(csegen_51()(), $30 => $30, {a1: $7, a2: {a1: ' pr_description.tmp.md', a2: {h: 0}}})))($36);
  };
- return $6.a1.a2(undefined)(undefined)(Commands_PullRequest_n__11118_3060_prepareDescriptionFile($0, $1, $2, $3, $4, $5, $6, $8, $9))($1d);
+ return $6.a1.a2(undefined)(undefined)(Commands_PullRequest_n__11124_3060_prepareDescriptionFile($0, $1, $2, $3, $4, $5, $6, $8, $9))($1d);
 }
 
-/* Commands.PullRequest.10025:1997:csv */
-function Commands_PullRequest_n__10025_1997_csv($0, $1, $2, $3, $4, $5, $6) {
+/* Commands.PullRequest.10031:1997:csv */
+function Commands_PullRequest_n__10031_1997_csv($0, $1, $2, $3, $4, $5, $6) {
  return Util_renderString($5, Text_PrettyPrint_Prettyprinter_Doc_encloseSep(Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(', '), Prelude_Types_List_mapAppend({h: 0}, $16 => Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($16)), $6)));
 }
 
-/* Commands.PullRequest.11118:3055:createPR */
-function Commands_PullRequest_n__11118_3055_createPR($0, $1, $2, $3, $4, $5, $6, $7) {
+/* Commands.PullRequest.11124:3055:createPR */
+function Commands_PullRequest_n__11124_3055_createPR($0, $1, $2, $3, $4, $5, $6, $7) {
  const $3b = $3c => $3d => $3e => {
   const $4c = $4d => $4e => $4f => {
    switch($4d) {
@@ -11021,23 +11021,23 @@ function Commands_PullRequest_n__11118_3055_createPR($0, $1, $2, $3, $4, $5, $6,
          };
          return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($69 => $6a => FFI_Git_unpushedCommits($0, $69, $6a), $6f, $65, $66);
         };
-        return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($64, $d0 => $d1 => $d2 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($d5 => $d6 => $d7 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($da => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_51()(), $e3 => $e3, {a1: 'Creating a new PR for the current branch (', a2: {a1: $2, a2: {a1: ').', a2: {h: 0}}}})+'\n'), $da), $d5, $d6, $d7), $f1 => $f2 => $f3 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($f6 => $f7 => Commands_PullRequest_n__11118_3057_getBaseBranch($0, $1, $2, $3, $4, $5, $f6, $f7), baseBranch => $102 => $103 => Commands_PullRequest_case__casex20blockx20inx20casex20blockx20inx20identifyOrCreatePRx2ccreatePR_4000($0, $1, $2, $3, $4, $5, 1, 1, baseBranch, Commands_PullRequest_parseTitleAndBodyPrefix($5, $2), $102, $103), $f2, $f3), $d1, $d2), $60, $61);
+        return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($64, $d0 => $d1 => $d2 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($d5 => $d6 => $d7 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($da => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_51()(), $e3 => $e3, {a1: 'Creating a new PR for the current branch (', a2: {a1: $2, a2: {a1: ').', a2: {h: 0}}}})+'\n'), $da), $d5, $d6, $d7), $f1 => $f2 => $f3 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($f6 => $f7 => Commands_PullRequest_n__11124_3057_getBaseBranch($0, $1, $2, $3, $4, $5, $f6, $f7), baseBranch => $102 => $103 => Commands_PullRequest_case__casex20blockx20inx20casex20blockx20inx20identifyOrCreatePRx2ccreatePR_4007($0, $1, $2, $3, $4, $5, 1, 1, baseBranch, Commands_PullRequest_parseTitleAndBodyPrefix($5, $2), $102, $103), $f2, $f3), $d1, $d2), $60, $61);
        }
        case 0: return Data_Promise_reject('Not creating a PR (for now)...', $60, $61);
       }
      };
-     return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($53 => $54 => Commands_PullRequest_n__11118_3053_continueGivenStagedChanges($0, $1, $2, $3, $4, $5, $53, $54), $5e, $4e, $4f);
+     return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($53 => $54 => Commands_PullRequest_n__11124_3053_continueGivenStagedChanges($0, $1, $2, $3, $4, $5, $53, $54), $5e, $4e, $4f);
     }
     case 0: return Data_Promise_reject('Not creating a PR (for now)...', $4e, $4f);
    }
   };
-  return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($41 => $42 => Commands_PullRequest_n__11118_3054_continueGivenUncommittedChanges($0, $1, $2, $3, $4, $5, $41, $42), $4c, $3d, $3e);
+  return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($41 => $42 => Commands_PullRequest_n__11124_3054_continueGivenUncommittedChanges($0, $1, $2, $3, $4, $5, $41, $42), $4c, $3d, $3e);
  };
  return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($a => $b => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($e => $f => FFI_Git_remoteTrackingBranch($0, $e, $f), $15 => Util_whenNothing(csegen_66()(), $15, $1c => $1d => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($20 => $21 => $22 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($25 => Prelude_IO_prim__putStr('Creating a new remote branch...\n', $25), $20, $21, $22), $2d => $2e => $2f => FFI_Git_pushNewBranch($0, $5.a4, $2, $2e, $2f), $1c, $1d)), $a, $b), $3b, $6, $7);
 }
 
-/* Commands.PullRequest.11118:3054:continueGivenUncommittedChanges */
-function Commands_PullRequest_n__11118_3054_continueGivenUncommittedChanges($0, $1, $2, $3, $4, $5, $6, $7) {
+/* Commands.PullRequest.11124:3054:continueGivenUncommittedChanges */
+function Commands_PullRequest_n__11124_3054_continueGivenUncommittedChanges($0, $1, $2, $3, $4, $5, $6, $7) {
  const $10 = $11 => $12 => $13 => {
   switch($11.h) {
    case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($17 => $18 => $19 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($1c => Prelude_IO_prim__putStr('The following files have uncommitted changes:\n', $1c), $17, $18, $19), $24 => $25 => $26 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($29 => $2a => $2b => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($2e => Prelude_IO_prim__putStr(($11.a1+'\n'), $2e), $29, $2a, $2b), csegen_702(), $25, $26), $12, $13);
@@ -11047,8 +11047,8 @@ function Commands_PullRequest_n__11118_3054_continueGivenUncommittedChanges($0,
  return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($a => $b => FFI_Git_uncommittedChanges($0, $a, $b), $10, $6, $7);
 }
 
-/* Commands.PullRequest.11118:3053:continueGivenStagedChanges */
-function Commands_PullRequest_n__11118_3053_continueGivenStagedChanges($0, $1, $2, $3, $4, $5, $6, $7) {
+/* Commands.PullRequest.11124:3053:continueGivenStagedChanges */
+function Commands_PullRequest_n__11124_3053_continueGivenStagedChanges($0, $1, $2, $3, $4, $5, $6, $7) {
  const $10 = $11 => $12 => $13 => {
   switch($11.h) {
    case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($17 => $18 => $19 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($1c => Prelude_IO_prim__putStr('The following files have staged but uncommitted changes:\n', $1c), $17, $18, $19), $24 => $25 => $26 => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($29 => $2a => $2b => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($2e => Prelude_IO_prim__putStr(($11.a1+'\n'), $2e), $29, $2a, $2b), csegen_702(), $25, $26), $12, $13);
@@ -11065,7 +11065,7 @@ function Commands_PullRequest_rf__allReviewers($0) {
 
 /* Commands.PullRequest.reviewsForPrs : Config => Octokit => List PullRequest -> Promise' (List Review) */
 function Commands_PullRequest_reviewsForPrs($0, $1, $2, $3, $4) {
- return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Basics_flip(csegen_325(), csegen_624(), Prelude_Types_traverse_Traversable_List(csegen_66()(), $12 => Commands_PullRequest_n__9787_1728_forkedReviews($0, $1, $2, $12), $2)), reviewsJson => $1a => $1b => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1e => Data_Promise_either(Prelude_Types_traverse_Traversable_List(csegen_219(), $25 => Language_JSON_Accessors_array($28 => Data_Review_parseReview($28), $25), reviewsJson), $1e), reviews => $2f => $30 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(Prelude_Types_join_Monad_List(reviews), $2f, $30), $1a, $1b), $3, $4);
+ return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(Prelude_Basics_flip(csegen_325(), csegen_624(), Prelude_Types_traverse_Traversable_List(csegen_66()(), $12 => Commands_PullRequest_n__9793_1728_forkedReviews($0, $1, $2, $12), $2)), reviewsJson => $1a => $1b => Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29($1e => Data_Promise_either(Prelude_Types_traverse_Traversable_List(csegen_219(), $25 => Language_JSON_Accessors_array($28 => Data_Review_parseReview($28), $25), reviewsJson), $1e), reviews => $2f => $30 => Data_Promise_pure_Applicative_x28Promisex20x24ex29(Prelude_Types_join_Monad_List(reviews), $2f, $30), $1a, $1b), $3, $4);
 }
 
 /* Commands.PullRequest.reviewsByUser : Config => Octokit => String -> List PullRequest -> Promise' (List Review) */
@@ -11152,8 +11152,8 @@ function Commands_PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
          return $7f => {
           switch($0.a8) {
            case 0: return Data_Promise_pure_Applicative_x28Promisex20x24ex29(undefined, $7d, $7f);
-           case 2: return FFI_GitHub_createComment($1, $0.a2, $0.a3, $2.a1, Commands_PullRequest_n__10025_1998_mentionPrComment($1, $5, $4, $3, $2, $0, chosenUser.a1), $7d, $7f);
-           case 1: return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_getUser($1)(chosenUser.a1), user => $a0 => $a1 => FFI_GitHub_createComment($1, $0.a2, $0.a3, $2.a1, Commands_PullRequest_n__10025_1999_namePrComment($1, $5, $4, $3, $2, $0, user), $a0, $a1), $7d, $7f);
+           case 2: return FFI_GitHub_createComment($1, $0.a2, $0.a3, $2.a1, Commands_PullRequest_n__10031_1998_mentionPrComment($1, $5, $4, $3, $2, $0, chosenUser.a1), $7d, $7f);
+           case 1: return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(FFI_GitHub_getUser($1)(chosenUser.a1), user => $a0 => $a1 => FFI_GitHub_createComment($1, $0.a2, $0.a3, $2.a1, Commands_PullRequest_n__10031_1999_namePrComment($1, $5, $4, $3, $2, $0, user), $a0, $a1), $7d, $7f);
           }
          };
         }
@@ -11177,11 +11177,11 @@ function Commands_PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
       let $c0;
       switch($c1) {
        case 1: {
-        $c0 = () => $c6 => $c7 => $c8 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($cb => Prelude_IO_prim__putStr((Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Could not pick a user from the given Team ')), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('(perhaps the only option was the author of the pull request?).'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $e9 => $e9, {a1: 'Requested review from ', a2: {a1: Commands_PullRequest_n__10025_2001_teamNotice($1, $5, $4, $3, $2, $0, $53), a2: {a1: ' for the open PR ', a2: {h: 0}}}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $102 => $102, {a1: 'for the current branch (', a2: {a1: Data_PullRequest_rf__webURI($0, $2), a2: {a1: ').', a2: {h: 0}}}})), a2: {h: 0}}}}}))+'\n'), $cb), $c6, $c7, $c8);
+        $c0 = () => $c6 => $c7 => $c8 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($cb => Prelude_IO_prim__putStr((Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Could not pick a user from the given Team ')), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('(perhaps the only option was the author of the pull request?).'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $e9 => $e9, {a1: 'Requested review from ', a2: {a1: Commands_PullRequest_n__10031_2001_teamNotice($1, $5, $4, $3, $2, $0, $53), a2: {a1: ' for the open PR ', a2: {h: 0}}}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $102 => $102, {a1: 'for the current branch (', a2: {a1: Data_PullRequest_rf__webURI($0, $2), a2: {a1: ').', a2: {h: 0}}}})), a2: {h: 0}}}}}))+'\n'), $cb), $c6, $c7, $c8);
         break;
        }
        case 0: {
-        $c0 = () => $113 => $114 => $115 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($118 => Prelude_IO_prim__putStr((Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $129 => $129, {a1: 'Requested review from ', a2: {a1: Commands_PullRequest_n__10025_2002_userNotice($1, $5, $4, $3, $2, $0, chosenUser), a2: {a1: Commands_PullRequest_n__10025_2001_teamNotice($1, $5, $4, $3, $2, $0, $53), a2: {a1: ' for the open PR ', a2: {h: 0}}}}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $14c => $14c, {a1: 'for the current branch (', a2: {a1: Data_PullRequest_rf__webURI($0, $2), a2: {a1: ').', a2: {h: 0}}}})), a2: {h: 0}}}))+'\n'), $118), $113, $114, $115);
+        $c0 = () => $113 => $114 => $115 => Data_Promise_liftIO_HasIO_x28Promisex20x24ex29($118 => Prelude_IO_prim__putStr((Util_renderString($0, Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $129 => $129, {a1: 'Requested review from ', a2: {a1: Commands_PullRequest_n__10031_2002_userNotice($1, $5, $4, $3, $2, $0, chosenUser), a2: {a1: Commands_PullRequest_n__10031_2001_teamNotice($1, $5, $4, $3, $2, $0, $53), a2: {a1: ' for the open PR ', a2: {h: 0}}}}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_51()(), $14c => $14c, {a1: 'for the current branch (', a2: {a1: Data_PullRequest_rf__webURI($0, $2), a2: {a1: ').', a2: {h: 0}}}})), a2: {h: 0}}}))+'\n'), $118), $113, $114, $115);
         break;
        }
       }
@@ -11255,8 +11255,8 @@ function Commands_PullRequest_identifyOrCreatePR($0, $1, $2, $3, $4, $5, $6, $7)
     return $21 => {
      const $2a = $2b => $2c => $2d => {
       switch($2b) {
-       case 1: return Data_Promise_map_Functor_x28Promisex20x24ex29($31 => ({h: 0 /* Actual */, a1: 1, a2: $31}), $35 => $36 => Commands_PullRequest_n__11118_3055_createPR($1, $2, $5, $4, $3, $0, $35, $36), $2c, $2d);
-       case 0: return Data_Promise_pure_Applicative_x28Promisex20x24ex29({h: 1 /* Hypothetical */, a1: Commands_PullRequest_n__11118_3059_prCreationUrl($1, $2, $5, $4, $3, $0)}, $2c, $2d);
+       case 1: return Data_Promise_map_Functor_x28Promisex20x24ex29($31 => ({h: 0 /* Actual */, a1: 1, a2: $31}), $35 => $36 => Commands_PullRequest_n__11124_3055_createPR($1, $2, $5, $4, $3, $0, $35, $36), $2c, $2d);
+       case 0: return Data_Promise_pure_Applicative_x28Promisex20x24ex29({h: 1 /* Hypothetical */, a1: Commands_PullRequest_n__11124_3059_prCreationUrl($1, $2, $5, $4, $3, $0)}, $2c, $2d);
       }
      };
      return Data_Promise_x3ex3ex3d_Monad_x28Promisex20x24ex29(System_File_Meta_isTTY(csegen_74()(), System_File_Virtual_stdout()), $2a, $13, $21);
@@ -11270,7 +11270,7 @@ function Commands_PullRequest_identifyOrCreatePR($0, $1, $2, $3, $4, $5, $6, $7)
 
 /* Commands.PullRequest.forkedPRs : Maybe GitHubPRState -> Nat -> Nat -> Nat -> () -> Promise' Future */
 function Commands_PullRequest_forkedPRs($0, $1, $2, $3, $4) {
- return FFI_Concurrency_fork(csegen_74()(), Prelude_Types_foldMap_Foldable_List(csegen_51()(), $f => $f, {a1: 'pulls --json ', a2: {a1: Commands_PullRequest_n__9210_1183_filterString($3, $4, $2, $1, $0), a2: {a1: ' ', a2: {a1: Prelude_Show_show_Show_Nat($1), a2: {a1: ' ', a2: {a1: Prelude_Show_show_Show_Nat($2), a2: {h: 0}}}}}}}));
+ return FFI_Concurrency_fork(csegen_74()(), Prelude_Types_foldMap_Foldable_List(csegen_51()(), $f => $f, {a1: 'pulls --json ', a2: {a1: Commands_PullRequest_n__9216_1183_filterString($3, $4, $2, $1, $0), a2: {a1: ' ', a2: {a1: Prelude_Show_show_Show_Nat($1), a2: {a1: ' ', a2: {a1: Prelude_Show_show_Show_Nat($2), a2: {h: 0}}}}}}}));
 }
 
 /* Commands.PullRequest.empty : PRHistory */
@@ -11293,18 +11293,18 @@ function Commands_PullRequest_combined($0) {
  return Prelude_Types_List_tailRecAppend($0.a1, $0.a2);
 }
 
-/* Util.Github.2647:824:startOver */
-const Util_Github_n__2647_824_startOver = __lazy(function () {
- return {a1: 1, a2: {h: 0}};
+/* Util.Github.2647:829:startOver */
+const Util_Github_n__2647_829_startOver = __lazy(function () {
+ return {a1: {h: 1 /* 2647:825:StartOver */}, a2: {h: 0}};
 });
 
-/* Util.Github.2647:823:guardSuccess */
-function Util_Github_n__2647_823_guardSuccess($0) {
+/* Util.Github.2647:828:guardSuccess */
+function Util_Github_n__2647_828_guardSuccess($0) {
  switch($0.h) {
   case undefined: /* cons */ {
-   switch($0.a1) {
-    case 4: return {a1: $0.a2};
-    case 5: return {a1: $0.a2};
+   switch($0.a1.h) {
+    case 5: /* 2647:821:PostSlash */ return {a1: $0.a2};
+    case 4: /* 2647:819:Number */ return {a1: $0.a2};
     default: return {h: 0};
    }
   }
@@ -11312,51 +11312,87 @@ function Util_Github_n__2647_823_guardSuccess($0) {
  }
 }
 
-/* Util.Github.2647:822:go */
-function Util_Github_n__2647_822_go($0, $1) {
- switch($0.a1) {
-  case 0: {
+/* Util.Github.2647:827:goPrefix */
+function Util_Github_n__2647_827_goPrefix($0, $1) {
+ switch($0.h) {
+  case undefined: /* cons */ {
+   switch($0.a1) {
+    case 0: {
+     switch($1) {
+      case 'H': return {a1: {h: 3 /* 2647:823:Prefix */, a1: 1}, a2: $0.a2};
+      default: return Util_Github_n__2647_829_startOver();
+     }
+    }
+    case 1: {
+     switch($1) {
+      case '-': return {a1: {h: 3 /* 2647:823:Prefix */, a1: 2}, a2: $0.a2};
+      default: return Util_Github_n__2647_829_startOver();
+     }
+    }
+    case 2: {
+     switch(Prelude_Types_isDigit($1)) {
+      case 1: return {a1: {h: 4 /* 2647:819:Number */}, a2: {a1: $1, a2: $0.a2}};
+      case 0: return Util_Github_n__2647_829_startOver();
+     }
+    }
+    default: return Util_Github_n__2647_829_startOver();
+   }
+  }
+  default: return Util_Github_n__2647_829_startOver();
+ }
+}
+
+/* Util.Github.2647:826:go */
+function Util_Github_n__2647_826_go($0, $1) {
+ switch($0.a1.h) {
+  case 0: /* 2647:824:Start */ {
    switch($1) {
-    case '/': return {a1: 2, a2: $0.a2};
+    case '/': return {a1: {h: 2 /* 2647:822:PreSlash */}, a2: $0.a2};
+    case 'G': return {a1: {h: 3 /* 2647:823:Prefix */, a1: 0}, a2: $0.a2};
     default: {
      switch(Prelude_Types_isDigit($1)) {
-      case 1: return {a1: 3, a2: {a1: $1, a2: $0.a2}};
-      case 0: return Util_Github_n__2647_824_startOver();
+      case 1: return {a1: {h: 4 /* 2647:819:Number */}, a2: {a1: $1, a2: $0.a2}};
+      case 0: return Util_Github_n__2647_829_startOver();
      }
     }
    }
   }
-  case 2: {
-   switch(Prelude_Types_isDigit($1)) {
-    case 1: return {a1: 3, a2: {a1: $1, a2: $0.a2}};
-    case 0: return Util_Github_n__2647_824_startOver();
+  case 3: /* 2647:823:Prefix */ return Util_Github_n__2647_827_goPrefix({a1: $0.a1.a1, a2: $0.a2}, $1);
+  case 2: /* 2647:822:PreSlash */ {
+   switch($1) {
+    case 'G': return {a1: {h: 3 /* 2647:823:Prefix */, a1: 0}, a2: $0.a2};
+    default: {
+     switch(Prelude_Types_isDigit($1)) {
+      case 1: return {a1: {h: 4 /* 2647:819:Number */}, a2: {a1: $1, a2: $0.a2}};
+      case 0: return Util_Github_n__2647_829_startOver();
+     }
+    }
    }
   }
-  case 1: {
+  case 1: /* 2647:825:StartOver */ {
    switch($1) {
-    case '/': return {a1: 2, a2: $0.a2};
-    default: return Util_Github_n__2647_824_startOver();
+    case '/': return {a1: {h: 2 /* 2647:822:PreSlash */}, a2: $0.a2};
+    default: return Util_Github_n__2647_829_startOver();
    }
   }
-  case 3: {
+  case 4: /* 2647:819:Number */ {
    switch($1) {
-    case '/': return {a1: 4, a2: $0.a2};
+    case '/': return {a1: {h: 5 /* 2647:821:PostSlash */}, a2: $0.a2};
     default: {
      switch(Prelude_Types_isDigit($1)) {
-      case 1: return {a1: 3, a2: {a1: $1, a2: $0.a2}};
-      case 0: return Util_Github_n__2647_824_startOver();
+      case 1: return {a1: {h: 4 /* 2647:819:Number */}, a2: {a1: $1, a2: $0.a2}};
+      case 0: return Util_Github_n__2647_829_startOver();
      }
     }
    }
   }
-  case 5: return {a1: 5, a2: $0.a2};
-  case 4: return {a1: 4, a2: $0.a2};
+  case 5: /* 2647:821:PostSlash */ return {a1: {h: 5 /* 2647:821:PostSlash */}, a2: $0.a2};
  }
 }
 
 /* Util.Github.parseGithubIssueNumber : String -> Maybe String */
 function Util_Github_parseGithubIssueNumber($0) {
- return Prelude_Types_map_Functor_Maybe(csegen_738(), Util_Github_n__2647_823_guardSuccess(Prelude_Types_foldl_Foldable_List($9 => $a => Util_Github_n__2647_822_go($9, $a), {a1: 0, a2: {h: 0}}, Prelude_Types_fastUnpack($0))));
+ return Prelude_Types_map_Functor_Maybe(csegen_738(), Util_Github_n__2647_828_guardSuccess(Prelude_Types_foldl_Foldable_List($9 => $a => Util_Github_n__2647_826_go($9, $a), {a1: {h: 0 /* 2647:824:Start */}, a2: {h: 0}}, Prelude_Types_fastUnpack($0))));
 }
 
 /* Util.Jira.2647:823:startOver */

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@mattpolzin/harmony",
-  "version": "5.4.0",
+  "version": "5.4.2",
   "engines": {
     "node": ">=18.0.0"
   },