@mattpolzin/harmony 3.1.0 → 3.3.0

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.
Files changed (2) hide show
  1. package/harmony +1131 -930
  2. package/package.json +1 -1
package/harmony CHANGED
@@ -734,7 +734,8 @@ function support_system_file_popen (cmd, m) {
734
734
  case "r":
735
735
  io_setting = ['ignore', write_fd, 2]
736
736
  break
737
- case "w", "a":
737
+ case "w":
738
+ case "a":
738
739
  io_setting = [write_fd, 'ignore', 2]
739
740
  break
740
741
  default:
@@ -791,6 +792,19 @@ const Prelude_IO_prim__putStr = (x=>process.stdout.write(x));
791
792
  const Prelude_IO_prim__getString = (x=>x);
792
793
  const Prelude_IO_prim__getStr = support_system_file_getStr;
793
794
  const PrimIO_prim__nullAnyPtr = (x=>x===undefined||x===null?1:0);
795
+ const FFI_Git_prim__userEmail = git_user_email;
796
+ const FFI_Git_prim__unpushedCommits = git_unpushed_commits;
797
+ const FFI_Git_prim__uncommittedChanges = git_uncommitted_changes;
798
+ const FFI_Git_prim__stagedChanges = git_staged_changes;
799
+ const FFI_Git_prim__rootDir = git_root_dir;
800
+ const FFI_Git_prim__remoteURI = git_remote_uri;
801
+ const FFI_Git_prim__remoteTrackingBranch = git_remote_tracking_branch;
802
+ const FFI_Git_prim__pushNewBranch = git_push_new_branch;
803
+ const FFI_Git_prim__push = git_push;
804
+ const FFI_Git_prim__listRemotes = git_list_remotes;
805
+ const FFI_Git_prim__git = git_git;
806
+ const FFI_Git_prim__currentBranch = git_current_branch;
807
+ const FFI_Git_prim__checkoutBranch = git_checkout_branch;
794
808
  const System_File_Virtual_prim__stdout = (x=>({fd:1, buffer: Buffer.alloc(0), name:'<stdout>', eof: false}));
795
809
  const System_File_Virtual_prim__stderr = (x=>({fd:2, buffer: Buffer.alloc(0), name:'<stderr>', eof: false}));
796
810
  const System_File_ReadWrite_prim__writeLine = ((filePtr, line) => require('fs').writeSync(filePtr.fd, line, undefined, 'utf-8'));
@@ -832,19 +846,6 @@ const FFI_GitHub_prim__createPR = okit_create_pr;
832
846
  const FFI_GitHub_prim__createComment = okit_create_comment;
833
847
  const FFI_GitHub_prim__addPullReviewers = okit_add_reviewers;
834
848
  const FFI_GitHub_prim__addLabels = okit_add_labels;
835
- const FFI_Git_prim__userEmail = git_user_email;
836
- const FFI_Git_prim__unpushedCommits = git_unpushed_commits;
837
- const FFI_Git_prim__uncommittedChanges = git_uncommitted_changes;
838
- const FFI_Git_prim__stagedChanges = git_staged_changes;
839
- const FFI_Git_prim__rootDir = git_root_dir;
840
- const FFI_Git_prim__remoteURI = git_remote_uri;
841
- const FFI_Git_prim__remoteTrackingBranch = git_remote_tracking_branch;
842
- const FFI_Git_prim__pushNewBranch = git_push_new_branch;
843
- const FFI_Git_prim__push = git_push;
844
- const FFI_Git_prim__listRemotes = git_list_remotes;
845
- const FFI_Git_prim__git = git_git;
846
- const FFI_Git_prim__currentBranch = git_current_branch;
847
- const FFI_Git_prim__checkoutBranch = git_checkout_branch;
848
849
  const System_Random_prim__randomBits32 = ((max)=>Math.floor(Math.random() * max));
849
850
  const FFI_Concurrency_prim__singleton = ((p)=>Promise.all([p]));
850
851
  const FFI_Concurrency_prim__neutral = (()=>Promise.all([]));
@@ -870,7 +871,7 @@ function x24tcOpt_1($0) {
870
871
  case 0: return {h: 0 /* {TcDone:1} */, a1: $0.a5};
871
872
  default: {
872
873
  const $17 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
873
- const $1b = Data_List_DeleteBy_deleteByx27($1e => $1f => Prelude_Basics_on($22 => $23 => $0.a1.a1.a1($22)($23), csegen_490(), $1e, $1f), $17, $0.a6);
874
+ const $1b = Data_List_DeleteBy_deleteByx27($1e => $1f => Prelude_Basics_on($22 => $23 => $0.a1.a1.a1($22)($23), csegen_585(), $1e, $1f), $17, $0.a6);
874
875
  switch($1b.a1.h) {
875
876
  case 0: /* nothing */ {
876
877
  switch($0.a8) {
@@ -885,7 +886,7 @@ function x24tcOpt_1($0) {
885
886
  }
886
887
  default: {
887
888
  const $6a = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
888
- const $6e = Data_List_DeleteBy_deleteByx27($71 => $72 => Prelude_Basics_on($75 => $76 => $0.a1.a1.a1($75)($76), csegen_490(), $71, $72), $6a, $0.a6);
889
+ const $6e = Data_List_DeleteBy_deleteByx27($71 => $72 => Prelude_Basics_on($75 => $76 => $0.a1.a1.a1($75)($76), csegen_585(), $71, $72), $6a, $0.a6);
889
890
  switch($6e.a1.h) {
890
891
  case 0: /* nothing */ {
891
892
  switch($0.a8) {
@@ -910,7 +911,7 @@ function x24tcOpt_1($0) {
910
911
  case 0: return {h: 0 /* {TcDone:1} */, a1: $0.a5};
911
912
  default: {
912
913
  const $c1 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
913
- const $c5 = Data_List_DeleteBy_deleteByx27($c8 => $c9 => Prelude_Basics_on($cc => $cd => $0.a1.a1.a1($cc)($cd), csegen_490(), $c8, $c9), $c1, $0.a6);
914
+ const $c5 = Data_List_DeleteBy_deleteByx27($c8 => $c9 => Prelude_Basics_on($cc => $cd => $0.a1.a1.a1($cc)($cd), csegen_585(), $c8, $c9), $c1, $0.a6);
914
915
  switch($c5.a1.h) {
915
916
  case 0: /* nothing */ {
916
917
  switch($0.a8) {
@@ -925,7 +926,7 @@ function x24tcOpt_1($0) {
925
926
  }
926
927
  default: {
927
928
  const $114 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2, a3: $0.a5.a1.a3};
928
- const $118 = Data_List_DeleteBy_deleteByx27($11b => $11c => Prelude_Basics_on($11f => $120 => $0.a1.a1.a1($11f)($120), csegen_490(), $11b, $11c), $114, $0.a6);
929
+ const $118 = Data_List_DeleteBy_deleteByx27($11b => $11c => Prelude_Basics_on($11f => $120 => $0.a1.a1.a1($11f)($120), csegen_585(), $11b, $11c), $114, $0.a6);
929
930
  switch($118.a1.h) {
930
931
  case 0: /* nothing */ {
931
932
  switch($0.a8) {
@@ -990,7 +991,7 @@ function Prelude_Show_n__3221_12652_showx27($0, $1, $2, $3) {
990
991
  /* {$tcOpt:4} */
991
992
  function x24tcOpt_4($0) {
992
993
  switch($0.h) {
993
- case 1: /* {TcContinue4:1} */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4(), a5: $0.a8, a6: {a1: {a1: $0.a5.a2, a2: {a1: Graph_n__5936_1935_graphable($0.a1, $0.a2, $0.a3, $0.a7), a2: Data_List1_forget($0.a10)}}}};
994
+ case 1: /* {TcContinue4:1} */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4(), a5: $0.a8, a6: {a1: {a1: $0.a5.a2, a2: {a1: Graph_n__5952_6228_graphable($0.a1, $0.a2, $0.a3, $0.a7), a2: Data_List1_forget($0.a10)}}}};
994
995
  case 2: /* {TcContinue4:2} */ {
995
996
  switch($0.a4.h) {
996
997
  case 0: /* nothing */ {
@@ -1009,7 +1010,7 @@ function x24tcOpt_4($0) {
1009
1010
  case undefined: /* cons */ return {h: 0 /* {TcDone:4} */, a1: Data_List1_forget($0.a6.a1.a2)};
1010
1011
  default: {
1011
1012
  switch($0.a6.h) {
1012
- case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4.a1(), a5: $0.a5.a2, a6: {a1: {a1: $0.a5.a1.a1.a2, a2: {a1: Graph_n__5936_1935_graphable($0.a1, $0.a2, $0.a3, $0.a5.a1), a2: {h: 0}}}}};
1013
+ case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4.a1(), a5: $0.a5.a2, a6: {a1: {a1: $0.a5.a1.a1.a2, a2: {a1: Graph_n__5952_6228_graphable($0.a1, $0.a2, $0.a3, $0.a5.a1), a2: {h: 0}}}}};
1013
1014
  case undefined: /* just */ {
1014
1015
  const $3b = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2};
1015
1016
  switch(((Data_Date_nextMonth($0.a6.a1.a1.a2)===$0.a5.a1.a1.a2.a2)?1:0)) {
@@ -1023,7 +1024,7 @@ function x24tcOpt_4($0) {
1023
1024
  }
1024
1025
  default: {
1025
1026
  switch($0.a6.h) {
1026
- case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4.a1(), a5: $0.a5.a2, a6: {a1: {a1: $0.a5.a1.a1.a2, a2: {a1: Graph_n__5936_1935_graphable($0.a1, $0.a2, $0.a3, $0.a5.a1), a2: {h: 0}}}}};
1027
+ case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4.a1(), a5: $0.a5.a2, a6: {a1: {a1: $0.a5.a1.a1.a2, a2: {a1: Graph_n__5952_6228_graphable($0.a1, $0.a2, $0.a3, $0.a5.a1), a2: {h: 0}}}}};
1027
1028
  case undefined: /* just */ {
1028
1029
  const $71 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2};
1029
1030
  switch(((Data_Date_nextMonth($0.a6.a1.a1.a2)===$0.a5.a1.a1.a2.a2)?1:0)) {
@@ -1037,7 +1038,7 @@ function x24tcOpt_4($0) {
1037
1038
  }
1038
1039
  default: {
1039
1040
  switch($0.a6.h) {
1040
- case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4.a1(), a5: $0.a5.a2, a6: {a1: {a1: $0.a5.a1.a1.a2, a2: {a1: Graph_n__5936_1935_graphable($0.a1, $0.a2, $0.a3, $0.a5.a1), a2: {h: 0}}}}};
1041
+ case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4.a1(), a5: $0.a5.a2, a6: {a1: {a1: $0.a5.a1.a1.a2, a2: {a1: Graph_n__5952_6228_graphable($0.a1, $0.a2, $0.a3, $0.a5.a1), a2: {h: 0}}}}};
1041
1042
  case undefined: /* just */ {
1042
1043
  const $a7 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2};
1043
1044
  switch(((Data_Date_nextMonth($0.a6.a1.a1.a2)===$0.a5.a1.a1.a2.a2)?1:0)) {
@@ -1061,7 +1062,7 @@ function x24tcOpt_4($0) {
1061
1062
  case undefined: /* cons */ return {h: 0 /* {TcDone:4} */, a1: Data_List1_forget($0.a6.a1.a2)};
1062
1063
  default: {
1063
1064
  switch($0.a6.h) {
1064
- case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4.a1(), a5: $0.a5.a2, a6: {a1: {a1: $0.a5.a1.a1.a2, a2: {a1: Graph_n__5936_1935_graphable($0.a1, $0.a2, $0.a3, $0.a5.a1), a2: {h: 0}}}}};
1065
+ case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4.a1(), a5: $0.a5.a2, a6: {a1: {a1: $0.a5.a1.a1.a2, a2: {a1: Graph_n__5952_6228_graphable($0.a1, $0.a2, $0.a3, $0.a5.a1), a2: {h: 0}}}}};
1065
1066
  case undefined: /* just */ {
1066
1067
  const $e4 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2};
1067
1068
  switch(((Data_Date_nextMonth($0.a6.a1.a1.a2)===$0.a5.a1.a1.a2.a2)?1:0)) {
@@ -1075,7 +1076,7 @@ function x24tcOpt_4($0) {
1075
1076
  }
1076
1077
  default: {
1077
1078
  switch($0.a6.h) {
1078
- case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4.a1(), a5: $0.a5.a2, a6: {a1: {a1: $0.a5.a1.a1.a2, a2: {a1: Graph_n__5936_1935_graphable($0.a1, $0.a2, $0.a3, $0.a5.a1), a2: {h: 0}}}}};
1079
+ case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4.a1(), a5: $0.a5.a2, a6: {a1: {a1: $0.a5.a1.a1.a2, a2: {a1: Graph_n__5952_6228_graphable($0.a1, $0.a2, $0.a3, $0.a5.a1), a2: {h: 0}}}}};
1079
1080
  case undefined: /* just */ {
1080
1081
  const $11a = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2};
1081
1082
  switch(((Data_Date_nextMonth($0.a6.a1.a1.a2)===$0.a5.a1.a1.a2.a2)?1:0)) {
@@ -1089,7 +1090,7 @@ function x24tcOpt_4($0) {
1089
1090
  }
1090
1091
  default: {
1091
1092
  switch($0.a6.h) {
1092
- case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4.a1(), a5: $0.a5.a2, a6: {a1: {a1: $0.a5.a1.a1.a2, a2: {a1: Graph_n__5936_1935_graphable($0.a1, $0.a2, $0.a3, $0.a5.a1), a2: {h: 0}}}}};
1093
+ case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4.a1(), a5: $0.a5.a2, a6: {a1: {a1: $0.a5.a1.a1.a2, a2: {a1: Graph_n__5952_6228_graphable($0.a1, $0.a2, $0.a3, $0.a5.a1), a2: {h: 0}}}}};
1093
1094
  case undefined: /* just */ {
1094
1095
  const $150 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2};
1095
1096
  switch(((Data_Date_nextMonth($0.a6.a1.a1.a2)===$0.a5.a1.a1.a2.a2)?1:0)) {
@@ -1113,7 +1114,7 @@ function x24tcOpt_4($0) {
1113
1114
  case undefined: /* cons */ return {h: 0 /* {TcDone:4} */, a1: Data_List1_forget($0.a6.a1.a2)};
1114
1115
  default: {
1115
1116
  switch($0.a6.h) {
1116
- case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4.a1(), a5: $0.a5.a2, a6: {a1: {a1: $0.a5.a1.a1.a2, a2: {a1: Graph_n__5936_1935_graphable($0.a1, $0.a2, $0.a3, $0.a5.a1), a2: {h: 0}}}}};
1117
+ case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4.a1(), a5: $0.a5.a2, a6: {a1: {a1: $0.a5.a1.a1.a2, a2: {a1: Graph_n__5952_6228_graphable($0.a1, $0.a2, $0.a3, $0.a5.a1), a2: {h: 0}}}}};
1117
1118
  case undefined: /* just */ {
1118
1119
  const $18d = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2};
1119
1120
  switch(((Data_Date_nextMonth($0.a6.a1.a1.a2)===$0.a5.a1.a1.a2.a2)?1:0)) {
@@ -1127,7 +1128,7 @@ function x24tcOpt_4($0) {
1127
1128
  }
1128
1129
  default: {
1129
1130
  switch($0.a6.h) {
1130
- case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4.a1(), a5: $0.a5.a2, a6: {a1: {a1: $0.a5.a1.a1.a2, a2: {a1: Graph_n__5936_1935_graphable($0.a1, $0.a2, $0.a3, $0.a5.a1), a2: {h: 0}}}}};
1131
+ case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4.a1(), a5: $0.a5.a2, a6: {a1: {a1: $0.a5.a1.a1.a2, a2: {a1: Graph_n__5952_6228_graphable($0.a1, $0.a2, $0.a3, $0.a5.a1), a2: {h: 0}}}}};
1131
1132
  case undefined: /* just */ {
1132
1133
  const $1c3 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2};
1133
1134
  switch(((Data_Date_nextMonth($0.a6.a1.a1.a2)===$0.a5.a1.a1.a2.a2)?1:0)) {
@@ -1141,7 +1142,7 @@ function x24tcOpt_4($0) {
1141
1142
  }
1142
1143
  default: {
1143
1144
  switch($0.a6.h) {
1144
- case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4.a1(), a5: $0.a5.a2, a6: {a1: {a1: $0.a5.a1.a1.a2, a2: {a1: Graph_n__5936_1935_graphable($0.a1, $0.a2, $0.a3, $0.a5.a1), a2: {h: 0}}}}};
1145
+ case 0: /* nothing */ return {h: 2 /* {TcContinue4:2} */, a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4.a1(), a5: $0.a5.a2, a6: {a1: {a1: $0.a5.a1.a1.a2, a2: {a1: Graph_n__5952_6228_graphable($0.a1, $0.a2, $0.a3, $0.a5.a1), a2: {h: 0}}}}};
1145
1146
  case undefined: /* just */ {
1146
1147
  const $1f9 = {a1: $0.a5.a1.a1, a2: $0.a5.a1.a2};
1147
1148
  switch(((Data_Date_nextMonth($0.a6.a1.a1.a2)===$0.a5.a1.a1.a2.a2)?1:0)) {
@@ -1163,18 +1164,18 @@ function x24tcOpt_4($0) {
1163
1164
  }
1164
1165
  }
1165
1166
 
1166
- /* Graph.5953:2064:insertNext */
1167
- function Graph_n__5953_2064_insertNext($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
1167
+ /* Graph.5969:6357:insertNext */
1168
+ function Graph_n__5969_6357_insertNext($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
1168
1169
  return __tailRec(x24tcOpt_4, {h: 1 /* {TcContinue4:1} */, a1: $0, a2: $1, a3: $2, a4: $3, a5: $4, a6: $5, a7: $6, a8: $7, a9: $8, a10: $9});
1169
1170
  }
1170
1171
 
1171
- /* Graph.5936:1938:unfoldGraph */
1172
- function Graph_n__5936_1938_unfoldGraph($0, $1, $2, $3, $4, $5) {
1172
+ /* Graph.5952:6231:unfoldGraph */
1173
+ function Graph_n__5952_6231_unfoldGraph($0, $1, $2, $3, $4, $5) {
1173
1174
  return __tailRec(x24tcOpt_4, {h: 2 /* {TcContinue4:2} */, a1: $0, a2: $1, a3: $2, a4: $3, a5: $4, a6: $5});
1174
1175
  }
1175
1176
 
1176
- /* Graph.5953:2065:insertPlaceholder */
1177
- function Graph_n__5953_2065_insertPlaceholder($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
1177
+ /* Graph.5969:6358:insertPlaceholder */
1178
+ function Graph_n__5969_6358_insertPlaceholder($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
1178
1179
  return __tailRec(x24tcOpt_4, {h: 3 /* {TcContinue4:3} */, a1: $0, a2: $1, a3: $2, a4: $3, a5: $4, a6: $5, a7: $6, a8: $7, a9: $8, a10: $9});
1179
1180
  }
1180
1181
 
@@ -1498,19 +1499,19 @@ function x24tcOpt_14($0) {
1498
1499
  switch($0.a7.a2.a1.a1.a1) {
1499
1500
  case ',': return {h: 1 /* {TcContinue14:1} */, a1: $0.a6, a2: {a1: $0.a5, a2: {a1: $0.a3, a2: $0.a7.a1}}, a3: $0.a7.a2.a2};
1500
1501
  case '}': return {h: 0 /* {TcDone:14} */, a1: {h: 0 /* Succ0 */, a1: {h: 6 /* JObject */, a1: Prelude_Types_SnocList_x3cx3ex3e($0.a5, {a1: {a1: $0.a3, a2: $0.a7.a1}, a2: {h: 0}})}, a2: $0.a7.a2.a2}};
1501
- default: return {h: 0 /* {TcDone:14} */, a1: Text_ParseError_failInParenEOI($0.a6, {h: 0 /* Symbol */, a1: '{'}, csegen_222(), $0.a7)};
1502
+ default: return {h: 0 /* {TcDone:14} */, a1: Text_ParseError_failInParenEOI($0.a6, {h: 0 /* Symbol */, a1: '{'}, csegen_224(), $0.a7)};
1502
1503
  }
1503
1504
  }
1504
- default: return {h: 0 /* {TcDone:14} */, a1: Text_ParseError_failInParenEOI($0.a6, {h: 0 /* Symbol */, a1: '{'}, csegen_222(), $0.a7)};
1505
+ default: return {h: 0 /* {TcDone:14} */, a1: Text_ParseError_failInParenEOI($0.a6, {h: 0 /* Symbol */, a1: '{'}, csegen_224(), $0.a7)};
1505
1506
  }
1506
1507
  }
1507
- default: return {h: 0 /* {TcDone:14} */, a1: Text_ParseError_failInParenEOI($0.a6, {h: 0 /* Symbol */, a1: '{'}, csegen_222(), $0.a7)};
1508
+ default: return {h: 0 /* {TcDone:14} */, a1: Text_ParseError_failInParenEOI($0.a6, {h: 0 /* Symbol */, a1: '{'}, csegen_224(), $0.a7)};
1508
1509
  }
1509
1510
  }
1510
- default: return {h: 0 /* {TcDone:14} */, a1: Text_ParseError_failInParenEOI($0.a6, {h: 0 /* Symbol */, a1: '{'}, csegen_222(), $0.a7)};
1511
+ default: return {h: 0 /* {TcDone:14} */, a1: Text_ParseError_failInParenEOI($0.a6, {h: 0 /* Symbol */, a1: '{'}, csegen_224(), $0.a7)};
1511
1512
  }
1512
1513
  }
1513
- default: return {h: 0 /* {TcDone:14} */, a1: Text_ParseError_failInParenEOI($0.a6, {h: 0 /* Symbol */, a1: '{'}, csegen_222(), $0.a7)};
1514
+ default: return {h: 0 /* {TcDone:14} */, a1: Text_ParseError_failInParenEOI($0.a6, {h: 0 /* Symbol */, a1: '{'}, csegen_224(), $0.a7)};
1514
1515
  }
1515
1516
  }
1516
1517
  }
@@ -1531,7 +1532,7 @@ function x24tcOpt_15($0) {
1531
1532
  switch($0.a3.h) {
1532
1533
  case 0: /* nil */ return {h: 0 /* {TcDone:15} */, a1: {h: 0}};
1533
1534
  case undefined: /* cons */ {
1534
- switch(Prelude_Types_elemBy(csegen_142(), $0.a2, $0.a3.a1, $0.a1)) {
1535
+ switch(Prelude_Types_elemBy(csegen_144(), $0.a2, $0.a3.a1, $0.a1)) {
1535
1536
  case 1: return {h: 1 /* {TcContinue15:1} */, a1: $0.a1, a2: $0.a2, a3: $0.a3.a2};
1536
1537
  case 0: return {h: 0 /* {TcDone:15} */, a1: {a1: $0.a3.a1, a2: Data_List_n__4927_5480_nubByx27({a1: $0.a3.a1, a2: $0.a1}, $0.a2, $0.a3.a2)}};
1537
1538
  }
@@ -2107,39 +2108,39 @@ function Prelude_Types_x3dx3d_Eq_x28Listx20x24ax29($0, $1, $2) {
2107
2108
 
2108
2109
  /* {$tcOpt:40} */
2109
2110
  function x24tcOpt_40($0) {
2110
- switch($0.a1) {
2111
- case 0n: return {h: 0 /* {TcDone:40} */, a1: $0.a2};
2112
- default: {
2113
- const $4 = ($0.a1-1n);
2114
- switch($0.a2.h) {
2115
- case 0: /* nil */ return {h: 0 /* {TcDone:40} */, a1: {h: 0}};
2116
- case undefined: /* cons */ return {h: 1 /* {TcContinue40:1} */, a1: $4, a2: $0.a2.a2};
2111
+ switch($0.a2.h) {
2112
+ case 0: /* nil */ return {h: 0 /* {TcDone:40} */, a1: {h: 0}};
2113
+ case undefined: /* cons */ {
2114
+ switch($0.a1($0.a2.a1)) {
2115
+ case 1: return {h: 1 /* {TcContinue40:1} */, a1: $0.a1, a2: $0.a2.a2};
2116
+ case 0: return {h: 0 /* {TcDone:40} */, a1: {a1: $0.a2.a1, a2: $0.a2.a2}};
2117
2117
  }
2118
2118
  }
2119
2119
  }
2120
2120
  }
2121
2121
 
2122
- /* Data.List.drop : Nat -> List a -> List a */
2123
- function Data_List_drop($0, $1) {
2122
+ /* Data.List.dropWhile : (a -> Bool) -> List a -> List a */
2123
+ function Data_List_dropWhile($0, $1) {
2124
2124
  return __tailRec(x24tcOpt_40, {h: 1 /* {TcContinue40:1} */, a1: $0, a2: $1});
2125
2125
  }
2126
2126
 
2127
2127
  /* {$tcOpt:41} */
2128
2128
  function x24tcOpt_41($0) {
2129
- switch($0.a3.h) {
2130
- case undefined: /* cons */ {
2131
- switch(Prelude_Types_isDigit($0.a3.a1)) {
2132
- case 1: return {h: 1 /* {TcContinue41:1} */, a1: $0.a1, a2: {a1: $0.a2, a2: $0.a3.a1}, a3: $0.a3.a2, a4: ($0.a4+1n)};
2133
- case 0: return {h: 0 /* {TcDone:41} */, a1: Text_Lex_Shift_rest($0.a1, $0.a2, {a1: $0.a3.a1, a2: $0.a3.a2}, $0.a4)};
2129
+ switch($0.a1) {
2130
+ case 0n: return {h: 0 /* {TcDone:41} */, a1: $0.a2};
2131
+ default: {
2132
+ const $4 = ($0.a1-1n);
2133
+ switch($0.a2.h) {
2134
+ case 0: /* nil */ return {h: 0 /* {TcDone:41} */, a1: {h: 0}};
2135
+ case undefined: /* cons */ return {h: 1 /* {TcContinue41:1} */, a1: $4, a2: $0.a2.a2};
2134
2136
  }
2135
2137
  }
2136
- case 0: /* nil */ return {h: 0 /* {TcDone:41} */, a1: {h: 0 /* Succ */, a1: $0.a2, a2: {h: 0}, a3: $0.a4}};
2137
2138
  }
2138
2139
  }
2139
2140
 
2140
- /* Text.Lex.Shift.digs : AutoShift False */
2141
- function Text_Lex_Shift_digs($0, $1, $2, $3) {
2142
- return __tailRec(x24tcOpt_41, {h: 1 /* {TcContinue41:1} */, a1: $0, a2: $1, a3: $2, a4: $3});
2141
+ /* Data.List.drop : Nat -> List a -> List a */
2142
+ function Data_List_drop($0, $1) {
2143
+ return __tailRec(x24tcOpt_41, {h: 1 /* {TcContinue41:1} */, a1: $0, a2: $1});
2143
2144
  }
2144
2145
 
2145
2146
  /* {$tcOpt:42} */
@@ -2148,15 +2149,15 @@ function x24tcOpt_42($0) {
2148
2149
  case undefined: /* cons */ {
2149
2150
  switch(Prelude_Types_isDigit($0.a3.a1)) {
2150
2151
  case 1: return {h: 1 /* {TcContinue42:1} */, a1: $0.a1, a2: {a1: $0.a2, a2: $0.a3.a1}, a3: $0.a3.a2, a4: ($0.a4+1n)};
2151
- case 0: return {h: 0 /* {TcDone:42} */, a1: Text_Lex_Shift_exp($0.a1, $0.a2, {a1: $0.a3.a1, a2: $0.a3.a2}, $0.a4)};
2152
+ case 0: return {h: 0 /* {TcDone:42} */, a1: Text_Lex_Shift_rest($0.a1, $0.a2, {a1: $0.a3.a1, a2: $0.a3.a2}, $0.a4)};
2152
2153
  }
2153
2154
  }
2154
2155
  case 0: /* nil */ return {h: 0 /* {TcDone:42} */, a1: {h: 0 /* Succ */, a1: $0.a2, a2: {h: 0}, a3: $0.a4}};
2155
2156
  }
2156
2157
  }
2157
2158
 
2158
- /* Text.Lex.Shift.dot : AutoShift False */
2159
- function Text_Lex_Shift_dot($0, $1, $2, $3) {
2159
+ /* Text.Lex.Shift.digs : AutoShift False */
2160
+ function Text_Lex_Shift_digs($0, $1, $2, $3) {
2160
2161
  return __tailRec(x24tcOpt_42, {h: 1 /* {TcContinue42:1} */, a1: $0, a2: $1, a3: $2, a4: $3});
2161
2162
  }
2162
2163
 
@@ -2166,54 +2167,72 @@ function x24tcOpt_43($0) {
2166
2167
  case undefined: /* cons */ {
2167
2168
  switch(Prelude_Types_isDigit($0.a3.a1)) {
2168
2169
  case 1: return {h: 1 /* {TcContinue43:1} */, a1: $0.a1, a2: {a1: $0.a2, a2: $0.a3.a1}, a3: $0.a3.a2, a4: ($0.a4+1n)};
2169
- case 0: return {h: 0 /* {TcDone:43} */, a1: {h: 0 /* Succ */, a1: $0.a2, a2: {a1: $0.a3.a1, a2: $0.a3.a2}, a3: $0.a4}};
2170
+ case 0: return {h: 0 /* {TcDone:43} */, a1: Text_Lex_Shift_exp($0.a1, $0.a2, {a1: $0.a3.a1, a2: $0.a3.a2}, $0.a4)};
2170
2171
  }
2171
2172
  }
2172
2173
  case 0: /* nil */ return {h: 0 /* {TcDone:43} */, a1: {h: 0 /* Succ */, a1: $0.a2, a2: {h: 0}, a3: $0.a4}};
2173
2174
  }
2174
2175
  }
2175
2176
 
2176
- /* Text.Lex.Shift.digits : AutoShift False */
2177
- function Text_Lex_Shift_digits($0, $1, $2, $3) {
2177
+ /* Text.Lex.Shift.dot : AutoShift False */
2178
+ function Text_Lex_Shift_dot($0, $1, $2, $3) {
2178
2179
  return __tailRec(x24tcOpt_43, {h: 1 /* {TcContinue43:1} */, a1: $0, a2: $1, a3: $2, a4: $3});
2179
2180
  }
2180
2181
 
2181
2182
  /* {$tcOpt:44} */
2182
2183
  function x24tcOpt_44($0) {
2184
+ switch($0.a3.h) {
2185
+ case undefined: /* cons */ {
2186
+ switch(Prelude_Types_isDigit($0.a3.a1)) {
2187
+ case 1: return {h: 1 /* {TcContinue44:1} */, a1: $0.a1, a2: {a1: $0.a2, a2: $0.a3.a1}, a3: $0.a3.a2, a4: ($0.a4+1n)};
2188
+ case 0: return {h: 0 /* {TcDone:44} */, a1: {h: 0 /* Succ */, a1: $0.a2, a2: {a1: $0.a3.a1, a2: $0.a3.a2}, a3: $0.a4}};
2189
+ }
2190
+ }
2191
+ case 0: /* nil */ return {h: 0 /* {TcDone:44} */, a1: {h: 0 /* Succ */, a1: $0.a2, a2: {h: 0}, a3: $0.a4}};
2192
+ }
2193
+ }
2194
+
2195
+ /* Text.Lex.Shift.digits : AutoShift False */
2196
+ function Text_Lex_Shift_digits($0, $1, $2, $3) {
2197
+ return __tailRec(x24tcOpt_44, {h: 1 /* {TcContinue44:1} */, a1: $0, a2: $1, a3: $2, a4: $3});
2198
+ }
2199
+
2200
+ /* {$tcOpt:45} */
2201
+ function x24tcOpt_45($0) {
2183
2202
  switch($0.a2.h) {
2184
- case 0: /* nil */ return {h: 0 /* {TcDone:44} */, a1: $0.a1};
2185
- case undefined: /* cons */ return {h: 1 /* {TcContinue44:1} */, a1: {a1: $0.a2.a1, a2: $0.a1}, a2: $0.a2.a2};
2203
+ case 0: /* nil */ return {h: 0 /* {TcDone:45} */, a1: $0.a1};
2204
+ case undefined: /* cons */ return {h: 1 /* {TcContinue45:1} */, a1: {a1: $0.a2.a1, a2: $0.a1}, a2: $0.a2.a2};
2186
2205
  }
2187
2206
  }
2188
2207
 
2189
2208
  /* Prelude.Types.List.reverseOnto : List a -> List a -> List a */
2190
2209
  function Prelude_Types_List_reverseOnto($0, $1) {
2191
- return __tailRec(x24tcOpt_44, {h: 1 /* {TcContinue44:1} */, a1: $0, a2: $1});
2210
+ return __tailRec(x24tcOpt_45, {h: 1 /* {TcContinue45:1} */, a1: $0, a2: $1});
2192
2211
  }
2193
2212
 
2194
- /* {$tcOpt:45} */
2195
- function x24tcOpt_45($0) {
2213
+ /* {$tcOpt:46} */
2214
+ function x24tcOpt_46($0) {
2196
2215
  switch($0.a3.h) {
2197
2216
  case undefined: /* cons */ {
2198
2217
  const $3 = $0.a2($0.a3.a1);
2199
2218
  switch($3.h) {
2200
- case undefined: /* just */ return {h: 1 /* {TcContinue45:1} */, a1: {a1: $0.a1, a2: $3.a1}, a2: $0.a2, a3: $0.a3.a2};
2201
- case 0: /* nothing */ return {h: 1 /* {TcContinue45:1} */, a1: $0.a1, a2: $0.a2, a3: $0.a3.a2};
2219
+ case undefined: /* just */ return {h: 1 /* {TcContinue46:1} */, a1: {a1: $0.a1, a2: $3.a1}, a2: $0.a2, a3: $0.a3.a2};
2220
+ case 0: /* nothing */ return {h: 1 /* {TcContinue46:1} */, a1: $0.a1, a2: $0.a2, a3: $0.a3.a2};
2202
2221
  }
2203
2222
  }
2204
- case 0: /* nil */ return {h: 0 /* {TcDone:45} */, a1: Prelude_Types_SnocList_x3cx3ex3e($0.a1, {h: 0})};
2223
+ case 0: /* nil */ return {h: 0 /* {TcDone:46} */, a1: Prelude_Types_SnocList_x3cx3ex3e($0.a1, {h: 0})};
2205
2224
  }
2206
2225
  }
2207
2226
 
2208
2227
  /* Prelude.Types.List.mapMaybeAppend : SnocList b -> (a -> Maybe b) -> List a -> List b */
2209
2228
  function Prelude_Types_List_mapMaybeAppend($0, $1, $2) {
2210
- return __tailRec(x24tcOpt_45, {h: 1 /* {TcContinue45:1} */, a1: $0, a2: $1, a3: $2});
2229
+ return __tailRec(x24tcOpt_46, {h: 1 /* {TcContinue46:1} */, a1: $0, a2: $1, a3: $2});
2211
2230
  }
2212
2231
 
2213
- /* {$tcOpt:46} */
2214
- function x24tcOpt_46($0) {
2232
+ /* {$tcOpt:47} */
2233
+ function x24tcOpt_47($0) {
2215
2234
  switch($0.a4) {
2216
- case 0n: return {h: 0 /* {TcDone:46} */, a1: {a1: $0.a1, a2: $0.a2}};
2235
+ case 0n: return {h: 0 /* {TcDone:47} */, a1: {a1: $0.a1, a2: $0.a2}};
2217
2236
  default: {
2218
2237
  switch($0.a3.h) {
2219
2238
  case undefined: /* cons */ {
@@ -2225,13 +2244,13 @@ function x24tcOpt_46($0) {
2225
2244
  case 0n: _crashExp('Nat case not covered');
2226
2245
  default: {
2227
2246
  const $a = ($0.a4-1n);
2228
- return {h: 1 /* {TcContinue46:1} */, a1: $0.a1, a2: ($0.a2+1n), a3: $0.a3.a2, a4: $a};
2247
+ return {h: 1 /* {TcContinue47:1} */, a1: $0.a1, a2: ($0.a2+1n), a3: $0.a3.a2, a4: $a};
2229
2248
  }
2230
2249
  }
2231
2250
  }
2232
2251
  default: {
2233
2252
  const $13 = ($0.a4-1n);
2234
- return {h: 1 /* {TcContinue46:1} */, a1: ($0.a1+1n), a2: 0n, a3: $0.a3.a2, a4: $13};
2253
+ return {h: 1 /* {TcContinue47:1} */, a1: ($0.a1+1n), a2: 0n, a3: $0.a3.a2, a4: $13};
2235
2254
  }
2236
2255
  }
2237
2256
  }
@@ -2240,7 +2259,7 @@ function x24tcOpt_46($0) {
2240
2259
  case 0n: _crashExp('Nat case not covered');
2241
2260
  default: {
2242
2261
  const $1d = ($0.a4-1n);
2243
- return {h: 1 /* {TcContinue46:1} */, a1: $0.a1, a2: ($0.a2+1n), a3: $0.a3.a2, a4: $1d};
2262
+ return {h: 1 /* {TcContinue47:1} */, a1: $0.a1, a2: ($0.a2+1n), a3: $0.a3.a2, a4: $1d};
2244
2263
  }
2245
2264
  }
2246
2265
  }
@@ -2251,7 +2270,7 @@ function x24tcOpt_46($0) {
2251
2270
  case 0n: _crashExp('Nat case not covered');
2252
2271
  default: {
2253
2272
  const $27 = ($0.a4-1n);
2254
- return {h: 0 /* {TcDone:46} */, a1: Prelude_Uninhabited_absurd($2d => Data_List_Suffix_uninhabited_Uninhabited_x28x28x28Suffixx20x24bx29x20x28x28x3ax3ax20x24hx29x20x24tx29x29x20Nilx29($2d), $27)};
2273
+ return {h: 0 /* {TcDone:47} */, a1: Prelude_Uninhabited_absurd($2d => Data_List_Suffix_uninhabited_Uninhabited_x28x28x28Suffixx20x24bx29x20x28x28x3ax3ax20x24hx29x20x24tx29x29x20Nilx29($2d), $27)};
2255
2274
  }
2256
2275
  }
2257
2276
  }
@@ -2262,14 +2281,14 @@ function x24tcOpt_46($0) {
2262
2281
 
2263
2282
  /* Text.Bounds.calcEnd : Nat -> Nat -> (cs : List Char) -> Suffix b ys cs -> Position */
2264
2283
  function Text_Bounds_calcEnd($0, $1, $2, $3) {
2265
- return __tailRec(x24tcOpt_46, {h: 1 /* {TcContinue46:1} */, a1: $0, a2: $1, a3: $2, a4: $3});
2284
+ return __tailRec(x24tcOpt_47, {h: 1 /* {TcContinue47:1} */, a1: $0, a2: $1, a3: $2, a4: $3});
2266
2285
  }
2267
2286
 
2268
- /* {$tcOpt:47} */
2269
- function x24tcOpt_47($0) {
2287
+ /* {$tcOpt:48} */
2288
+ function x24tcOpt_48($0) {
2270
2289
  switch($0.h) {
2271
- case 1: /* {TcContinue47:1} */ return {h: 2 /* {TcContinue47:2} */, a1: $0.a3, a2: $0.a2, a3: $0.a1, a4: JSON_Parser_value($0.a3)};
2272
- case 2: /* {TcContinue47:2} */ {
2290
+ case 1: /* {TcContinue48:1} */ return {h: 2 /* {TcContinue48:2} */, a1: $0.a3, a2: $0.a2, a3: $0.a1, a4: JSON_Parser_value($0.a3)};
2291
+ case 2: /* {TcContinue48:2} */ {
2273
2292
  switch($0.a4.h) {
2274
2293
  case 0: /* Succ0 */ {
2275
2294
  switch($0.a4.a2.h) {
@@ -2279,21 +2298,21 @@ function x24tcOpt_47($0) {
2279
2298
  switch($0.a4.a2.a1.a1.h) {
2280
2299
  case 0: /* Symbol */ {
2281
2300
  switch($0.a4.a2.a1.a1.a1) {
2282
- case ',': return {h: 1 /* {TcContinue47:1} */, a1: $0.a3, a2: {a1: $0.a2, a2: $0.a4.a1}, a3: $0.a4.a2.a2};
2283
- case ']': return {h: 0 /* {TcDone:47} */, a1: {h: 0 /* Succ0 */, a1: {h: 5 /* JArray */, a1: Prelude_Types_SnocList_x3cx3ex3e($0.a2, {a1: $0.a4.a1, a2: {h: 0}})}, a2: $0.a4.a2.a2}};
2284
- default: return {h: 0 /* {TcDone:47} */, a1: Text_ParseError_failInParenEOI($0.a3, {h: 0 /* Symbol */, a1: '['}, csegen_222(), $0.a4)};
2301
+ case ',': return {h: 1 /* {TcContinue48:1} */, a1: $0.a3, a2: {a1: $0.a2, a2: $0.a4.a1}, a3: $0.a4.a2.a2};
2302
+ case ']': return {h: 0 /* {TcDone:48} */, a1: {h: 0 /* Succ0 */, a1: {h: 5 /* JArray */, a1: Prelude_Types_SnocList_x3cx3ex3e($0.a2, {a1: $0.a4.a1, a2: {h: 0}})}, a2: $0.a4.a2.a2}};
2303
+ default: return {h: 0 /* {TcDone:48} */, a1: Text_ParseError_failInParenEOI($0.a3, {h: 0 /* Symbol */, a1: '['}, csegen_224(), $0.a4)};
2285
2304
  }
2286
2305
  }
2287
- default: return {h: 0 /* {TcDone:47} */, a1: Text_ParseError_failInParenEOI($0.a3, {h: 0 /* Symbol */, a1: '['}, csegen_222(), $0.a4)};
2306
+ default: return {h: 0 /* {TcDone:48} */, a1: Text_ParseError_failInParenEOI($0.a3, {h: 0 /* Symbol */, a1: '['}, csegen_224(), $0.a4)};
2288
2307
  }
2289
2308
  }
2290
- default: return {h: 0 /* {TcDone:47} */, a1: Text_ParseError_failInParenEOI($0.a3, {h: 0 /* Symbol */, a1: '['}, csegen_222(), $0.a4)};
2309
+ default: return {h: 0 /* {TcDone:48} */, a1: Text_ParseError_failInParenEOI($0.a3, {h: 0 /* Symbol */, a1: '['}, csegen_224(), $0.a4)};
2291
2310
  }
2292
2311
  }
2293
- default: return {h: 0 /* {TcDone:47} */, a1: Text_ParseError_failInParenEOI($0.a3, {h: 0 /* Symbol */, a1: '['}, csegen_222(), $0.a4)};
2312
+ default: return {h: 0 /* {TcDone:48} */, a1: Text_ParseError_failInParenEOI($0.a3, {h: 0 /* Symbol */, a1: '['}, csegen_224(), $0.a4)};
2294
2313
  }
2295
2314
  }
2296
- default: return {h: 0 /* {TcDone:47} */, a1: Text_ParseError_failInParenEOI($0.a3, {h: 0 /* Symbol */, a1: '['}, csegen_222(), $0.a4)};
2315
+ default: return {h: 0 /* {TcDone:48} */, a1: Text_ParseError_failInParenEOI($0.a3, {h: 0 /* Symbol */, a1: '['}, csegen_224(), $0.a4)};
2297
2316
  }
2298
2317
  }
2299
2318
  }
@@ -2301,38 +2320,38 @@ function x24tcOpt_47($0) {
2301
2320
 
2302
2321
  /* JSON.Parser.array : Bounds -> SnocList JSON -> Rule True JSON */
2303
2322
  function JSON_Parser_array($0, $1, $2) {
2304
- return __tailRec(x24tcOpt_47, {h: 1 /* {TcContinue47:1} */, a1: $0, a2: $1, a3: $2});
2323
+ return __tailRec(x24tcOpt_48, {h: 1 /* {TcContinue48:1} */, a1: $0, a2: $1, a3: $2});
2305
2324
  }
2306
2325
 
2307
2326
  /* JSON.Parser.case block in array */
2308
2327
  function JSON_Parser_case__array_6680($0, $1, $2, $3) {
2309
- return __tailRec(x24tcOpt_47, {h: 2 /* {TcContinue47:2} */, a1: $0, a2: $1, a3: $2, a4: $3});
2328
+ return __tailRec(x24tcOpt_48, {h: 2 /* {TcContinue48:2} */, a1: $0, a2: $1, a3: $2, a4: $3});
2310
2329
  }
2311
2330
 
2312
- /* {$tcOpt:48} */
2313
- function x24tcOpt_48($0) {
2331
+ /* {$tcOpt:49} */
2332
+ function x24tcOpt_49($0) {
2314
2333
  switch($0.a3.h) {
2315
- case 0: /* nil */ return {h: 0 /* {TcDone:48} */, a1: $0.a2};
2316
- case undefined: /* cons */ return {h: 1 /* {TcContinue48:1} */, a1: $0.a1, a2: $0.a1($0.a2)($0.a3.a1), a3: $0.a3.a2};
2334
+ case 0: /* nil */ return {h: 0 /* {TcDone:49} */, a1: $0.a2};
2335
+ case undefined: /* cons */ return {h: 1 /* {TcContinue49:1} */, a1: $0.a1, a2: $0.a1($0.a2)($0.a3.a1), a3: $0.a3.a2};
2317
2336
  }
2318
2337
  }
2319
2338
 
2320
2339
  /* Prelude.Types.foldl */
2321
2340
  function Prelude_Types_foldl_Foldable_List($0, $1, $2) {
2322
- return __tailRec(x24tcOpt_48, {h: 1 /* {TcContinue48:1} */, a1: $0, a2: $1, a3: $2});
2341
+ return __tailRec(x24tcOpt_49, {h: 1 /* {TcContinue49:1} */, a1: $0, a2: $1, a3: $2});
2323
2342
  }
2324
2343
 
2325
- /* {$tcOpt:49} */
2326
- function x24tcOpt_49($0) {
2344
+ /* {$tcOpt:50} */
2345
+ function x24tcOpt_50($0) {
2327
2346
  switch($0.a1) {
2328
- case 0n: return {h: 0 /* {TcDone:49} */, a1: Prelude_Uninhabited_absurd($6 => Data_Nat_uninhabited_Uninhabited_x28x28LTEx20x28Sx20x24nx29x29x20Zx29($6), $0.a2)};
2347
+ case 0n: return {h: 0 /* {TcDone:50} */, a1: Prelude_Uninhabited_absurd($6 => Data_Nat_uninhabited_Uninhabited_x28x28LTEx20x28Sx20x24nx29x29x20Zx29($6), $0.a2)};
2329
2348
  default: {
2330
2349
  const $a = ($0.a1-1n);
2331
2350
  switch($0.a2) {
2332
2351
  case 0n: _crashExp('Nat case not covered');
2333
2352
  default: {
2334
2353
  const $e = ($0.a2-1n);
2335
- return {h: 1 /* {TcContinue49:1} */, a1: $a, a2: $e};
2354
+ return {h: 1 /* {TcContinue50:1} */, a1: $a, a2: $e};
2336
2355
  }
2337
2356
  }
2338
2357
  }
@@ -2341,20 +2360,20 @@ function x24tcOpt_49($0) {
2341
2360
 
2342
2361
  /* Data.Nat.LTEImpliesNotGT : LTE a b -> Not (GT a b) */
2343
2362
  function Data_Nat_LTEImpliesNotGT($0, $1) {
2344
- return __tailRec(x24tcOpt_49, {h: 1 /* {TcContinue49:1} */, a1: $0, a2: $1});
2363
+ return __tailRec(x24tcOpt_50, {h: 1 /* {TcContinue50:1} */, a1: $0, a2: $1});
2345
2364
  }
2346
2365
 
2347
- /* {$tcOpt:50} */
2348
- function x24tcOpt_50($0) {
2366
+ /* {$tcOpt:51} */
2367
+ function x24tcOpt_51($0) {
2349
2368
  switch($0.a1.h) {
2350
- case 0: /* nil */ return {h: 0 /* {TcDone:50} */, a1: $0.a2};
2351
- case undefined: /* cons */ return {h: 1 /* {TcContinue50:1} */, a1: $0.a1.a1, a2: {a1: $0.a1.a2, a2: $0.a2}};
2369
+ case 0: /* nil */ return {h: 0 /* {TcDone:51} */, a1: $0.a2};
2370
+ case undefined: /* cons */ return {h: 1 /* {TcContinue51:1} */, a1: $0.a1.a1, a2: {a1: $0.a1.a2, a2: $0.a2}};
2352
2371
  }
2353
2372
  }
2354
2373
 
2355
2374
  /* Prelude.Types.SnocList.(<>>) : SnocList a -> List a -> List a */
2356
2375
  function Prelude_Types_SnocList_x3cx3ex3e($0, $1) {
2357
- return __tailRec(x24tcOpt_50, {h: 1 /* {TcContinue50:1} */, a1: $0, a2: $1});
2376
+ return __tailRec(x24tcOpt_51, {h: 1 /* {TcContinue51:1} */, a1: $0, a2: $1});
2358
2377
  }
2359
2378
 
2360
2379
  /* {__mainExpression:0} */
@@ -2451,68 +2470,68 @@ const csegen_72 = __lazy(function () {
2451
2470
  return {a1: csegen_69(), a2: a => $3 => $4 => $5 => $6 => Data_Promise_liftIO_HasIO_Promise($3, $4, $5, $6)};
2452
2471
  });
2453
2472
 
2454
- /* {csegen:84} */
2455
- const csegen_84 = __lazy(function () {
2473
+ /* {csegen:85} */
2474
+ const csegen_85 = __lazy(function () {
2456
2475
  return $0 => $1 => Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29($0, $1);
2457
2476
  });
2458
2477
 
2459
- /* {csegen:88} */
2460
- const csegen_88 = __lazy(function () {
2478
+ /* {csegen:90} */
2479
+ const csegen_90 = __lazy(function () {
2461
2480
  return {a1: $1 => $2 => Prelude_EqOrd_x3dx3d_Eq_Char($1, $2), a2: $7 => $8 => Prelude_EqOrd_x2fx3d_Eq_Char($7, $8)};
2462
2481
  });
2463
2482
 
2464
- /* {csegen:89} */
2465
- const csegen_89 = __lazy(function () {
2483
+ /* {csegen:91} */
2484
+ const csegen_91 = __lazy(function () {
2466
2485
  return $0 => $1 => ({a1: $0, a2: $1});
2467
2486
  });
2468
2487
 
2469
- /* {csegen:90} */
2470
- const csegen_90 = __lazy(function () {
2488
+ /* {csegen:92} */
2489
+ const csegen_92 = __lazy(function () {
2471
2490
  return $0 => $1 => $2 => $0($1($2));
2472
2491
  });
2473
2492
 
2474
- /* {csegen:92} */
2475
- const csegen_92 = __lazy(function () {
2493
+ /* {csegen:94} */
2494
+ const csegen_94 = __lazy(function () {
2476
2495
  return {a1: $1 => $2 => Prelude_Interfaces_Bool_Semigroup_x3cx2bx3e_Semigroup_AnyBool($1, $2), a2: 0};
2477
2496
  });
2478
2497
 
2479
- /* {csegen:142} */
2480
- const csegen_142 = __lazy(function () {
2498
+ /* {csegen:144} */
2499
+ const csegen_144 = __lazy(function () {
2481
2500
  return {a1: acc => elem => func => init => input => Prelude_Types_foldr_Foldable_List(func, init, input), a2: elem => acc => func => init => input => Prelude_Types_foldl_Foldable_List(func, init, input), a3: elem => $b => Prelude_Types_null_Foldable_List($b), a4: elem => acc => m => $f => funcM => init => input => Prelude_Types_foldlM_Foldable_List($f, funcM, init, input), a5: elem => $16 => $16, a6: a => m => $18 => f => $19 => Prelude_Types_foldMap_Foldable_List($18, f, $19)};
2482
2501
  });
2483
2502
 
2484
- /* {csegen:145} */
2485
- const csegen_145 = __lazy(function () {
2503
+ /* {csegen:147} */
2504
+ const csegen_147 = __lazy(function () {
2486
2505
  return $0 => BashCompletion_hashify(BashCompletion_slugify($0));
2487
2506
  });
2488
2507
 
2489
- /* {csegen:147} */
2490
- const csegen_147 = __lazy(function () {
2508
+ /* {csegen:149} */
2509
+ const csegen_149 = __lazy(function () {
2491
2510
  return {a1: '--completed', a2: {a1: 'graph', a2: {h: 0}}};
2492
2511
  });
2493
2512
 
2494
- /* {csegen:151} */
2495
- const csegen_151 = __lazy(function () {
2513
+ /* {csegen:153} */
2514
+ const csegen_153 = __lazy(function () {
2496
2515
  return {a1: {a1: '--checkout', a2: {a1: '-c', a2: {a1: '--ignore', a2: {a1: '-i', a2: {h: 0}}}}}};
2497
2516
  });
2498
2517
 
2499
- /* {csegen:153} */
2500
- const csegen_153 = __lazy(function () {
2518
+ /* {csegen:155} */
2519
+ const csegen_155 = __lazy(function () {
2501
2520
  return {a1: {a1: '--completed', a2: {a1: '-c', a2: {h: 0}}}};
2502
2521
  });
2503
2522
 
2504
- /* {csegen:196} */
2505
- const csegen_196 = __lazy(function () {
2523
+ /* {csegen:198} */
2524
+ const csegen_198 = __lazy(function () {
2506
2525
  return b => a => $0 => $1 => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29($0, $1);
2507
2526
  });
2508
2527
 
2509
- /* {csegen:197} */
2510
- const csegen_197 = __lazy(function () {
2528
+ /* {csegen:199} */
2529
+ const csegen_199 = __lazy(function () {
2511
2530
  return a => $0 => Prelude_Types_join_Monad_x28Eitherx20x24ex29($0);
2512
2531
  });
2513
2532
 
2514
- /* {csegen:198} */
2515
- const csegen_198 = __lazy(function () {
2533
+ /* {csegen:200} */
2534
+ const csegen_200 = __lazy(function () {
2516
2535
  return $0 => {
2517
2536
  const $1 = JSON_Parser_parseJSON({h: 0}, $0);
2518
2537
  switch($1.h) {
@@ -2522,33 +2541,33 @@ const csegen_198 = __lazy(function () {
2522
2541
  };
2523
2542
  });
2524
2543
 
2525
- /* {csegen:199} */
2526
- const csegen_199 = __lazy(function () {
2544
+ /* {csegen:201} */
2545
+ const csegen_201 = __lazy(function () {
2527
2546
  return $0 => $1 => Prelude_Types_max_Ord_Nat($0, $1);
2528
2547
  });
2529
2548
 
2530
- /* {csegen:210} */
2531
- const csegen_210 = __lazy(function () {
2549
+ /* {csegen:212} */
2550
+ const csegen_212 = __lazy(function () {
2532
2551
  return {a1: csegen_39(), a2: $3 => $4 => Prelude_EqOrd_compare_Ord_String($3, $4), a3: $9 => $a => Prelude_EqOrd_x3c_Ord_String($9, $a), a4: $f => $10 => Prelude_EqOrd_x3e_Ord_String($f, $10), a5: $15 => $16 => Prelude_EqOrd_x3cx3d_Ord_String($15, $16), a6: $1b => $1c => Prelude_EqOrd_x3ex3d_Ord_String($1b, $1c), a7: $21 => $22 => Prelude_EqOrd_max_Ord_String($21, $22), a8: $27 => $28 => Prelude_EqOrd_min_Ord_String($27, $28)};
2533
2552
  });
2534
2553
 
2535
- /* {csegen:213} */
2536
- const csegen_213 = __lazy(function () {
2554
+ /* {csegen:215} */
2555
+ const csegen_215 = __lazy(function () {
2537
2556
  return {a1: $1 => $2 => Prelude_EqOrd_x3dx3d_Eq_Integer($1, $2), a2: $7 => $8 => Prelude_EqOrd_x2fx3d_Eq_Integer($7, $8)};
2538
2557
  });
2539
2558
 
2540
- /* {csegen:214} */
2541
- const csegen_214 = __lazy(function () {
2559
+ /* {csegen:216} */
2560
+ const csegen_216 = __lazy(function () {
2542
2561
  return $0 => $1 => Prelude_EqOrd_compare_Ord_Integer($0, $1);
2543
2562
  });
2544
2563
 
2545
- /* {csegen:222} */
2546
- const csegen_222 = __lazy(function () {
2564
+ /* {csegen:224} */
2565
+ const csegen_224 = __lazy(function () {
2547
2566
  return $0 => JSON_Parser_eqJSToken({h: 2 /* EOI */}, $0);
2548
2567
  });
2549
2568
 
2550
- /* {csegen:227} */
2551
- const csegen_227 = __lazy(function () {
2569
+ /* {csegen:229} */
2570
+ const csegen_229 = __lazy(function () {
2552
2571
  const $6 = a => b => {
2553
2572
  switch(JSON_Parser_eqJSON(a, b)) {
2554
2573
  case 1: return 0;
@@ -2558,164 +2577,184 @@ const csegen_227 = __lazy(function () {
2558
2577
  return {a1: $1 => $2 => JSON_Parser_eqJSON($1, $2), a2: $6};
2559
2578
  });
2560
2579
 
2561
- /* {csegen:234} */
2562
- const csegen_234 = __lazy(function () {
2580
+ /* {csegen:236} */
2581
+ const csegen_236 = __lazy(function () {
2563
2582
  const $0 = a => $1 => $2 => ({h: 1 /* Fail0 */, a1: {a1: $2, a2: $1}});
2564
2583
  return $6 => $7 => $0(undefined)($6)($7);
2565
2584
  });
2566
2585
 
2567
- /* {csegen:252} */
2568
- const csegen_252 = __lazy(function () {
2586
+ /* {csegen:256} */
2587
+ const csegen_256 = __lazy(function () {
2569
2588
  return {a1: acc => elem => func => init => input => Prelude_Types_foldr_Foldable_x28Eitherx20x24ex29(func, init, input), a2: elem => acc => func => init => input => Prelude_Types_foldl_Foldable_x28Eitherx20x24ex29(func, init, input), a3: elem => $b => Prelude_Types_null_Foldable_x28Eitherx20x24ex29($b), a4: elem => acc => m => $f => funcM => init => input => Prelude_Types_foldlM_Foldable_x28Eitherx20x24ex29($f, funcM, init, input), a5: elem => $16 => Prelude_Types_toList_Foldable_x28Eitherx20x24ex29($16), a6: a => m => $1a => f => $1b => Prelude_Types_foldMap_Foldable_x28Eitherx20x24ex29($1a, f, $1b)};
2570
2589
  });
2571
2590
 
2572
- /* {csegen:256} */
2573
- const csegen_256 = __lazy(function () {
2591
+ /* {csegen:260} */
2592
+ const csegen_260 = __lazy(function () {
2574
2593
  return b => a => f => $0 => $1 => $2 => Prelude_Types_traverse_Traversable_x28Eitherx20x24ex29($0, $1, $2);
2575
2594
  });
2576
2595
 
2577
- /* {csegen:270} */
2578
- const csegen_270 = __lazy(function () {
2596
+ /* {csegen:274} */
2597
+ const csegen_274 = __lazy(function () {
2579
2598
  return {a1: $1 => $2 => _add32s($1, $2), a2: $6 => $7 => _mul32s($6, $7), a3: $b => Number(_truncBigInt32($b))};
2580
2599
  });
2581
2600
 
2582
2601
  /* {csegen:294} */
2583
2602
  const csegen_294 = __lazy(function () {
2584
- return $0 => Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($0));
2603
+ return {a1: Help_argument(0, '...'), a2: {h: 0}};
2604
+ });
2605
+
2606
+ /* {csegen:299} */
2607
+ const csegen_299 = __lazy(function () {
2608
+ return {a1: Help_argument(0, '#<label>'), a2: csegen_294()};
2609
+ });
2610
+
2611
+ /* {csegen:305} */
2612
+ const csegen_305 = __lazy(function () {
2613
+ return {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Optionally apply any number of labels by prefixing them with \'#\'.'), a2: {h: 0}};
2614
+ });
2615
+
2616
+ /* {csegen:323} */
2617
+ const csegen_323 = __lazy(function () {
2618
+ return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_unsafeTextWithoutNewLines('.'), a2: {h: 0}});
2619
+ });
2620
+
2621
+ /* {csegen:341} */
2622
+ const csegen_341 = __lazy(function () {
2623
+ return {a1: Help_argument(1, '<team-slug>'), a2: {h: 0}};
2585
2624
  });
2586
2625
 
2587
- /* {csegen:295} */
2588
- const csegen_295 = __lazy(function () {
2626
+ /* {csegen:393} */
2627
+ const csegen_393 = __lazy(function () {
2589
2628
  return $0 => $1 => $2 => $3 => Data_Promise_x3ex3ex3d_Monad_Promise($0, $1, $2, $3);
2590
2629
  });
2591
2630
 
2592
- /* {csegen:296} */
2593
- const csegen_296 = __lazy(function () {
2631
+ /* {csegen:394} */
2632
+ const csegen_394 = __lazy(function () {
2594
2633
  return $0 => $1 => Data_Promise_either(csegen_51(), Data_PullRequest_parsePullRequestsString($0), $1);
2595
2634
  });
2596
2635
 
2597
- /* {csegen:297} */
2598
- const csegen_297 = __lazy(function () {
2636
+ /* {csegen:395} */
2637
+ const csegen_395 = __lazy(function () {
2599
2638
  return $0 => $1 => Data_Promise_either(csegen_51(), Data_User_parseUserString($0), $1);
2600
2639
  });
2601
2640
 
2602
- /* {csegen:302} */
2603
- const csegen_302 = __lazy(function () {
2641
+ /* {csegen:400} */
2642
+ const csegen_400 = __lazy(function () {
2604
2643
  return $0 => $1 => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29($0, $1);
2605
2644
  });
2606
2645
 
2607
- /* {csegen:315} */
2608
- const csegen_315 = __lazy(function () {
2646
+ /* {csegen:413} */
2647
+ const csegen_413 = __lazy(function () {
2609
2648
  return $0 => Language_JSON_Accessors_array($3 => Data_PullRequest_parsePR($3), $0);
2610
2649
  });
2611
2650
 
2612
- /* {csegen:323} */
2613
- const csegen_323 = __lazy(function () {
2651
+ /* {csegen:421} */
2652
+ const csegen_421 = __lazy(function () {
2614
2653
  return $0 => $1 => $2 => Data_Promise_pure_Applicative_Promise($0, $1, $2);
2615
2654
  });
2616
2655
 
2617
- /* {csegen:324} */
2618
- const csegen_324 = __lazy(function () {
2656
+ /* {csegen:422} */
2657
+ const csegen_422 = __lazy(function () {
2619
2658
  return $0 => Prelude_EqOrd_x3dx3d_Eq_Char($0, '/');
2620
2659
  });
2621
2660
 
2622
- /* {csegen:325} */
2623
- const csegen_325 = __lazy(function () {
2661
+ /* {csegen:423} */
2662
+ const csegen_423 = __lazy(function () {
2624
2663
  return $0 => $0.a2;
2625
2664
  });
2626
2665
 
2627
- /* {csegen:329} */
2628
- const csegen_329 = __lazy(function () {
2666
+ /* {csegen:427} */
2667
+ const csegen_427 = __lazy(function () {
2629
2668
  return $0 => $0.a1;
2630
2669
  });
2631
2670
 
2632
- /* {csegen:340} */
2633
- const csegen_340 = __lazy(function () {
2671
+ /* {csegen:438} */
2672
+ const csegen_438 = __lazy(function () {
2634
2673
  return $0 => $1 => Data_Promise_map_Functor_Promise($4 => Number(_truncUBigInt32($4)), System_time(csegen_72()), $0, $1);
2635
2674
  });
2636
2675
 
2637
- /* {csegen:345} */
2638
- const csegen_345 = __lazy(function () {
2676
+ /* {csegen:443} */
2677
+ const csegen_443 = __lazy(function () {
2639
2678
  return $0 => $1 => $2 => $3 => Prelude_Types_map_Functor_Maybe($2, $3);
2640
2679
  });
2641
2680
 
2642
- /* {csegen:358} */
2643
- const csegen_358 = __lazy(function () {
2681
+ /* {csegen:456} */
2682
+ const csegen_456 = __lazy(function () {
2644
2683
  return $0 => $1 => $2 => Data_Promise_liftIO_HasIO_Promise($5 => Prelude_IO_prim__getStr($5), $0, $1, $2);
2645
2684
  });
2646
2685
 
2647
- /* {csegen:360} */
2648
- const csegen_360 = __lazy(function () {
2686
+ /* {csegen:458} */
2687
+ const csegen_458 = __lazy(function () {
2649
2688
  return $0 => $1 => Data_Promise_pure_Applicative_Promise({h: 0}, $0, $1);
2650
2689
  });
2651
2690
 
2652
- /* {csegen:390} */
2653
- const csegen_390 = __lazy(function () {
2691
+ /* {csegen:486} */
2692
+ const csegen_486 = __lazy(function () {
2654
2693
  return {a1: csegen_9(), a2: a => ({h: 0}), a3: a => $4 => $5 => Prelude_Types_x3cx7cx3e_Alternative_Maybe($4, $5)};
2655
2694
  });
2656
2695
 
2657
- /* {csegen:391} */
2658
- const csegen_391 = __lazy(function () {
2659
- return $0 => Data_List_sort(csegen_210(), $0);
2696
+ /* {csegen:487} */
2697
+ const csegen_487 = __lazy(function () {
2698
+ return $0 => Data_List_sort(csegen_212(), $0);
2660
2699
  });
2661
2700
 
2662
- /* {csegen:392} */
2663
- const csegen_392 = __lazy(function () {
2664
- return $0 => $1 => $2 => FFI_Concurrency_promiseAll(csegen_142(), $0, $1, $2);
2701
+ /* {csegen:488} */
2702
+ const csegen_488 = __lazy(function () {
2703
+ return $0 => $1 => $2 => FFI_Concurrency_promiseAll(csegen_144(), $0, $1, $2);
2665
2704
  });
2666
2705
 
2667
- /* {csegen:400} */
2668
- const csegen_400 = __lazy(function () {
2706
+ /* {csegen:494} */
2707
+ const csegen_494 = __lazy(function () {
2669
2708
  return $0 => $0.a1;
2670
2709
  });
2671
2710
 
2672
- /* {csegen:402} */
2673
- const csegen_402 = __lazy(function () {
2711
+ /* {csegen:496} */
2712
+ const csegen_496 = __lazy(function () {
2674
2713
  return $0 => $1 => Data_Date_compare_Ord_Date($0, $1);
2675
2714
  });
2676
2715
 
2677
- /* {csegen:403} */
2678
- const csegen_403 = __lazy(function () {
2716
+ /* {csegen:497} */
2717
+ const csegen_497 = __lazy(function () {
2679
2718
  return $0 => $0.a2;
2680
2719
  });
2681
2720
 
2682
- /* {csegen:404} */
2683
- const csegen_404 = __lazy(function () {
2684
- return $0 => $1 => Prelude_Basics_on(csegen_402(), csegen_403(), $0, $1);
2721
+ /* {csegen:498} */
2722
+ const csegen_498 = __lazy(function () {
2723
+ return $0 => $1 => Prelude_Basics_on(csegen_496(), csegen_497(), $0, $1);
2685
2724
  });
2686
2725
 
2687
- /* {csegen:417} */
2688
- const csegen_417 = __lazy(function () {
2726
+ /* {csegen:511} */
2727
+ const csegen_511 = __lazy(function () {
2689
2728
  return $0 => $0.a2;
2690
2729
  });
2691
2730
 
2692
- /* {csegen:420} */
2693
- const csegen_420 = __lazy(function () {
2731
+ /* {csegen:514} */
2732
+ const csegen_514 = __lazy(function () {
2694
2733
  return $0 => $0.a1;
2695
2734
  });
2696
2735
 
2697
- /* {csegen:426} */
2698
- const csegen_426 = __lazy(function () {
2736
+ /* {csegen:520} */
2737
+ const csegen_520 = __lazy(function () {
2699
2738
  return date => Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('earliest:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Data_Date_show_Show_Date(date)), a2: {h: 0}}}));
2700
2739
  });
2701
2740
 
2702
- /* {csegen:455} */
2703
- const csegen_455 = __lazy(function () {
2741
+ /* {csegen:550} */
2742
+ const csegen_550 = __lazy(function () {
2704
2743
  return $0 => Util_yesNoPrompt(csegen_72(), 'Would you like to continue creating a Pull Request anyway?');
2705
2744
  });
2706
2745
 
2707
- /* {csegen:490} */
2708
- const csegen_490 = __lazy(function () {
2746
+ /* {csegen:585} */
2747
+ const csegen_585 = __lazy(function () {
2709
2748
  return $0 => $0.a1;
2710
2749
  });
2711
2750
 
2712
- /* {csegen:502} */
2713
- const csegen_502 = __lazy(function () {
2714
- return {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2: {h: 0}}};
2751
+ /* {csegen:597} */
2752
+ const csegen_597 = __lazy(function () {
2753
+ return {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2: {h: 0}};
2715
2754
  });
2716
2755
 
2717
- /* {csegen:518} */
2718
- const csegen_518 = __lazy(function () {
2756
+ /* {csegen:616} */
2757
+ const csegen_616 = __lazy(function () {
2719
2758
  return {a1: ann => $1 => Graph_pretty_Pretty_Date($1), a2: ann => $5 => $6 => Graph_prettyPrec_Pretty_Date($5, $6)};
2720
2759
  });
2721
2760
 
@@ -2724,18 +2763,18 @@ function prim__sub_Integer($0, $1) {
2724
2763
  return ($0-$1);
2725
2764
  }
2726
2765
 
2727
- /* Main.8124:1348:parsePg */
2728
- function Main_n__8124_1348_parsePg($0, $1, $2, $3, $4, $5, $6) {
2766
+ /* Main.8197:1349:parsePg */
2767
+ function Main_n__8197_1349_parsePg($0, $1, $2, $3, $4, $5, $6) {
2729
2768
  return Data_String_parsePositive(csegen_2(), $6);
2730
2769
  }
2731
2770
 
2732
- /* Main.8124:1347:parseLim */
2733
- function Main_n__8124_1347_parseLim($0, $1, $2, $3, $4, $5) {
2771
+ /* Main.8197:1348:parseLim */
2772
+ function Main_n__8197_1348_parseLim($0, $1, $2, $3, $4, $5) {
2734
2773
  return Prelude_Interfaces_x3cx3dx3c(csegen_14(), x => Data_Fin_natToFin(x, 101n), $e => Data_String_parsePositive(csegen_2(), $e));
2735
2774
  }
2736
2775
 
2737
- /* Main.7985:1149:configuredOpts */
2738
- function Main_n__7985_1149_configuredOpts($0, $1, $2, $3) {
2776
+ /* Main.8058:1150:configuredOpts */
2777
+ function Main_n__8058_1150_configuredOpts($0, $1, $2, $3) {
2739
2778
  const $11 = $12 => {
2740
2779
  switch($12.h) {
2741
2780
  case 1: /* Right */ return $0.a1.a1.a2(undefined)(BashCompletion_opts($12.a1, $3, $2, $1));
@@ -2802,25 +2841,29 @@ function Main_main($0) {
2802
2841
  return csegen_40()($36);
2803
2842
  });
2804
2843
  const $1a = $1b($0);
2805
- let $48;
2844
+ const $43 = Prelude_Interfaces_when(csegen_24(), Prelude_Types_x3dx3d_Eq_x28Maybex20x24ax29(csegen_39(), Data_List_headx27($e), {a1: 'help'}), () => $52 => {
2845
+ const $53 = Prelude_IO_prim__putStr((Help_subcommandHelp($1, Data_Maybe_fromMaybe(() => '', Data_List_headx27(Data_List_drop(1n, $e))))+'\n'), $52);
2846
+ return csegen_40()($52);
2847
+ })($0);
2848
+ let $6d;
2806
2849
  switch(Prelude_Types_x3dx3d_Eq_x28Listx20x24ax29(csegen_39(), $e, {a1: 'version', a2: {h: 0}})) {
2807
2850
  case 1: {
2808
- $48 = 1;
2851
+ $6d = 1;
2809
2852
  break;
2810
2853
  }
2811
2854
  case 0: {
2812
- $48 = Prelude_Types_x3dx3d_Eq_x28Listx20x24ax29(csegen_39(), $e, {a1: '--version', a2: {h: 0}});
2855
+ $6d = Prelude_Types_x3dx3d_Eq_x28Listx20x24ax29(csegen_39(), $e, {a1: '--version', a2: {h: 0}});
2813
2856
  break;
2814
2857
  }
2815
2858
  }
2816
- const $44 = Prelude_Interfaces_when(csegen_24(), $48, () => $59 => {
2817
- const $5a = AppVersion_printVersion(csegen_31())($59);
2818
- return csegen_40()($59);
2859
+ const $69 = Prelude_Interfaces_when(csegen_24(), $6d, () => $7e => {
2860
+ const $7f = AppVersion_printVersion(csegen_31())($7e);
2861
+ return csegen_40()($7e);
2819
2862
  });
2820
- const $43 = $44($0);
2821
- const $64 = System_getEnv(csegen_31(), 'GITHUB_PAT')($0);
2822
- const $6b = FFI_Git_git(csegen_31())($0);
2823
- return Main_handleArgs($6b, $64, $1, $7, $e)($0);
2863
+ const $68 = $69($0);
2864
+ const $89 = System_getEnv(csegen_31(), 'GITHUB_PAT')($0);
2865
+ const $90 = FFI_Git_git(csegen_31())($0);
2866
+ return Main_handleArgs($90, $89, $1, $7, $e)($0);
2824
2867
  }
2825
2868
 
2826
2869
  /* Main.handleConfiguredArgs : Config => Git => Maybe String -> List String -> Promise () */
@@ -2973,7 +3016,7 @@ function Main_handleAuthenticatedArgs($0, $1, $2, $3) {
2973
3016
  }
2974
3017
  return Prelude_Types_x3ex3ex3d_Monad_Maybe($b1, filter => ({a1: {a1: filter, a2: {a1: $ae.a1, a2: $ae.a2}}}));
2975
3018
  };
2976
- const $8e = Prelude_Types_x3ex3ex3d_Monad_Maybe(Prelude_Types_x3cx2ax3e_Applicative_Maybe(Prelude_Types_x3cx2ax3e_Applicative_Maybe({a1: $96 => $97 => ({a1: $96, a2: $97})}, Main_n__8124_1347_parseLim($1, $2, $3.a2.a2.a1, $3.a2.a2.a2.a1, $3.a2.a2.a2.a2.a1, $0)($3.a2.a2.a2.a1)), Main_n__8124_1348_parsePg($1, $2, $3.a2.a2.a1, $3.a2.a2.a2.a1, $3.a2.a2.a2.a2.a1, $0, $3.a2.a2.a2.a2.a1)), $ad);
3019
+ const $8e = Prelude_Types_x3ex3ex3d_Monad_Maybe(Prelude_Types_x3cx2ax3e_Applicative_Maybe(Prelude_Types_x3cx2ax3e_Applicative_Maybe({a1: $96 => $97 => ({a1: $96, a2: $97})}, Main_n__8197_1348_parseLim($1, $2, $3.a2.a2.a1, $3.a2.a2.a2.a1, $3.a2.a2.a2.a2.a1, $0)($3.a2.a2.a2.a1)), Main_n__8197_1349_parsePg($1, $2, $3.a2.a2.a1, $3.a2.a2.a2.a1, $3.a2.a2.a2.a2.a1, $0, $3.a2.a2.a2.a2.a1)), $ad);
2977
3020
  return $be => {
2978
3021
  switch($8e.h) {
2979
3022
  case undefined: /* just */ return $c0 => Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_listPullRequestsJsonStr($2, $0.a2, $0.a3, $8e.a1.a1, $8e.a1.a2.a1, $8e.a1.a2.a2), pullsJsonStr => $cf => $d0 => $d1 => Data_Promise_liftIO_HasIO_Promise($d4 => Prelude_IO_prim__putStr(pullsJsonStr, $d4), $cf, $d0, $d1), $be, $c0);
@@ -3202,7 +3245,7 @@ function Main_exitError($0, $1) {
3202
3245
 
3203
3246
  /* Main.bashCompletion : HasIO io => String -> String -> String -> io () */
3204
3247
  function Main_bashCompletion($0, $1, $2, $3) {
3205
- const $4 = Prelude_Types_maybe(() => Main_n__7985_1149_configuredOpts($0, $3, $2, $1), () => $d => $0.a1.a1.a2(undefined)($d), BashCompletion_cmdOpts($1, $2, $3));
3248
+ const $4 = Prelude_Types_maybe(() => Main_n__8058_1150_configuredOpts($0, $3, $2, $1), () => $d => $0.a1.a1.a2(undefined)($d), BashCompletion_cmdOpts($1, $2, $3));
3206
3249
  return $0.a1.a2(undefined)(undefined)($4)($24 => $0.a2(undefined)($2a => Prelude_IO_prim__putStr(Data_String_fastUnlines($24), $2a)));
3207
3250
  }
3208
3251
 
@@ -3489,6 +3532,11 @@ function Text_PrettyPrint_Prettyprinter_Doc_spaces($0) {
3489
3532
  }
3490
3533
  }
3491
3534
 
3535
+ /* Text.PrettyPrint.Prettyprinter.Doc.softline : Doc ann */
3536
+ const Text_PrettyPrint_Prettyprinter_Doc_softline = __lazy(function () {
3537
+ return {h: 7 /* Union */, a1: () => ({h: 1 /* Chara */, a1: ' '}), a2: () => ({h: 3 /* Line */})};
3538
+ });
3539
+
3492
3540
  /* Text.PrettyPrint.Prettyprinter.Doc.round : Double -> Int */
3493
3541
  function Text_PrettyPrint_Prettyprinter_Doc_round($0) {
3494
3542
  switch(Prelude_EqOrd_x3e_Ord_Double($0, Number(0n))) {
@@ -3568,7 +3616,7 @@ function Text_PrettyPrint_Prettyprinter_Doc_hsep($0) {
3568
3616
 
3569
3617
  /* Text.PrettyPrint.Prettyprinter.Doc.hcat : List (Doc ann) -> Doc ann */
3570
3618
  function Text_PrettyPrint_Prettyprinter_Doc_hcat($0) {
3571
- return Text_PrettyPrint_Prettyprinter_Doc_concatWith(csegen_84(), $0);
3619
+ return Text_PrettyPrint_Prettyprinter_Doc_concatWith(csegen_85(), $0);
3572
3620
  }
3573
3621
 
3574
3622
  /* Text.PrettyPrint.Prettyprinter.Doc.hardline : Doc ann */
@@ -3604,6 +3652,11 @@ function Text_PrettyPrint_Prettyprinter_Doc_group($0) {
3604
3652
  }
3605
3653
  }
3606
3654
 
3655
+ /* Text.PrettyPrint.Prettyprinter.Doc.fillSep : List (Doc ann) -> Doc ann */
3656
+ function Text_PrettyPrint_Prettyprinter_Doc_fillSep($0) {
3657
+ return Text_PrettyPrint_Prettyprinter_Doc_concatWith(x => y => Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(x, Text_PrettyPrint_Prettyprinter_Doc_softline()), y), $0);
3658
+ }
3659
+
3607
3660
  /* Text.PrettyPrint.Prettyprinter.Doc.fillBreak : Int -> Doc ann -> Doc ann */
3608
3661
  function Text_PrettyPrint_Prettyprinter_Doc_fillBreak($0, $1) {
3609
3662
  const $4 = w => {
@@ -3622,10 +3675,10 @@ function Text_PrettyPrint_Prettyprinter_Doc_encloseSep($0, $1, $2, $3) {
3622
3675
  case undefined: /* cons */ {
3623
3676
  switch($3.a2.h) {
3624
3677
  case 0: /* nil */ return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29($0, $3.a1), $1);
3625
- default: return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_cat(Data_List_zipWith_Zippable_List(csegen_84(), {a1: $0, a2: Data_List_replicateTR({h: 0}, Prelude_Types_prim__integerToNat((Prelude_Types_List_lengthTR($3)-1n)), $2)}, $3)), $1);
3678
+ default: return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_cat(Data_List_zipWith_Zippable_List(csegen_85(), {a1: $0, a2: Data_List_replicateTR({h: 0}, Prelude_Types_prim__integerToNat((Prelude_Types_List_lengthTR($3)-1n)), $2)}, $3)), $1);
3626
3679
  }
3627
3680
  }
3628
- default: return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_cat(Data_List_zipWith_Zippable_List(csegen_84(), {a1: $0, a2: Data_List_replicateTR({h: 0}, Prelude_Types_prim__integerToNat((Prelude_Types_List_lengthTR($3)-1n)), $2)}, $3)), $1);
3681
+ default: return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_cat(Data_List_zipWith_Zippable_List(csegen_85(), {a1: $0, a2: Data_List_replicateTR({h: 0}, Prelude_Types_prim__integerToNat((Prelude_Types_List_lengthTR($3)-1n)), $2)}, $3)), $1);
3629
3682
  }
3630
3683
  }
3631
3684
 
@@ -3875,12 +3928,12 @@ function Data_String_lines($0) {
3875
3928
 
3876
3929
  /* Data.String.isSuffixOf : String -> String -> Bool */
3877
3930
  function Data_String_isSuffixOf($0, $1) {
3878
- return Data_List_isSuffixOf(csegen_88(), Prelude_Types_fastUnpack($0), Prelude_Types_fastUnpack($1));
3931
+ return Data_List_isSuffixOf(csegen_90(), Prelude_Types_fastUnpack($0), Prelude_Types_fastUnpack($1));
3879
3932
  }
3880
3933
 
3881
3934
  /* Data.String.isPrefixOf : String -> String -> Bool */
3882
3935
  function Data_String_isPrefixOf($0, $1) {
3883
- return Data_List_isPrefixOf(csegen_88(), Prelude_Types_fastUnpack($0), Prelude_Types_fastUnpack($1));
3936
+ return Data_List_isPrefixOf(csegen_90(), Prelude_Types_fastUnpack($0), Prelude_Types_fastUnpack($1));
3884
3937
  }
3885
3938
 
3886
3939
  /* Data.String.fastUnlines : List String -> String */
@@ -3968,7 +4021,7 @@ function Builtin_fst($0) {
3968
4021
  function Prelude_Types_traverse_Traversable_List($0, $1, $2) {
3969
4022
  switch($2.h) {
3970
4023
  case 0: /* nil */ return $0.a2(undefined)({h: 0});
3971
- case undefined: /* cons */ return $0.a3(undefined)(undefined)($0.a3(undefined)(undefined)($0.a2(undefined)(csegen_89()))($1($2.a1)))(Prelude_Types_traverse_Traversable_List($0, $1, $2.a2));
4024
+ case undefined: /* cons */ return $0.a3(undefined)(undefined)($0.a3(undefined)(undefined)($0.a2(undefined)(csegen_91()))($1($2.a1)))(Prelude_Types_traverse_Traversable_List($0, $1, $2.a2));
3972
4025
  }
3973
4026
  }
3974
4027
 
@@ -3982,12 +4035,12 @@ function Prelude_Types_traverse_Traversable_x28Eitherx20x24ex29($0, $1, $2) {
3982
4035
 
3983
4036
  /* Prelude.Types.toList */
3984
4037
  function Prelude_Types_toList_Foldable_Maybe($0) {
3985
- return Prelude_Types_foldr_Foldable_Maybe(csegen_89(), {h: 0}, $0);
4038
+ return Prelude_Types_foldr_Foldable_Maybe(csegen_91(), {h: 0}, $0);
3986
4039
  }
3987
4040
 
3988
4041
  /* Prelude.Types.toList */
3989
4042
  function Prelude_Types_toList_Foldable_x28Eitherx20x24ex29($0) {
3990
- return Prelude_Types_foldr_Foldable_x28Eitherx20x24ex29(csegen_89(), {h: 0}, $0);
4043
+ return Prelude_Types_foldr_Foldable_x28Eitherx20x24ex29(csegen_91(), {h: 0}, $0);
3991
4044
  }
3992
4045
 
3993
4046
  /* Prelude.Types.rangeFromTo */
@@ -4121,7 +4174,7 @@ function Prelude_Types_foldr_Foldable_x28Eitherx20x24ex29($0, $1, $2) {
4121
4174
 
4122
4175
  /* Prelude.Types.foldl */
4123
4176
  function Prelude_Types_foldl_Foldable_x28Eitherx20x24ex29($0, $1, $2) {
4124
- return Prelude_Types_foldr_Foldable_x28Eitherx20x24ex29($6 => $7 => Prelude_Basics_flip(csegen_90(), $c => Prelude_Basics_flip($0, $6, $c), $7), $13 => $13, $2)($1);
4177
+ return Prelude_Types_foldr_Foldable_x28Eitherx20x24ex29($6 => $7 => Prelude_Basics_flip(csegen_92(), $c => Prelude_Basics_flip($0, $6, $c), $7), $13 => $13, $2)($1);
4125
4178
  }
4126
4179
 
4127
4180
  /* Prelude.Types.foldlM */
@@ -4170,6 +4223,24 @@ function Prelude_Types_x3ex3d_Ord_Nat($0, $1) {
4170
4223
  return Prelude_EqOrd_x2fx3d_Eq_Ordering(Prelude_EqOrd_compare_Ord_Integer($0, $1), 0);
4171
4224
  }
4172
4225
 
4226
+ /* Prelude.Types.== */
4227
+ function Prelude_Types_x3dx3d_Eq_x28Maybex20x24ax29($0, $1, $2) {
4228
+ switch($1.h) {
4229
+ case 0: /* nothing */ {
4230
+ switch($2.h) {
4231
+ case 0: /* nothing */ return 1;
4232
+ case undefined: /* just */ return 0;
4233
+ }
4234
+ }
4235
+ case undefined: /* just */ {
4236
+ switch($2.h) {
4237
+ case 0: /* nothing */ return 0;
4238
+ case undefined: /* just */ return $0.a1($1.a1)($2.a1);
4239
+ }
4240
+ }
4241
+ }
4242
+ }
4243
+
4173
4244
  /* Prelude.Types.<|> */
4174
4245
  function Prelude_Types_x3cx7cx3e_Alternative_Maybe($0, $1) {
4175
4246
  switch($0.h) {
@@ -4375,7 +4446,7 @@ function Prelude_Types_isAlpha($0) {
4375
4446
 
4376
4447
  /* Prelude.Types.elemBy : Foldable t => (a -> a -> Bool) -> a -> t a -> Bool */
4377
4448
  function Prelude_Types_elemBy($0, $1, $2, $3) {
4378
- return $0.a6(undefined)(undefined)(csegen_92())($1($2))($3);
4449
+ return $0.a6(undefined)(undefined)(csegen_94())($1($2))($3);
4379
4450
  }
4380
4451
 
4381
4452
  /* Prelude.Types.elem : Foldable t => Eq a => a -> t a -> Bool */
@@ -5741,13 +5812,13 @@ function BashCompletion_case__unhashify_9324($0, $1) {
5741
5812
  }
5742
5813
  }
5743
5814
 
5744
- /* BashCompletion.4630:10022:slugsOrLoginsOrLabels */
5745
- function BashCompletion_n__4630_10022_slugsOrLoginsOrLabels($0, $1, $2) {
5815
+ /* BashCompletion.4641:10034:slugsOrLoginsOrLabels */
5816
+ function BashCompletion_n__4641_10034_slugsOrLoginsOrLabels($0, $1, $2) {
5746
5817
  switch(Data_String_isPrefixOf('+', $1)) {
5747
5818
  case 1: return Prelude_Types_List_mapAppend({h: 0}, $a => ('+'+$a), $2.a11);
5748
5819
  case 0: {
5749
5820
  switch(BashCompletion_isHashPrefix($1)) {
5750
- case 1: return Prelude_Types_List_mapAppend({h: 0}, csegen_145(), $2.a10);
5821
+ case 1: return Prelude_Types_List_mapAppend({h: 0}, csegen_147(), $2.a10);
5751
5822
  case 0: return $2.a9;
5752
5823
  }
5753
5824
  }
@@ -5756,7 +5827,7 @@ function BashCompletion_n__4630_10022_slugsOrLoginsOrLabels($0, $1, $2) {
5756
5827
 
5757
5828
  /* BashCompletion.unslugify : String -> String */
5758
5829
  function BashCompletion_unslugify($0) {
5759
- return Prelude_Types_fastPack(Data_List_replaceOn(csegen_88(), '\u{25cc}', ' ', Prelude_Types_fastUnpack($0)));
5830
+ return Prelude_Types_fastPack(Data_List_replaceOn(csegen_90(), '\u{25cc}', ' ', Prelude_Types_fastUnpack($0)));
5760
5831
  }
5761
5832
 
5762
5833
  /* BashCompletion.unhashify : String -> String */
@@ -5766,7 +5837,7 @@ function BashCompletion_unhashify($0) {
5766
5837
 
5767
5838
  /* BashCompletion.slugify : String -> String */
5768
5839
  function BashCompletion_slugify($0) {
5769
- return Prelude_Types_fastPack(Data_List_replaceOn(csegen_88(), ' ', '\u{25cc}', Prelude_Types_fastUnpack($0)));
5840
+ return Prelude_Types_fastPack(Data_List_replaceOn(csegen_90(), ' ', '\u{25cc}', Prelude_Types_fastUnpack($0)));
5770
5841
  }
5771
5842
 
5772
5843
  /* BashCompletion.script : String */
@@ -5842,7 +5913,7 @@ function BashCompletion_opts($0, $1, $2, $3) {
5842
5913
  case 'graph': return {a1: '--completed', a2: $0.a9};
5843
5914
  case '--completed': return $0.a9;
5844
5915
  default: {
5845
- switch(Data_Maybe_isJust(Data_List_find($59 => Prelude_EqOrd_x3dx3d_Eq_String($59, $3), csegen_147()))) {
5916
+ switch(Data_Maybe_isJust(Data_List_find($59 => Prelude_EqOrd_x3dx3d_Eq_String($59, $3), csegen_149()))) {
5846
5917
  case 1: return Prelude_Types_List_filterAppend({h: 0}, $62 => Data_String_isPrefixOf($2, $62), $0.a9);
5847
5918
  case 0: return {h: 0};
5848
5919
  }
@@ -5850,7 +5921,7 @@ function BashCompletion_opts($0, $1, $2, $3) {
5850
5921
  }
5851
5922
  }
5852
5923
  default: {
5853
- switch(Data_Maybe_isJust(Data_List_find($6d => Prelude_EqOrd_x3dx3d_Eq_String($6d, $3), csegen_147()))) {
5924
+ switch(Data_Maybe_isJust(Data_List_find($6d => Prelude_EqOrd_x3dx3d_Eq_String($6d, $3), csegen_149()))) {
5854
5925
  case 1: return Prelude_Types_List_filterAppend({h: 0}, $76 => Data_String_isPrefixOf($2, $76), $0.a9);
5855
5926
  case 0: return {h: 0};
5856
5927
  }
@@ -5859,7 +5930,7 @@ function BashCompletion_opts($0, $1, $2, $3) {
5859
5930
  }
5860
5931
  case 'pr': {
5861
5932
  switch(BashCompletion_isHashPrefix($2)) {
5862
- case 1: return Prelude_Types_List_mapAppend({h: 0}, csegen_145(), $0.a10);
5933
+ case 1: return Prelude_Types_List_mapAppend({h: 0}, csegen_147(), $0.a10);
5863
5934
  case 0: return {h: 0};
5864
5935
  }
5865
5936
  }
@@ -5874,7 +5945,7 @@ function BashCompletion_opts($0, $1, $2, $3) {
5874
5945
  default: {
5875
5946
  switch(Data_String_isPrefixOf($2, '--dry')) {
5876
5947
  case 1: return {a1: '--dry', a2: {h: 0}};
5877
- case 0: return BashCompletion_n__4630_10022_slugsOrLoginsOrLabels($3, $2, $0);
5948
+ case 0: return BashCompletion_n__4641_10034_slugsOrLoginsOrLabels($3, $2, $0);
5878
5949
  }
5879
5950
  }
5880
5951
  }
@@ -5909,10 +5980,30 @@ function BashCompletion_cmdOpts($0, $1, $2) {
5909
5980
  switch($0) {
5910
5981
  case 'sync': return {a1: {h: 0}};
5911
5982
  case 'health': return {a1: {h: 0}};
5912
- case 'help': return {a1: {h: 0}};
5913
5983
  case '--help': return {a1: {h: 0}};
5914
5984
  case 'reflect': return {a1: {h: 0}};
5915
5985
  case 'version': return {a1: {h: 0}};
5986
+ case 'help': {
5987
+ switch($1) {
5988
+ case '--': {
5989
+ switch($2) {
5990
+ case 'help': return {a1: BashCompletion_allRootCmds()};
5991
+ default: {
5992
+ switch($2) {
5993
+ case 'help': return {a1: Prelude_Types_List_filterAppend({h: 0}, $21 => Data_String_isPrefixOf($1, $21), BashCompletion_allRootCmds())};
5994
+ default: return {h: 0};
5995
+ }
5996
+ }
5997
+ }
5998
+ }
5999
+ default: {
6000
+ switch($2) {
6001
+ case 'help': return {a1: Prelude_Types_List_filterAppend({h: 0}, $2c => Data_String_isPrefixOf($1, $2c), BashCompletion_allRootCmds())};
6002
+ default: return {h: 0};
6003
+ }
6004
+ }
6005
+ }
6006
+ }
5916
6007
  case 'pr': {
5917
6008
  switch($1) {
5918
6009
  case '-': {
@@ -5977,8 +6068,8 @@ function BashCompletion_cmdOpts($0, $1, $2) {
5977
6068
  }
5978
6069
  case 'contribute': {
5979
6070
  switch($1) {
5980
- case '-': return csegen_151();
5981
- case '--': return csegen_151();
6071
+ case '-': return csegen_153();
6072
+ case '--': return csegen_153();
5982
6073
  default: {
5983
6074
  switch(Data_String_isPrefixOf($1, '--checkout')) {
5984
6075
  case 1: return {a1: {a1: '--checkout', a2: {h: 0}}};
@@ -5995,7 +6086,7 @@ function BashCompletion_cmdOpts($0, $1, $2) {
5995
6086
  case 'graph': {
5996
6087
  switch($1) {
5997
6088
  case '--': return {h: 0};
5998
- case '-': return csegen_153();
6089
+ case '-': return csegen_155();
5999
6090
  default: {
6000
6091
  switch(Data_String_isPrefixOf($1, '--completed')) {
6001
6092
  case 1: return {a1: {a1: '--completed', a2: {h: 0}}};
@@ -6013,15 +6104,35 @@ function BashCompletion_cmdOpts($0, $1, $2) {
6013
6104
  }
6014
6105
  default: {
6015
6106
  switch($2) {
6016
- case 'harmony': return {a1: Prelude_Types_List_filterAppend({h: 0}, $66 => Data_String_isPrefixOf($1, $66), BashCompletion_allRootCmds())};
6107
+ case 'harmony': return {a1: Prelude_Types_List_filterAppend({h: 0}, $7f => Data_String_isPrefixOf($1, $7f), BashCompletion_allRootCmds())};
6017
6108
  default: {
6018
6109
  switch($0) {
6019
6110
  case 'sync': return {a1: {h: 0}};
6020
6111
  case 'health': return {a1: {h: 0}};
6021
- case 'help': return {a1: {h: 0}};
6022
6112
  case '--help': return {a1: {h: 0}};
6023
6113
  case 'reflect': return {a1: {h: 0}};
6024
6114
  case 'version': return {a1: {h: 0}};
6115
+ case 'help': {
6116
+ switch($1) {
6117
+ case '--': {
6118
+ switch($2) {
6119
+ case 'help': return {a1: BashCompletion_allRootCmds()};
6120
+ default: {
6121
+ switch($2) {
6122
+ case 'help': return {a1: Prelude_Types_List_filterAppend({h: 0}, $94 => Data_String_isPrefixOf($1, $94), BashCompletion_allRootCmds())};
6123
+ default: return {h: 0};
6124
+ }
6125
+ }
6126
+ }
6127
+ }
6128
+ default: {
6129
+ switch($2) {
6130
+ case 'help': return {a1: Prelude_Types_List_filterAppend({h: 0}, $9f => Data_String_isPrefixOf($1, $9f), BashCompletion_allRootCmds())};
6131
+ default: return {h: 0};
6132
+ }
6133
+ }
6134
+ }
6135
+ }
6025
6136
  case 'pr': {
6026
6137
  switch($1) {
6027
6138
  case '-': {
@@ -6086,8 +6197,8 @@ function BashCompletion_cmdOpts($0, $1, $2) {
6086
6197
  }
6087
6198
  case 'contribute': {
6088
6199
  switch($1) {
6089
- case '-': return csegen_151();
6090
- case '--': return csegen_151();
6200
+ case '-': return csegen_153();
6201
+ case '--': return csegen_153();
6091
6202
  default: {
6092
6203
  switch(Data_String_isPrefixOf($1, '--checkout')) {
6093
6204
  case 1: return {a1: {a1: '--checkout', a2: {h: 0}}};
@@ -6104,7 +6215,7 @@ function BashCompletion_cmdOpts($0, $1, $2) {
6104
6215
  case 'graph': {
6105
6216
  switch($1) {
6106
6217
  case '--': return {h: 0};
6107
- case '-': return csegen_153();
6218
+ case '-': return csegen_155();
6108
6219
  default: {
6109
6220
  switch(Data_String_isPrefixOf($1, '--completed')) {
6110
6221
  case 1: return {a1: {a1: '--completed', a2: {h: 0}}};
@@ -6240,18 +6351,18 @@ function Data_Config_parseConfig($0, $1) {
6240
6351
  }
6241
6352
  };
6242
6353
  const $4 = {a1: $5, a2: a => $d => ({h: 1 /* Right */, a1: $d}), a3: $f};
6243
- const $3 = {a1: $4, a2: csegen_196(), a3: csegen_197()};
6244
- return Prelude_Interfaces_x3ex3dx3e($3, csegen_198(), $20 => Data_Config_n__8195_6496_parseConfigJson($0, $20), $1);
6354
+ const $3 = {a1: $4, a2: csegen_198(), a3: csegen_199()};
6355
+ return Prelude_Interfaces_x3ex3dx3e($3, csegen_200(), $20 => Data_Config_n__8195_6496_parseConfigJson($0, $20), $1);
6245
6356
  }
6246
6357
 
6247
6358
  /* Data.Config.longestSettablePropName : Nat */
6248
6359
  const Data_Config_longestSettablePropName = __lazy(function () {
6249
- return Prelude_Types_foldr_Foldable_List(csegen_199(), 0n, Prelude_Types_List_mapAppend({h: 0}, $8 => Prelude_Types_String_length(Data_Config_propNamex27($8)), Data_Config_settableProps()));
6360
+ return Prelude_Types_foldr_Foldable_List(csegen_201(), 0n, Prelude_Types_List_mapAppend({h: 0}, $8 => Prelude_Types_String_length(Data_Config_propNamex27($8)), Data_Config_settableProps()));
6250
6361
  });
6251
6362
 
6252
6363
  /* Data.Config.json : Config -> JSON */
6253
6364
  function Data_Config_json($0) {
6254
- return {h: 6 /* JObject */, a1: {a1: {a1: 'assignTeams', a2: {h: 3 /* JBool */, a1: $0.a6}}, a2: {a1: {a1: 'assignUsers', a2: {h: 3 /* JBool */, a1: $0.a7}}, a2: {a1: {a1: 'commentOnAssign', a2: {h: 3 /* JBool */, a1: $0.a8}}, a2: {a1: {a1: 'org', a2: {h: 4 /* JString */, a1: $0.a2}}, a2: {a1: {a1: 'repo', a2: {h: 4 /* JString */, a1: $0.a3}}, a2: {a1: {a1: 'defaultRemote', a2: {h: 4 /* JString */, a1: $0.a4}}, a2: {a1: {a1: 'mainBranch', a2: {h: 4 /* JString */, a1: $0.a5}}, a2: {a1: {a1: 'orgMembers', a2: {h: 5 /* JArray */, a1: Prelude_Types_List_mapAppend({h: 0}, $2d => ({h: 4 /* JString */, a1: $2d}), Data_List_sort(csegen_210(), $0.a11))}}, a2: {a1: {a1: 'teamSlugs', a2: {h: 5 /* JArray */, a1: Prelude_Types_List_mapAppend({h: 0}, $3c => ({h: 4 /* JString */, a1: $3c}), Data_List_sort(csegen_210(), $0.a9))}}, a2: {a1: {a1: 'repoLabels', a2: {h: 5 /* JArray */, a1: Prelude_Types_List_mapAppend({h: 0}, $4b => ({h: 4 /* JString */, a1: $4b}), Data_List_sort(csegen_210(), $0.a10))}}, a2: {a1: {a1: 'ignoredPRs', a2: {h: 5 /* JArray */, a1: Prelude_Types_List_mapAppend({h: 0}, $5a => ({h: 1 /* JInteger */, a1: $5a}), Data_List_sort({a1: csegen_213(), a2: csegen_214(), a3: $64 => $65 => Prelude_EqOrd_x3c_Ord_Integer($64, $65), a4: $6a => $6b => Prelude_EqOrd_x3e_Ord_Integer($6a, $6b), a5: $70 => $71 => Prelude_EqOrd_x3cx3d_Ord_Integer($70, $71), a6: $76 => $77 => Prelude_EqOrd_x3ex3d_Ord_Integer($76, $77), a7: $7c => $7d => Prelude_EqOrd_max_Ord_Integer($7c, $7d), a8: $82 => $83 => Prelude_EqOrd_min_Ord_Integer($82, $83)}, $0.a12))}}, a2: {a1: {a1: 'githubPAT', a2: Prelude_Types_maybe(() => ({h: 0 /* JNull */}), () => $8f => ({h: 4 /* JString */, a1: $8f}), $0.a13)}, a2: {a1: {a1: 'updatedAt', a2: {h: 1 /* JInteger */, a1: BigInt($0.a1)}}, a2: {h: 0}}}}}}}}}}}}}}};
6365
+ return {h: 6 /* JObject */, a1: {a1: {a1: 'assignTeams', a2: {h: 3 /* JBool */, a1: $0.a6}}, a2: {a1: {a1: 'assignUsers', a2: {h: 3 /* JBool */, a1: $0.a7}}, a2: {a1: {a1: 'commentOnAssign', a2: {h: 3 /* JBool */, a1: $0.a8}}, a2: {a1: {a1: 'org', a2: {h: 4 /* JString */, a1: $0.a2}}, a2: {a1: {a1: 'repo', a2: {h: 4 /* JString */, a1: $0.a3}}, a2: {a1: {a1: 'defaultRemote', a2: {h: 4 /* JString */, a1: $0.a4}}, a2: {a1: {a1: 'mainBranch', a2: {h: 4 /* JString */, a1: $0.a5}}, a2: {a1: {a1: 'orgMembers', a2: {h: 5 /* JArray */, a1: Prelude_Types_List_mapAppend({h: 0}, $2d => ({h: 4 /* JString */, a1: $2d}), Data_List_sort(csegen_212(), $0.a11))}}, a2: {a1: {a1: 'teamSlugs', a2: {h: 5 /* JArray */, a1: Prelude_Types_List_mapAppend({h: 0}, $3c => ({h: 4 /* JString */, a1: $3c}), Data_List_sort(csegen_212(), $0.a9))}}, a2: {a1: {a1: 'repoLabels', a2: {h: 5 /* JArray */, a1: Prelude_Types_List_mapAppend({h: 0}, $4b => ({h: 4 /* JString */, a1: $4b}), Data_List_sort(csegen_212(), $0.a10))}}, a2: {a1: {a1: 'ignoredPRs', a2: {h: 5 /* JArray */, a1: Prelude_Types_List_mapAppend({h: 0}, $5a => ({h: 1 /* JInteger */, a1: $5a}), Data_List_sort({a1: csegen_215(), a2: csegen_216(), a3: $64 => $65 => Prelude_EqOrd_x3c_Ord_Integer($64, $65), a4: $6a => $6b => Prelude_EqOrd_x3e_Ord_Integer($6a, $6b), a5: $70 => $71 => Prelude_EqOrd_x3cx3d_Ord_Integer($70, $71), a6: $76 => $77 => Prelude_EqOrd_x3ex3d_Ord_Integer($76, $77), a7: $7c => $7d => Prelude_EqOrd_max_Ord_Integer($7c, $7d), a8: $82 => $83 => Prelude_EqOrd_min_Ord_Integer($82, $83)}, $0.a12))}}, a2: {a1: {a1: 'githubPAT', a2: Prelude_Types_maybe(() => ({h: 0 /* JNull */}), () => $8f => ({h: 4 /* JString */, a1: $8f}), $0.a13)}, a2: {a1: {a1: 'updatedAt', a2: {h: 1 /* JInteger */, a1: BigInt($0.a1)}}, a2: {h: 0}}}}}}}}}}}}}}};
6255
6366
  }
6256
6367
 
6257
6368
  /* Data.Config.filename : String */
@@ -6269,7 +6380,7 @@ function Decidable_Equality_decEq_DecEq_FromEqx24a($0, $1, $2) {
6269
6380
 
6270
6381
  /* Decidable.Equality.decEq */
6271
6382
  function Decidable_Equality_decEq_DecEq_Char($0, $1) {
6272
- return Decidable_Equality_decEq_DecEq_FromEqx24a(csegen_88(), $0, $1);
6383
+ return Decidable_Equality_decEq_DecEq_FromEqx24a(csegen_90(), $0, $1);
6273
6384
  }
6274
6385
 
6275
6386
  /* Data.Either.maybeToEither : Lazy e -> Maybe a -> Either e a */
@@ -6813,13 +6924,13 @@ function JSON_Parser_eqJSON($0, $1) {
6813
6924
  }
6814
6925
  case 5: /* JArray */ {
6815
6926
  switch($1.h) {
6816
- case 5: /* JArray */ return Prelude_Types_x3dx3d_Eq_x28Listx20x24ax29(csegen_227(), $0.a1, $1.a1);
6927
+ case 5: /* JArray */ return Prelude_Types_x3dx3d_Eq_x28Listx20x24ax29(csegen_229(), $0.a1, $1.a1);
6817
6928
  default: return 0;
6818
6929
  }
6819
6930
  }
6820
6931
  case 6: /* JObject */ {
6821
6932
  switch($1.h) {
6822
- case 6: /* JObject */ return Prelude_Types_x3dx3d_Eq_x28Listx20x24ax29({a1: $1e => $1f => Prelude_EqOrd_x3dx3d_Eq_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(csegen_39(), csegen_227(), $1e, $1f), a2: $28 => $29 => Prelude_EqOrd_x2fx3d_Eq_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(csegen_39(), csegen_227(), $28, $29)}, $0.a1, $1.a1);
6933
+ case 6: /* JObject */ return Prelude_Types_x3dx3d_Eq_x28Listx20x24ax29({a1: $1e => $1f => Prelude_EqOrd_x3dx3d_Eq_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(csegen_39(), csegen_229(), $1e, $1f), a2: $28 => $29 => Prelude_EqOrd_x2fx3d_Eq_x28x7cx28x28Builtinx2ePairx20x24ax29x20x24bx29x2cx28x28Builtinx2eMkPairx20x24ax29x20x24bx29x7cx29(csegen_39(), csegen_229(), $28, $29)}, $0.a1, $1.a1);
6823
6934
  default: return 0;
6824
6935
  }
6825
6936
  }
@@ -7059,7 +7170,7 @@ function Text_ParseError_failInParenEOI($0, $1, $2, $3) {
7059
7170
  case 1: /* Right */ {
7060
7171
  const $8 = {h: 1 /* Fail0 */, a1: {a1: {h: 9 /* Unexpected */, a1: {h: 1 /* Right */, a1: $3.a1.a1.a1.a1}}, a2: $3.a1.a2}};
7061
7172
  switch($2($3.a1.a1.a1.a1)) {
7062
- case 1: return csegen_234()($0)({h: 8 /* Unclosed */, a1: {h: 1 /* Right */, a1: $1}});
7173
+ case 1: return csegen_236()($0)({h: 8 /* Unclosed */, a1: {h: 1 /* Right */, a1: $1}});
7063
7174
  case 0: return Text_ParseError_failInParen($0, $1, $8);
7064
7175
  }
7065
7176
  }
@@ -7079,7 +7190,7 @@ function Text_ParseError_failInParenEOI($0, $1, $2, $3) {
7079
7190
  case undefined: /* cons */ {
7080
7191
  const $2a = {h: 0 /* Succ0 */, a1: $3.a1, a2: {a1: {a1: $3.a2.a1.a1, a2: $3.a2.a1.a2}, a2: $3.a2.a2}};
7081
7192
  switch($2($3.a2.a1.a1)) {
7082
- case 1: return csegen_234()($0)({h: 8 /* Unclosed */, a1: {h: 1 /* Right */, a1: $1}});
7193
+ case 1: return csegen_236()($0)({h: 8 /* Unclosed */, a1: {h: 1 /* Right */, a1: $1}});
7083
7194
  case 0: return Text_ParseError_failInParen($0, $1, $2a);
7084
7195
  }
7085
7196
  }
@@ -7100,7 +7211,7 @@ function Text_ParseError_failInParen($0, $1, $2) {
7100
7211
  switch($2.a1.h) {
7101
7212
  case undefined: /* cons */ {
7102
7213
  switch($2.a1.a1.h) {
7103
- case 1: /* EOI */ return csegen_234()($0)({h: 8 /* Unclosed */, a1: {h: 1 /* Right */, a1: $1}});
7214
+ case 1: /* EOI */ return csegen_236()($0)({h: 8 /* Unclosed */, a1: {h: 1 /* Right */, a1: $1}});
7104
7215
  default: return {h: 1 /* Fail0 */, a1: $2.a1};
7105
7216
  }
7106
7217
  }
@@ -7109,8 +7220,8 @@ function Text_ParseError_failInParen($0, $1, $2) {
7109
7220
  }
7110
7221
  case 0: /* Succ0 */ {
7111
7222
  switch($2.a2.h) {
7112
- case 0: /* nil */ return csegen_234()($0)({h: 8 /* Unclosed */, a1: {h: 1 /* Right */, a1: $1}});
7113
- case undefined: /* cons */ return csegen_234()($2.a2.a1.a2)({h: 9 /* Unexpected */, a1: {h: 1 /* Right */, a1: $2.a2.a1.a1}});
7223
+ case 0: /* nil */ return csegen_236()($0)({h: 8 /* Unclosed */, a1: {h: 1 /* Right */, a1: $1}});
7224
+ case undefined: /* cons */ return csegen_236()($2.a2.a1.a2)({h: 9 /* Unexpected */, a1: {h: 1 /* Right */, a1: $2.a2.a1.a1}});
7114
7225
  }
7115
7226
  }
7116
7227
  }
@@ -7119,8 +7230,8 @@ function Text_ParseError_failInParen($0, $1, $2) {
7119
7230
  /* Text.ParseError.fail : List (Bounded t) -> Result0 b (Bounded t) ts (Bounded (ParseError t y)) a */
7120
7231
  function Text_ParseError_fail($0) {
7121
7232
  switch($0.h) {
7122
- case undefined: /* cons */ return csegen_234()($0.a1.a2)({h: 9 /* Unexpected */, a1: {h: 1 /* Right */, a1: $0.a1.a1}});
7123
- case 0: /* nil */ return csegen_234()({h: 0})({h: 1 /* EOI */});
7233
+ case undefined: /* cons */ return csegen_236()($0.a1.a2)({h: 9 /* Unexpected */, a1: {h: 1 /* Right */, a1: $0.a1.a1}});
7234
+ case 0: /* nil */ return csegen_236()({h: 0})({h: 1 /* EOI */});
7124
7235
  }
7125
7236
  }
7126
7237
 
@@ -7157,52 +7268,426 @@ function Data_Vect_fromList($0) {
7157
7268
  return Data_Vect_reverse(Data_Vect_fromListx27({h: 0}, $0));
7158
7269
  }
7159
7270
 
7160
- /* System.File.copyFile : HasIO io => String -> String -> io (Either (FileError, Int) ()) */
7161
- function System_File_copyFile($0, $1, $2) {
7162
- const $f = $10 => {
7163
- switch($10.h) {
7164
- case 1: /* Right */ return $0.a1.a2(undefined)(undefined)($0.a1.a1.a2(undefined)(Data_Buffer_prim__bufferSize($10.a1)))($25 => System_File_Buffer_writeBufferToFile($0, $2, $10.a1, $25));
7165
- case 0: /* Left */ return $0.a1.a1.a2(undefined)({h: 0 /* Left */, a1: {a1: $10.a1, a2: Number(_truncBigInt32(0n))}});
7166
- }
7167
- };
7168
- return $0.a1.a2(undefined)(undefined)(System_File_Buffer_createBufferFromFile($0, $1))($f);
7271
+ /* Util.with block in yesNoPrompt,yesUnlessNo */
7272
+ function Util_with__yesNoPromptx2cyesUnlessNo_1292($0, $1, $2, $3, $4) {
7273
+ switch($4) {
7274
+ case 'n': return 0;
7275
+ case 'no': return 0;
7276
+ default: return 1;
7277
+ }
7169
7278
  }
7170
7279
 
7171
- /* System.File.Virtual.stdout : File */
7172
- const System_File_Virtual_stdout = __lazy(function () {
7173
- return System_File_Virtual_prim__stdout();
7174
- });
7175
-
7176
- /* System.File.Virtual.stderr : File */
7177
- const System_File_Virtual_stderr = __lazy(function () {
7178
- return System_File_Virtual_prim__stderr();
7179
- });
7180
-
7181
- /* System.File.Support.ok : HasIO io => a -> io (Either err a) */
7182
- function System_File_Support_ok($0, $1) {
7183
- return $0.a1.a1.a2(undefined)({h: 1 /* Right */, a1: $1});
7280
+ /* Util.5058:1284:yesUnlessNo */
7281
+ function Util_n__5058_1284_yesUnlessNo($0, $1, $2) {
7282
+ return Util_with__yesNoPromptx2cyesUnlessNo_1292(undefined, $0, $1, $2, Data_String_toLower($2));
7184
7283
  }
7185
7284
 
7186
- /* System.File.ReadWrite.writeFile : HasIO io => String -> String -> io (Either FileError ()) */
7187
- function System_File_ReadWrite_writeFile($0, $1, $2) {
7188
- return System_File_Handle_withFile($0, $1, 1, $8 => $0.a1.a1.a2(undefined)($8), $11 => Prelude_Basics_flip($14 => $15 => System_File_ReadWrite_fPutStr($0, $14, $15), $2, $11));
7189
- }
7285
+ /* Util.5161:1391:startOver */
7286
+ const Util_n__5161_1391_startOver = __lazy(function () {
7287
+ return {a1: 0, a2: {h: 0}};
7288
+ });
7190
7289
 
7191
- /* System.File.ReadWrite.removeFile : HasIO io => String -> io (Either FileError ()) */
7192
- function System_File_ReadWrite_removeFile($0, $1) {
7193
- const $14 = res => {
7194
- switch(Prelude_EqOrd_x3dx3d_Eq_Int(res, Number(_truncBigInt32(0n)))) {
7195
- case 1: return System_File_Support_ok($0, undefined);
7196
- case 0: return System_File_Error_returnError($0);
7290
+ /* Util.5161:1390:guardSuccess */
7291
+ function Util_n__5161_1390_guardSuccess($0) {
7292
+ switch($0.h) {
7293
+ case undefined: /* cons */ {
7294
+ switch($0.a1) {
7295
+ case 3: return {a1: $0.a2};
7296
+ case 4: return {a1: $0.a2};
7297
+ default: return {h: 0};
7298
+ }
7197
7299
  }
7198
- };
7199
- return $0.a1.a2(undefined)(undefined)($0.a2(undefined)($10 => System_File_ReadWrite_prim__removeFile($1, $10)))($14);
7300
+ default: return {h: 0};
7301
+ }
7200
7302
  }
7201
7303
 
7202
- /* System.File.ReadWrite.readLinesOnto : HasIO io => List String -> Nat -> Fuel -> File -> io (Either FileError (Bool,
7203
- List String)) */
7204
- function System_File_ReadWrite_readLinesOnto($0, $1, $2, $3, $4) {
7205
- switch($3.h) {
7304
+ /* Util.5161:1389:go */
7305
+ function Util_n__5161_1389_go($0, $1) {
7306
+ switch($0.a1) {
7307
+ case 0: {
7308
+ switch(Prelude_Types_isAlpha($1)) {
7309
+ case 1: return {a1: 1, a2: {a1: $1, a2: $0.a2}};
7310
+ case 0: return Util_n__5161_1391_startOver();
7311
+ }
7312
+ }
7313
+ case 1: {
7314
+ switch($1) {
7315
+ case '-': return {a1: 2, a2: {a1: '-', a2: $0.a2}};
7316
+ default: {
7317
+ switch(Prelude_Types_isAlpha($1)) {
7318
+ case 1: return {a1: 1, a2: {a1: $1, a2: $0.a2}};
7319
+ case 0: return Util_n__5161_1391_startOver();
7320
+ }
7321
+ }
7322
+ }
7323
+ }
7324
+ case 2: {
7325
+ switch(Prelude_Types_isDigit($1)) {
7326
+ case 1: return {a1: 3, a2: {a1: $1, a2: $0.a2}};
7327
+ case 0: return Util_n__5161_1391_startOver();
7328
+ }
7329
+ }
7330
+ case 3: {
7331
+ switch(Prelude_Types_isDigit($1)) {
7332
+ case 1: return {a1: 3, a2: {a1: $1, a2: $0.a2}};
7333
+ case 0: return {a1: 4, a2: $0.a2};
7334
+ }
7335
+ }
7336
+ case 4: return {a1: 4, a2: $0.a2};
7337
+ }
7338
+ }
7339
+
7340
+ /* Util.4945:1172:getMoreLines */
7341
+ function Util_n__4945_1172_getMoreLines($0, $1, $2) {
7342
+ switch($2.h) {
7343
+ case 0: /* nothing */ return $0.a1.a1.a2(undefined)(Prelude_Types_List_reverse($1));
7344
+ case undefined: /* just */ {
7345
+ const $2c = line => {
7346
+ switch($1.h) {
7347
+ case undefined: /* cons */ {
7348
+ switch($1.a1) {
7349
+ case '': {
7350
+ switch(line) {
7351
+ case '': return $0.a1.a1.a2(undefined)(Prelude_Types_List_reverse($1.a2));
7352
+ default: return Util_n__4945_1172_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
7353
+ }
7354
+ }
7355
+ default: return Util_n__4945_1172_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
7356
+ }
7357
+ }
7358
+ default: return Util_n__4945_1172_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
7359
+ }
7360
+ };
7361
+ return $0.a1.a2(undefined)(undefined)($0.a1.a1.a1(undefined)(undefined)($20 => Data_String_trim($20))($0.a2(undefined)($29 => Prelude_IO_prim__getStr($29))))($2c);
7362
+ }
7363
+ }
7364
+ }
7365
+
7366
+ /* Util.yesNoPrompt : HasIO io => String -> io Bool */
7367
+ function Util_yesNoPrompt($0, $1) {
7368
+ return $0.a1.a2(undefined)(undefined)($0.a2(undefined)($10 => Prelude_IO_prim__putStr(Prelude_Types_foldMap_Foldable_List(csegen_49(), $17 => $17, {a1: $1, a2: {a1: ' [Y/n] ', a2: {h: 0}}}), $10)))($1f => $0.a1.a1.a1(undefined)(undefined)($2a => Util_n__5058_1284_yesUnlessNo($0, $1, Data_String_trim($2a)))($0.a2(undefined)($37 => Prelude_IO_prim__getStr($37))));
7369
+ }
7370
+
7371
+ /* Util.whenNothing : Applicative f => Maybe a -> f () -> f () */
7372
+ function Util_whenNothing($0, $1, $2) {
7373
+ switch($1.h) {
7374
+ case 0: /* nothing */ return $2;
7375
+ case undefined: /* just */ return $0.a2(undefined)(undefined);
7376
+ }
7377
+ }
7378
+
7379
+ /* Util.renderString : Config => Doc AnsiStyle -> String */
7380
+ function Util_renderString($0, $1) {
7381
+ let $7;
7382
+ switch(Data_Config_rf__colors($0)) {
7383
+ case 1: {
7384
+ $7 = $1;
7385
+ break;
7386
+ }
7387
+ case 0: {
7388
+ $7 = Text_PrettyPrint_Prettyprinter_Doc_unAnnotate($1);
7389
+ break;
7390
+ }
7391
+ }
7392
+ const $3 = Text_PrettyPrint_Prettyprinter_Doc_layoutPretty(Text_PrettyPrint_Prettyprinter_Doc_defaultLayoutOptions(), $7);
7393
+ return Text_PrettyPrint_Prettyprinter_Render_Terminal_renderString($3);
7394
+ }
7395
+
7396
+ /* Util.renderIO : Config => HasIO io => Doc AnsiStyle -> io () */
7397
+ function Util_renderIO($0, $1, $2) {
7398
+ const $7 = $8 => {
7399
+ let $a;
7400
+ switch(Data_Config_rf__colors($0)) {
7401
+ case 1: {
7402
+ $a = $2;
7403
+ break;
7404
+ }
7405
+ case 0: {
7406
+ $a = Text_PrettyPrint_Prettyprinter_Doc_unAnnotate($2);
7407
+ break;
7408
+ }
7409
+ }
7410
+ return Text_PrettyPrint_Prettyprinter_Render_Terminal_putDoc($a, $8);
7411
+ };
7412
+ return $1.a2(undefined)($7);
7413
+ }
7414
+
7415
+ /* Util.relativeToRoot : Git => String -> Promise String */
7416
+ function Util_relativeToRoot($0, $1, $2, $3) {
7417
+ return Data_Promise_map_Functor_Promise($6 => ($6+Prelude_Types_foldMap_Foldable_List(csegen_49(), $d => $d, {a1: '/', a2: {a1: $1, a2: {h: 0}}})), $14 => $15 => FFI_Git_rootDir($0, $14, $15), $2, $3);
7418
+ }
7419
+
7420
+ /* Util.parseJiraPrefix : String -> Maybe String */
7421
+ function Util_parseJiraPrefix($0) {
7422
+ return Prelude_Types_map_Functor_Maybe($3 => Prelude_Types_fastPack(Prelude_Types_List_reverse($3)), Util_n__5161_1390_guardSuccess(Prelude_Types_foldl_Foldable_List($d => $e => Util_n__5161_1389_go($d, $e), Util_n__5161_1391_startOver(), Prelude_Types_fastUnpack($0))));
7423
+ }
7424
+
7425
+ /* Util.getManyLines : HasIO io => Fuel -> io (List String) */
7426
+ function Util_getManyLines($0, $1) {
7427
+ return Util_n__4945_1172_getMoreLines($0, {h: 0}, $1);
7428
+ }
7429
+
7430
+ /* FFI.Git.case block in unpushedCommits */
7431
+ function FFI_Git_case__unpushedCommits_2011($0, $1, $2) {
7432
+ switch($1) {
7433
+ case '': {
7434
+ switch($2.h) {
7435
+ case 0: /* nil */ return {h: 0};
7436
+ default: return {a1: $1};
7437
+ }
7438
+ }
7439
+ default: return {a1: $1};
7440
+ }
7441
+ }
7442
+
7443
+ /* FFI.Git.case block in stagedChanges */
7444
+ function FFI_Git_case__stagedChanges_1948($0, $1, $2) {
7445
+ switch($1) {
7446
+ case '': {
7447
+ switch($2.h) {
7448
+ case 0: /* nil */ return {h: 0};
7449
+ default: return {a1: $1};
7450
+ }
7451
+ }
7452
+ default: return {a1: $1};
7453
+ }
7454
+ }
7455
+
7456
+ /* FFI.Git.case block in uncommittedChanges */
7457
+ function FFI_Git_case__uncommittedChanges_1885($0, $1, $2) {
7458
+ switch($1) {
7459
+ case '': {
7460
+ switch($2.h) {
7461
+ case 0: /* nil */ return {h: 0};
7462
+ default: return {a1: $1};
7463
+ }
7464
+ }
7465
+ default: return {a1: $1};
7466
+ }
7467
+ }
7468
+
7469
+ /* FFI.Git.case block in remoteTrackingBranch */
7470
+ function FFI_Git_case__remoteTrackingBranch_1822($0, $1, $2) {
7471
+ switch($1) {
7472
+ case '': {
7473
+ switch($2.h) {
7474
+ case 0: /* nil */ return {h: 0};
7475
+ default: return {a1: $1};
7476
+ }
7477
+ }
7478
+ default: return {a1: $1};
7479
+ }
7480
+ }
7481
+
7482
+ /* FFI.Git.userEmail : Git => Promise String */
7483
+ function FFI_Git_userEmail($0, $1, $2) {
7484
+ return FFI_promiseIO($5 => $6 => $7 => FFI_Git_prim__userEmail($0, $5, $6, $7), $1, $2);
7485
+ }
7486
+
7487
+ /* FFI.Git.unpushedCommits : Git => Promise (Maybe String) */
7488
+ function FFI_Git_unpushedCommits($0, $1, $2) {
7489
+ return Data_Promise_x3ex3ex3d_Monad_Promise($5 => $6 => FFI_promiseIO($9 => $a => $b => FFI_Git_prim__unpushedCommits($0, $9, $a, $b), $5, $6), str => $14 => $15 => Data_Promise_pure_Applicative_Promise(FFI_Git_case__unpushedCommits_2011($0, str, Data_String_strM(str)), $14, $15), $1, $2);
7490
+ }
7491
+
7492
+ /* FFI.Git.uncommittedChanges : Git => Promise (Maybe String) */
7493
+ function FFI_Git_uncommittedChanges($0, $1, $2) {
7494
+ return Data_Promise_x3ex3ex3d_Monad_Promise($5 => $6 => FFI_promiseIO($9 => $a => $b => FFI_Git_prim__uncommittedChanges($0, $9, $a, $b), $5, $6), str => $14 => $15 => Data_Promise_pure_Applicative_Promise(FFI_Git_case__uncommittedChanges_1885($0, str, Data_String_strM(str)), $14, $15), $1, $2);
7495
+ }
7496
+
7497
+ /* FFI.Git.stagedChanges : Git => Promise (Maybe String) */
7498
+ function FFI_Git_stagedChanges($0, $1, $2) {
7499
+ return Data_Promise_x3ex3ex3d_Monad_Promise($5 => $6 => FFI_promiseIO($9 => $a => $b => FFI_Git_prim__stagedChanges($0, $9, $a, $b), $5, $6), str => $14 => $15 => Data_Promise_pure_Applicative_Promise(FFI_Git_case__stagedChanges_1948($0, str, Data_String_strM(str)), $14, $15), $1, $2);
7500
+ }
7501
+
7502
+ /* FFI.Git.rootDir : Git => Promise String */
7503
+ function FFI_Git_rootDir($0, $1, $2) {
7504
+ return FFI_promiseIO($5 => $6 => $7 => FFI_Git_prim__rootDir($0, $5, $6, $7), $1, $2);
7505
+ }
7506
+
7507
+ /* FFI.Git.remoteURI : Git => String -> Promise String */
7508
+ function FFI_Git_remoteURI($0, $1, $2, $3) {
7509
+ return FFI_promiseIO($6 => $7 => $8 => FFI_Git_prim__remoteURI($0, $1, $6, $7, $8), $2, $3);
7510
+ }
7511
+
7512
+ /* FFI.Git.remoteTrackingBranch : Git => Promise (Maybe String) */
7513
+ function FFI_Git_remoteTrackingBranch($0, $1, $2) {
7514
+ return Data_Promise_x3ex3ex3d_Monad_Promise($5 => $6 => FFI_promiseIO($9 => $a => $b => FFI_Git_prim__remoteTrackingBranch($0, $9, $a, $b), $5, $6), str => $14 => $15 => Data_Promise_pure_Applicative_Promise(FFI_Git_case__remoteTrackingBranch_1822($0, str, Data_String_strM(str)), $14, $15), $1, $2);
7515
+ }
7516
+
7517
+ /* FFI.Git.pushNewBranch : Git => String -> String -> Promise () */
7518
+ function FFI_Git_pushNewBranch($0, $1, $2, $3, $4) {
7519
+ return Data_Promise_map_Functor_Promise($7 => (undefined), $9 => $a => FFI_promiseIO($d => $e => $f => FFI_Git_prim__pushNewBranch($0, $1, $2, $d, $e, $f), $9, $a), $3, $4);
7520
+ }
7521
+
7522
+ /* FFI.Git.push : Git => Promise () */
7523
+ function FFI_Git_push($0, $1, $2) {
7524
+ return Data_Promise_map_Functor_Promise($5 => (undefined), $7 => $8 => FFI_promiseIO($b => $c => $d => FFI_Git_prim__push($0, $b, $c, $d), $7, $8), $1, $2);
7525
+ }
7526
+
7527
+ /* FFI.Git.listRemotes : Git => Promise (List String) */
7528
+ function FFI_Git_listRemotes($0, $1, $2) {
7529
+ return Data_Promise_map_Functor_Promise($5 => Data_String_lines($5), $9 => $a => FFI_promiseIO($d => $e => $f => FFI_Git_prim__listRemotes($0, $d, $e, $f), $9, $a), $1, $2);
7530
+ }
7531
+
7532
+ /* FFI.Git.git : HasIO io => io Git */
7533
+ function FFI_Git_git($0) {
7534
+ return $0.a1.a1.a1(undefined)(undefined)($b => $b)($0.a2(undefined)($12 => FFI_Git_prim__git($12)));
7535
+ }
7536
+
7537
+ /* FFI.Git.currentBranch : Git => Promise String */
7538
+ function FFI_Git_currentBranch($0, $1, $2) {
7539
+ return FFI_promiseIO($5 => $6 => $7 => FFI_Git_prim__currentBranch($0, $5, $6, $7), $1, $2);
7540
+ }
7541
+
7542
+ /* FFI.Git.checkoutBranch : Git => String -> Promise () */
7543
+ function FFI_Git_checkoutBranch($0, $1, $2, $3) {
7544
+ return Data_Promise_map_Functor_Promise($6 => (undefined), $8 => $9 => FFI_promiseIO($c => $d => $e => FFI_Git_prim__checkoutBranch($0, $1, $c, $d, $e), $8, $9), $2, $3);
7545
+ }
7546
+
7547
+ /* FFI.promiseIO : ((String -> PrimIO ()) -> (String -> PrimIO ()) -> PrimIO ()) -> Promise String */
7548
+ function FFI_promiseIO($0, $1, $2) {
7549
+ return Data_Promise_promisify(ok => notOk => $0(res => ok(res))(err => notOk(err)), $1, $2);
7550
+ }
7551
+
7552
+ /* Data.Promise.pure */
7553
+ function Data_Promise_pure_Applicative_Promise($0, $1, $2) {
7554
+ return $1($0);
7555
+ }
7556
+
7557
+ /* Data.Promise.map */
7558
+ function Data_Promise_map_Functor_Promise($0, $1, $2, $3) {
7559
+ return $1(x => $2($0(x)))($3);
7560
+ }
7561
+
7562
+ /* Data.Promise.liftIO */
7563
+ function Data_Promise_liftIO_HasIO_Promise($0, $1, $2, $3) {
7564
+ const $4 = $0($3);
7565
+ return $1($4)($3);
7566
+ }
7567
+
7568
+ /* Data.Promise.join */
7569
+ function Data_Promise_join_Monad_Promise($0) {
7570
+ return $1 => $2 => Data_Promise_x3ex3ex3d_Monad_Promise($0, $6 => $6, $1, $2);
7571
+ }
7572
+
7573
+ /* Data.Promise.>>= */
7574
+ function Data_Promise_x3ex3ex3d_Monad_Promise($0, $1, $2, $3) {
7575
+ return Data_Promise_bind($0, $1, $2, $3);
7576
+ }
7577
+
7578
+ /* Data.Promise.<|> */
7579
+ function Data_Promise_x3cx7cx3e_Alternative_Promise($0, $1, $2, $3) {
7580
+ const $7 = $8 => {
7581
+ const $b = $1();
7582
+ const $a = $b;
7583
+ const $9 = $a($2);
7584
+ return $9($3);
7585
+ };
7586
+ return $0($2)($7);
7587
+ }
7588
+
7589
+ /* Data.Promise.<*> */
7590
+ function Data_Promise_x3cx2ax3e_Applicative_Promise($0, $1, $2, $3) {
7591
+ return Data_Promise_bind($0, f => $7 => $8 => Data_Promise_map_Functor_Promise(f, $1, $7, $8), $2, $3);
7592
+ }
7593
+
7594
+ /* Data.Promise.resolve' : (a -> IO ()) -> (String -> IO ()) -> Promise a -> IO () */
7595
+ function Data_Promise_resolvex27($0, $1, $2) {
7596
+ return $2($0)($1);
7597
+ }
7598
+
7599
+ /* Data.Promise.reject : String -> Promise a */
7600
+ function Data_Promise_reject($0, $1, $2) {
7601
+ return $2($0);
7602
+ }
7603
+
7604
+ /* Data.Promise.promisify : PromiseShape a -> Promise a */
7605
+ function Data_Promise_promisify($0, $1, $2) {
7606
+ return $0($1)($2);
7607
+ }
7608
+
7609
+ /* Data.Promise.either : Show e => Either e a -> Promise a */
7610
+ function Data_Promise_either($0, $1, $2) {
7611
+ return $3 => {
7612
+ switch($1.h) {
7613
+ case 0: /* Left */ return Data_Promise_reject($0.a1($1.a1), $2, $3);
7614
+ case 1: /* Right */ return Data_Promise_pure_Applicative_Promise($1.a1, $2, $3);
7615
+ }
7616
+ };
7617
+ }
7618
+
7619
+ /* Data.Promise.bind : Promise a -> (a -> Promise b) -> Promise b */
7620
+ function Data_Promise_bind($0, $1, $2, $3) {
7621
+ const $6 = x => {
7622
+ const $7 = $1(x);
7623
+ return $7($2)($3);
7624
+ };
7625
+ const $4 = $0($6);
7626
+ return $4($3);
7627
+ }
7628
+
7629
+ /* Data.Fuel.limit : Nat -> Fuel */
7630
+ function Data_Fuel_limit($0) {
7631
+ switch($0) {
7632
+ case 0n: return {h: 0};
7633
+ default: {
7634
+ const $2 = ($0-1n);
7635
+ return {a1: () => Data_Fuel_limit($2)};
7636
+ }
7637
+ }
7638
+ }
7639
+
7640
+ /* Data.Fuel.forever : Fuel */
7641
+ const Data_Fuel_forever = __lazy(function () {
7642
+ return {a1: () => Data_Fuel_forever()};
7643
+ });
7644
+
7645
+ /* System.File.copyFile : HasIO io => String -> String -> io (Either (FileError, Int) ()) */
7646
+ function System_File_copyFile($0, $1, $2) {
7647
+ const $f = $10 => {
7648
+ switch($10.h) {
7649
+ case 1: /* Right */ return $0.a1.a2(undefined)(undefined)($0.a1.a1.a2(undefined)(Data_Buffer_prim__bufferSize($10.a1)))($25 => System_File_Buffer_writeBufferToFile($0, $2, $10.a1, $25));
7650
+ case 0: /* Left */ return $0.a1.a1.a2(undefined)({h: 0 /* Left */, a1: {a1: $10.a1, a2: Number(_truncBigInt32(0n))}});
7651
+ }
7652
+ };
7653
+ return $0.a1.a2(undefined)(undefined)(System_File_Buffer_createBufferFromFile($0, $1))($f);
7654
+ }
7655
+
7656
+ /* System.File.Virtual.stdout : File */
7657
+ const System_File_Virtual_stdout = __lazy(function () {
7658
+ return System_File_Virtual_prim__stdout();
7659
+ });
7660
+
7661
+ /* System.File.Virtual.stderr : File */
7662
+ const System_File_Virtual_stderr = __lazy(function () {
7663
+ return System_File_Virtual_prim__stderr();
7664
+ });
7665
+
7666
+ /* System.File.Support.ok : HasIO io => a -> io (Either err a) */
7667
+ function System_File_Support_ok($0, $1) {
7668
+ return $0.a1.a1.a2(undefined)({h: 1 /* Right */, a1: $1});
7669
+ }
7670
+
7671
+ /* System.File.ReadWrite.writeFile : HasIO io => String -> String -> io (Either FileError ()) */
7672
+ function System_File_ReadWrite_writeFile($0, $1, $2) {
7673
+ return System_File_Handle_withFile($0, $1, 1, $8 => $0.a1.a1.a2(undefined)($8), $11 => Prelude_Basics_flip($14 => $15 => System_File_ReadWrite_fPutStr($0, $14, $15), $2, $11));
7674
+ }
7675
+
7676
+ /* System.File.ReadWrite.removeFile : HasIO io => String -> io (Either FileError ()) */
7677
+ function System_File_ReadWrite_removeFile($0, $1) {
7678
+ const $14 = res => {
7679
+ switch(Prelude_EqOrd_x3dx3d_Eq_Int(res, Number(_truncBigInt32(0n)))) {
7680
+ case 1: return System_File_Support_ok($0, undefined);
7681
+ case 0: return System_File_Error_returnError($0);
7682
+ }
7683
+ };
7684
+ return $0.a1.a2(undefined)(undefined)($0.a2(undefined)($10 => System_File_ReadWrite_prim__removeFile($1, $10)))($14);
7685
+ }
7686
+
7687
+ /* System.File.ReadWrite.readLinesOnto : HasIO io => List String -> Nat -> Fuel -> File -> io (Either FileError (Bool,
7688
+ List String)) */
7689
+ function System_File_ReadWrite_readLinesOnto($0, $1, $2, $3, $4) {
7690
+ switch($3.h) {
7206
7691
  case 0: /* nothing */ return $0.a1.a1.a2(undefined)({h: 1 /* Right */, a1: {a1: 0, a2: Prelude_Types_List_reverse($1)}});
7207
7692
  case undefined: /* just */ {
7208
7693
  const $1e = $1f => {
@@ -7228,14 +7713,14 @@ function System_File_ReadWrite_readLinesOnto($0, $1, $2, $3, $4) {
7228
7713
  }
7229
7714
  };
7230
7715
  const $26 = {a1: $27, a2: a => $2f => ({h: 1 /* Right */, a1: $2f}), a3: $31};
7231
- const $25 = {a1: $26, a2: csegen_196(), a3: csegen_197()};
7716
+ const $25 = {a1: $26, a2: csegen_198(), a3: csegen_199()};
7232
7717
  const $40 = b => a => func => $41 => {
7233
7718
  switch($41.h) {
7234
7719
  case 0: /* Left */ return {h: 0 /* Left */, a1: $41.a1};
7235
7720
  case 1: /* Right */ return {h: 1 /* Right */, a1: func($41.a1)};
7236
7721
  }
7237
7722
  };
7238
- const $3f = {a1: $40, a2: csegen_252(), a3: csegen_256()};
7723
+ const $3f = {a1: $40, a2: csegen_256(), a3: csegen_260()};
7239
7724
  return Prelude_Interfaces_Monad_x3ex3ex3d_Monad_Composex28x28x2ex20x24mx29x20x24tx29($0.a1, $25, $3f, System_File_ReadWrite_fGetLine($0, $4), str => System_File_ReadWrite_readLinesOnto($0, {a1: str, a2: $1}, 0n, $3.a1(), $4));
7240
7725
  }
7241
7726
  default: {
@@ -7534,23 +8019,7 @@ const System_Info_os = __lazy(function () {
7534
8019
 
7535
8020
  /* System.Info.isWindows : Bool */
7536
8021
  const System_Info_isWindows = __lazy(function () {
7537
- return Prelude_Types_elem(csegen_142(), csegen_39(), System_Info_os(), {a1: 'windows', a2: {a1: 'mingw32', a2: {a1: 'cygwin32', a2: {h: 0}}}});
7538
- });
7539
-
7540
- /* Data.Fuel.limit : Nat -> Fuel */
7541
- function Data_Fuel_limit($0) {
7542
- switch($0) {
7543
- case 0n: return {h: 0};
7544
- default: {
7545
- const $2 = ($0-1n);
7546
- return {a1: () => Data_Fuel_limit($2)};
7547
- }
7548
- }
7549
- }
7550
-
7551
- /* Data.Fuel.forever : Fuel */
7552
- const Data_Fuel_forever = __lazy(function () {
7553
- return {a1: () => Data_Fuel_forever()};
8022
+ return Prelude_Types_elem(csegen_144(), csegen_39(), System_Info_os(), {a1: 'windows', a2: {a1: 'mingw32', a2: {a1: 'cygwin32', a2: {h: 0}}}});
7554
8023
  });
7555
8024
 
7556
8025
  /* System.File.Meta.isTTY : HasIO io => File -> io Bool */
@@ -7689,7 +8158,7 @@ function System_getEnv($0, $1) {
7689
8158
  function System_getArgs($0) {
7690
8159
  const $12 = n => {
7691
8160
  switch(Prelude_EqOrd_x3e_Ord_Int(n, Number(_truncBigInt32(0n)))) {
7692
- case 1: return Prelude_Basics_flip($1a => $1b => Prelude_Types_traverse_Traversable_List($0.a1.a1, $1a, $1b), Prelude_Types_rangeFromTo_Range_x24a({a1: {a1: csegen_270(), a2: $29 => $2a => Prelude_Num_div_Integral_Int($29, $2a), a3: $2f => $30 => Prelude_Num_mod_Integral_Int($2f, $30)}, a2: {a1: {a1: {a1: $38 => $39 => Prelude_EqOrd_x3dx3d_Eq_Int($38, $39), a2: $3e => $3f => Prelude_EqOrd_x2fx3d_Eq_Int($3e, $3f)}, a2: $44 => $45 => Prelude_EqOrd_compare_Ord_Int($44, $45), a3: $4a => $4b => Prelude_EqOrd_x3c_Ord_Int($4a, $4b), a4: $50 => $51 => Prelude_EqOrd_x3e_Ord_Int($50, $51), a5: $56 => $57 => Prelude_EqOrd_x3cx3d_Ord_Int($56, $57), a6: $5c => $5d => Prelude_EqOrd_x3ex3d_Ord_Int($5c, $5d), a7: $62 => $63 => Prelude_EqOrd_max_Ord_Int($62, $63), a8: $68 => $69 => Prelude_EqOrd_min_Ord_Int($68, $69)}, a2: {a1: csegen_270(), a2: $71 => _sub32s(0, $71), a3: $75 => $76 => _sub32s($75, $76)}}}, 0, _sub32s(n, 1)), $7e => $0.a2(undefined)($84 => System_prim__getArg($7e, $84)));
8161
+ case 1: return Prelude_Basics_flip($1a => $1b => Prelude_Types_traverse_Traversable_List($0.a1.a1, $1a, $1b), Prelude_Types_rangeFromTo_Range_x24a({a1: {a1: csegen_274(), a2: $29 => $2a => Prelude_Num_div_Integral_Int($29, $2a), a3: $2f => $30 => Prelude_Num_mod_Integral_Int($2f, $30)}, a2: {a1: {a1: {a1: $38 => $39 => Prelude_EqOrd_x3dx3d_Eq_Int($38, $39), a2: $3e => $3f => Prelude_EqOrd_x2fx3d_Eq_Int($3e, $3f)}, a2: $44 => $45 => Prelude_EqOrd_compare_Ord_Int($44, $45), a3: $4a => $4b => Prelude_EqOrd_x3c_Ord_Int($4a, $4b), a4: $50 => $51 => Prelude_EqOrd_x3e_Ord_Int($50, $51), a5: $56 => $57 => Prelude_EqOrd_x3cx3d_Ord_Int($56, $57), a6: $5c => $5d => Prelude_EqOrd_x3ex3d_Ord_Int($5c, $5d), a7: $62 => $63 => Prelude_EqOrd_max_Ord_Int($62, $63), a8: $68 => $69 => Prelude_EqOrd_min_Ord_Int($68, $69)}, a2: {a1: csegen_274(), a2: $71 => _sub32s(0, $71), a3: $75 => $76 => _sub32s($75, $76)}}}, 0, _sub32s(n, 1)), $7e => $0.a2(undefined)($84 => System_prim__getArg($7e, $84)));
7693
8162
  case 0: return $0.a1.a1.a2(undefined)({h: 0});
7694
8163
  }
7695
8164
  };
@@ -7714,42 +8183,121 @@ function System_exitFailure($0) {
7714
8183
  return System_exitWith($0, {a1: 1, a2: undefined});
7715
8184
  }
7716
8185
 
7717
- /* Help.4720:1024:subcommand */
7718
- function Help_n__4720_1024_subcommand($0, $1) {
7719
- return Help_n__4720_1021_maybeDecorate($0, $5 => Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(5), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($5)), $1);
8186
+ /* Help.subcommandHelp' : String -> Doc AnsiStyle */
8187
+ function Help_subcommandHelpx27($0) {
8188
+ switch($0) {
8189
+ case 'label': return Help_subcommand($0, {a1: Help_argument(1, '<label>'), a2: csegen_294()}, {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Add one or more labels to a PR, creating a new PR if one does not exist.'), Text_PrettyPrint_Prettyprinter_Doc_line()), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Labels that do not exist yet will be created automatically.')), a2: {h: 0}});
8190
+ case 'assign': return Help_subcommand($0, {a1: Help_argument(1, '<team-slug> | +<user-login>'), a2: csegen_299()}, {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_49(), $2a => $2a, {a1: 'Assign the given team(s) and one lucky member from one of those teams\nto review the PR for the current branch.', a2: {h: 0}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_49(), $36 => $36, {a1: 'Also assign any users with logins specified. You specify these\nadditional users by prefixing their logins with \'+\'.', a2: {h: 0}})), a2: csegen_305()}});
8191
+ case 'config': return Help_subcommand($0, {a1: Help_argument(1, '<property>'), a2: {a1: Help_argument(0, '<value>'), a2: {h: 0}}}, {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_49(), $59 => $59, {a1: 'Get or set the value of a configuration property. Not all properties\ncan be set and read via this subcommand.', a2: {h: 0}})), Text_PrettyPrint_Prettyprinter_Doc_line()), Help_argumentx27('properties')), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_unsafeTextWithoutNewLines(':'), a2: {h: 0}})), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_concatWith(a => b => Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(a, Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_unsafeTextWithoutNewLines(','), a2: {h: 0}})), b), Prelude_Types_List_mapAppend({h: 0}, $7e => Help_option($7e), Data_Config_settablePropNames())), csegen_323())), a2: {h: 0}});
8192
+ case 'pr': return Help_subcommand($0, {a1: Help_argument(0, '--draft'), a2: csegen_299()}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Identify an existing PR or create a new one for the current branch.'), a2: csegen_305()});
8193
+ case 'contribute': return Help_subcommand($0, {a1: Help_argument(0, '-c/--checkout'), a2: {a1: Help_argument(0, '-<num>'), a2: {a1: Help_argument(0, '-i/--ignore {<uri>/<pr-number>}'), a2: {h: 0}}}}, {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_49(), $af => $af, {a1: 'Contribute to an open PR. Prints a URL. Prioritizes PRs you are\nrequested to review but will also return other PRs.', a2: {h: 0}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_49(), $bb => $bb, {a1: 'Use dash followed by a number (e.g. \'-3\') to skip that number of\npotential PRs and return the next.', a2: {h: 0}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_49(), $c7 => $c7, {a1: 'Specify a PR to ignore (only affects the local Harmony config on\nthis machine) if you would like to more permanently skip a potential\nPR. Do this with the \'--ignore\' option followed by a GitHub URI or\nPull Request number.', a2: {h: 0}})), a2: {h: 0}}}});
8194
+ case 'graph': return Help_subcommand($0, {a1: Help_argument(0, '-c/--completed'), a2: csegen_341()}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Graph the relative review workload of the members of the given GitHub Team.'), a2: {h: 0}});
8195
+ case 'help': return Help_subcommand($0, {a1: Help_argument(0, '<subcommand>'), a2: {h: 0}}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Print help'), a2: {h: 0}});
8196
+ case 'version': return Help_subcommand($0, {h: 0}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Print version'), a2: {h: 0}});
8197
+ case 'sync': return Help_subcommand($0, {h: 0}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Synchronize local config with information from GitHub.'), a2: {h: 0}});
8198
+ case 'branch': return Help_subcommand($0, {h: 0}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Print the GitHub URI for the currently checked out branch.'), a2: {h: 0}});
8199
+ case 'whoami': return Help_subcommand($0, {h: 0}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Print information about the configured and authenticated user.'), a2: {h: 0}});
8200
+ case 'reflect': return Help_subcommand($0, {h: 0}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Reflect on the current state of ones own PRs and review requests.'), a2: {h: 0}});
8201
+ case 'list': return Help_subcommand($0, csegen_341(), {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('List the members of the given GitHub Team.'), a2: {h: 0}});
8202
+ case 'health': return Help_subcommand($0, {h: 0}, {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Graph all open PRs grouped by the month they were created.'), a2: {h: 0}});
8203
+ default: return Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_49(), $126 => $126, {a1: 'Unreconized command: ', a2: {a1: $0, a2: {h: 0}}}));
8204
+ }
8205
+ }
8206
+
8207
+ /* Help.subcommandHelp : Bool -> String -> String */
8208
+ function Help_subcommandHelp($0, $1) {
8209
+ const $2 = $3 => {
8210
+ switch($0) {
8211
+ case 1: return $3;
8212
+ case 0: return Text_PrettyPrint_Prettyprinter_Doc_unAnnotate($3);
8213
+ }
8214
+ };
8215
+ return Text_PrettyPrint_Prettyprinter_Render_Terminal_renderString(Text_PrettyPrint_Prettyprinter_Doc_layoutPretty(Text_PrettyPrint_Prettyprinter_Doc_defaultLayoutOptions(), $2(Help_subcommandHelpx27($1))));
8216
+ }
8217
+
8218
+ /* Help.subcommand' : String -> Doc AnsiStyle */
8219
+ function Help_subcommandx27($0) {
8220
+ return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(5), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($0));
8221
+ }
8222
+
8223
+ /* Help.subcommand : String -> List (Doc AnsiStyle) -> List (Doc AnsiStyle) -> Doc AnsiStyle */
8224
+ function Help_subcommand($0, $1, $2) {
8225
+ const $3 = Help_subcommandx27($0);
8226
+ const $6 = Text_PrettyPrint_Prettyprinter_Doc_hsep($1);
8227
+ const $9 = Text_PrettyPrint_Prettyprinter_Doc_concatWith(p => q => Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(p, Text_PrettyPrint_Prettyprinter_Doc_line()), Text_PrettyPrint_Prettyprinter_Doc_line()), q), $2);
8228
+ return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e($3, Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29($6, Text_PrettyPrint_Prettyprinter_Doc_line()), Text_PrettyPrint_Prettyprinter_Doc_indent(4, $9)));
8229
+ }
8230
+
8231
+ /* Help.shell : String -> Doc AnsiStyle */
8232
+ function Help_shell($0) {
8233
+ return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($0));
8234
+ }
8235
+
8236
+ /* Help.option : String -> Doc AnsiStyle */
8237
+ function Help_option($0) {
8238
+ return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_bold(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($0));
7720
8239
  }
7721
8240
 
7722
- /* Help.4720:1023:shell */
7723
- function Help_n__4720_1023_shell($0, $1) {
7724
- return Help_n__4720_1021_maybeDecorate($0, $5 => Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($5)), $1);
8241
+ /* Help.helpDocs : Doc AnsiStyle */
8242
+ const Help_helpDocs = __lazy(function () {
8243
+ return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('harmony'), Help_subcommandx27('<subcommand>')), a2: {a1: Help_heading('Subcommands', Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Help_subcommandHelpx27('assign'), a2: {a1: Help_subcommandHelpx27('branch'), a2: {a1: Help_subcommandHelpx27('config'), a2: {a1: Help_subcommandHelpx27('contribute'), a2: {a1: Help_subcommandHelpx27('graph'), a2: {a1: Help_subcommandHelpx27('health'), a2: {a1: Help_subcommandHelpx27('help'), a2: {a1: Help_subcommandHelpx27('label'), a2: {a1: Help_subcommandHelpx27('list'), a2: {a1: Help_subcommandHelpx27('pr'), a2: {a1: Help_subcommandHelpx27('reflect'), a2: {a1: Help_subcommandHelpx27('sync'), a2: {a1: Help_subcommandHelpx27('version'), a2: {a1: Help_subcommandHelpx27('whoami'), a2: {h: 0}}}}}}}}}}}}}}})), a2: {a1: Help_heading('Prompt Completion', Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_49(), $57 => $57, {a1: 'You can set up bash completion by adding the following to your bashrc\nfile or bash profile:', a2: {h: 0}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_vsep({h: 0}), a2: {a1: Help_shell('eval \"$(harmony --bash-completion-script)\"'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_vsep({h: 0}), a2: {a1: Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_49(), $6f => $6f, {a1: 'You can set up zsh completion by adding the following to your zshrc\nfile or zsh profile:', a2: {h: 0}})), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_vsep({h: 0}), a2: {a1: Help_shell('eval \"$(harmony --zsh-completion-script)\"'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_vsep({h: 0}), a2: {h: 0}}}}}}}}})), a2: {h: 0}}}});
8244
+ });
8245
+
8246
+ /* Help.help : Bool -> String */
8247
+ function Help_help($0) {
8248
+ const $1 = $2 => {
8249
+ switch($0) {
8250
+ case 1: return $2;
8251
+ case 0: return Text_PrettyPrint_Prettyprinter_Doc_unAnnotate($2);
8252
+ }
8253
+ };
8254
+ return Text_PrettyPrint_Prettyprinter_Render_Terminal_renderString(Text_PrettyPrint_Prettyprinter_Doc_layoutPretty(Text_PrettyPrint_Prettyprinter_Doc_defaultLayoutOptions(), $1(Help_helpDocs())));
8255
+ }
8256
+
8257
+ /* Help.heading : String -> Doc AnsiStyle -> Doc AnsiStyle */
8258
+ function Help_heading($0, $1) {
8259
+ const $2 = Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_underline(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($0));
8260
+ return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_line(), $2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(':')), Text_PrettyPrint_Prettyprinter_Doc_line()), Text_PrettyPrint_Prettyprinter_Doc_indent(2, $1));
7725
8261
  }
7726
8262
 
7727
- /* Help.4720:1022:option */
7728
- function Help_n__4720_1022_option($0, $1) {
7729
- return Help_n__4720_1021_maybeDecorate($0, $5 => Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_bold(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($5)), $1);
8263
+ /* Help.argument' : String -> Doc AnsiStyle */
8264
+ function Help_argumentx27($0) {
8265
+ return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($0));
7730
8266
  }
7731
8267
 
7732
- /* Help.4720:1021:maybeDecorate */
7733
- function Help_n__4720_1021_maybeDecorate($0, $1, $2) {
8268
+ /* Help.argument : Bool -> String -> Doc AnsiStyle */
8269
+ function Help_argument($0, $1) {
8270
+ const $2 = Help_argumentx27($1);
7734
8271
  switch($0) {
7735
- case 1: return Text_PrettyPrint_Prettyprinter_Render_Terminal_renderString(Text_PrettyPrint_Prettyprinter_Doc_layoutPretty(Text_PrettyPrint_Prettyprinter_Doc_defaultLayoutOptions(), $1($2)));
7736
- case 0: return $2;
8272
+ case 1: return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('{'), $2), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_unsafeTextWithoutNewLines('}'), a2: {h: 0}}));
8273
+ case 0: return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('['), $2), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_unsafeTextWithoutNewLines(']'), a2: {h: 0}}));
8274
+ }
8275
+ }
8276
+
8277
+ /* Text.PrettyPrint.Prettyprinter.Util.case block in words,helper */
8278
+ function Text_PrettyPrint_Prettyprinter_Util_case__wordsx2chelper_5200($0, $1, $2) {
8279
+ switch($2.h) {
8280
+ case 0: /* nil */ return {h: 0};
8281
+ default: {
8282
+ const $4 = Data_List_break$($7 => Prelude_Types_isSpace($7), $2);
8283
+ return {a1: $4.a1, a2: Text_PrettyPrint_Prettyprinter_Util_n__3825_5188_helper($0, $4.a2)};
8284
+ }
7737
8285
  }
7738
8286
  }
7739
8287
 
7740
- /* Help.4720:1020:heading */
7741
- function Help_n__4720_1020_heading($0, $1) {
7742
- return Help_n__4720_1021_maybeDecorate($0, $5 => Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_underline(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($5)), $1);
8288
+ /* Text.PrettyPrint.Prettyprinter.Util.3825:5188:helper */
8289
+ function Text_PrettyPrint_Prettyprinter_Util_n__3825_5188_helper($0, $1) {
8290
+ return Text_PrettyPrint_Prettyprinter_Util_case__wordsx2chelper_5200($0, $1, Data_List_dropWhile($8 => Prelude_Types_isSpace($8), $1));
7743
8291
  }
7744
8292
 
7745
- /* Help.4720:1019:argument */
7746
- function Help_n__4720_1019_argument($0, $1) {
7747
- return Help_n__4720_1021_maybeDecorate($0, csegen_294(), $1);
8293
+ /* Text.PrettyPrint.Prettyprinter.Util.words : String -> List (Doc ann) */
8294
+ function Text_PrettyPrint_Prettyprinter_Util_words($0) {
8295
+ return Prelude_Types_List_mapAppend({h: 0}, $4 => Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4), Prelude_Types_List_mapAppend({h: 0}, $b => Prelude_Types_fastPack($b), Text_PrettyPrint_Prettyprinter_Util_n__3825_5188_helper($0, Prelude_Types_fastUnpack($0))));
7748
8296
  }
7749
8297
 
7750
- /* Help.help : Bool -> String */
7751
- function Help_help($0) {
7752
- return Prelude_Types_foldMap_Foldable_List(csegen_49(), $5 => $5, {a1: 'harmony ', a2: {a1: Help_n__4720_1024_subcommand($0, '<subcommand>'), a2: {a1: '\n\n', a2: {a1: Help_n__4720_1020_heading($0, 'Subcommands'), a2: {a1: ':\n ', a2: {a1: Help_n__4720_1024_subcommand($0, 'help'), a2: {a1: '\n - Print help\n ', a2: {a1: Help_n__4720_1024_subcommand($0, 'version'), a2: {a1: '\n - Print version\n ', a2: {a1: Help_n__4720_1024_subcommand($0, 'config'), a2: {a1: ' {', a2: {a1: Help_n__4720_1019_argument($0, '<property>'), a2: {a1: '} [', a2: {a1: Help_n__4720_1019_argument($0, '<value>'), a2: {a1: ']\n - Get or set the value of a configuration property. Not all properties\n can be set and read via this subcommand.\n ', a2: {a1: Help_n__4720_1019_argument($0, 'properties'), a2: {a1: ': ', a2: {a1: Data_String_Extra_join(', ', csegen_142(), Prelude_Types_List_mapAppend({h: 0}, $4a => Help_n__4720_1022_option($0, $4a), Data_Config_settablePropNames())), a2: {a1: '.\n ', a2: {a1: Help_n__4720_1024_subcommand($0, 'sync'), a2: {a1: '\n - Synchronize local config with information from GitHub.\n ', a2: {a1: Help_n__4720_1024_subcommand($0, 'branch'), a2: {a1: '\n - Print the GitHub URI for the currently checked out branch.\n ', a2: {a1: Help_n__4720_1024_subcommand($0, 'pr'), a2: {a1: ' [', a2: {a1: Help_n__4720_1019_argument($0, '--draft'), a2: {a1: '] [', a2: {a1: Help_n__4720_1019_argument($0, '#<label>'), a2: {a1: '] [...]\n - Identify an existing PR or create a new one for the current branch.\n \n Optionally apply any number of labels by prefixing them with \'#\'.\n\n ', a2: {a1: Help_n__4720_1024_subcommand($0, 'contribute'), a2: {a1: ' [', a2: {a1: Help_n__4720_1019_argument($0, '-c/--checkout'), a2: {a1: '] [', a2: {a1: Help_n__4720_1019_argument($0, '-<num>'), a2: {a1: '] [', a2: {a1: Help_n__4720_1019_argument($0, '-i/--ignore'), a2: {a1: ' {', a2: {a1: Help_n__4720_1019_argument($0, '<uri>/<pr-number>'), a2: {a1: '}]\n - Contribute to an open PR. Prints a URL. Prioritizes PRs you are\n requested to review but will also return other PRs.\n\n Use dash followed by a number (e.g. \'-3\') to skip that number of\n potential PRs and return the next.\n\n Specify a PR to ignore (only affects the local Harmony config on\n this machine) if you would like to more permanently skip a potential\n PR. Do this with the \'--ignore\' option followed by a GitHub URI or\n Pull Request number.\n ', a2: {a1: Help_n__4720_1024_subcommand($0, 'whoami'), a2: {a1: '\n - Print information about the configured and authenticated user.\n ', a2: {a1: Help_n__4720_1024_subcommand($0, 'reflect'), a2: {a1: '\n - Reflect on the current state of ones own PRs and review requests.\n ', a2: {a1: Help_n__4720_1024_subcommand($0, 'list'), a2: {a1: ' {', a2: {a1: Help_n__4720_1019_argument($0, '<team-slug>'), a2: {a1: '}\n - List the members of the given GitHub Team.\n ', a2: {a1: Help_n__4720_1024_subcommand($0, 'graph'), a2: {a1: ' [', a2: {a1: Help_n__4720_1019_argument($0, '-c/--completed'), a2: {a1: '] {', a2: {a1: Help_n__4720_1019_argument($0, '<team-slug>'), a2: {a1: '}\n - Graph the relative review workload of the members of the given GitHub Team.\n ', a2: {a1: Help_n__4720_1024_subcommand($0, 'health'), a2: {a1: '\n - Graph all open PRs grouped by the month they were created.\n ', a2: {a1: Help_n__4720_1024_subcommand($0, 'label'), a2: {a1: ' {', a2: {a1: Help_n__4720_1019_argument($0, '<label>'), a2: {a1: '} [...]\n - Add one or more labels to a PR, creating a new PR if one does not exist.\n Labels that do not exist yet will be created automatically.\n ', a2: {a1: Help_n__4720_1024_subcommand($0, 'assign'), a2: {a1: ' {', a2: {a1: Help_n__4720_1019_argument($0, '<team-slug>'), a2: {a1: ' | ', a2: {a1: Help_n__4720_1019_argument($0, '+<user-login>'), a2: {a1: '} [', a2: {a1: Help_n__4720_1019_argument($0, '#<label>'), a2: {a1: '] [...]\n - Assign the given team(s) and one lucky member from one of those teams\n to review the PR for the current branch.\n \n Also assign any users with logins specified. You specify these\n additional users by prefixing their logins with \'+\'.\n\n Optionally apply any number of labels by prefixing them with \'#\'.\n \n', a2: {a1: Help_n__4720_1020_heading($0, 'Bash Completion'), a2: {a1: ':\n You can set up bash completion by adding the following to your resource\n or bash profile:\n \n ', a2: {a1: Help_n__4720_1023_shell($0, 'eval \"$(harmony --bash-completion-script)\"'), a2: {a1: '\n \n Zsh users will also need to have the following in their resource or\n zsh profile before the above eval:\n \n ', a2: {a1: Help_n__4720_1023_shell($0, 'autoload -U +X compinit && compinit'), a2: {a1: '\n ', a2: {a1: Help_n__4720_1023_shell($0, 'autoload -U +X bashcompinit && bashcompinit'), a2: {a1: '\n ', a2: {h: 0}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}}});
8298
+ /* Text.PrettyPrint.Prettyprinter.Util.reflow : String -> Doc ann */
8299
+ function Text_PrettyPrint_Prettyprinter_Util_reflow($0) {
8300
+ return Text_PrettyPrint_Prettyprinter_Doc_fillSep(Text_PrettyPrint_Prettyprinter_Util_words($0));
7753
8301
  }
7754
8302
 
7755
8303
  /* FFI.GitHub.show */
@@ -7807,12 +8355,12 @@ function FFI_GitHub_listPullRequestsJsonStr($0, $1, $2, $3, $4, $5) {
7807
8355
  String -> String -> Maybe GitHubPRState -> Fin 101 -> {default 0 _ : Nat} ->
7808
8356
  Promise (List PullRequest) */
7809
8357
  function FFI_GitHub_listPullRequests($0, $1, $2, $3, $4, $5) {
7810
- return Prelude_Basics_flip(csegen_295(), csegen_296(), FFI_GitHub_listPullRequestsJsonStr($0, $1, $2, $3, $4, $5));
8358
+ return Prelude_Basics_flip(csegen_393(), csegen_394(), FFI_GitHub_listPullRequestsJsonStr($0, $1, $2, $3, $4, $5));
7811
8359
  }
7812
8360
 
7813
8361
  /* FFI.GitHub.listPRsForBranch : Octokit => String -> String -> String -> Promise (List PullRequest) */
7814
8362
  function FFI_GitHub_listPRsForBranch($0, $1, $2, $3) {
7815
- return Prelude_Basics_flip(csegen_295(), csegen_296(), $a => $b => FFI_promiseIO($e => $f => $10 => FFI_GitHub_prim__listPRsForBranch($0, $1, $2, $3, $e, $f, $10), $a, $b));
8363
+ return Prelude_Basics_flip(csegen_393(), csegen_394(), $a => $b => FFI_promiseIO($e => $f => $10 => FFI_GitHub_prim__listPRsForBranch($0, $1, $2, $3, $e, $f, $10), $a, $b));
7816
8364
  }
7817
8365
 
7818
8366
  /* FFI.GitHub.listOrgMembers : Octokit => String -> Promise (List String) */
@@ -7827,12 +8375,12 @@ function FFI_GitHub_listMyTeams($0, $1, $2) {
7827
8375
 
7828
8376
  /* FFI.GitHub.getUser : Octokit => String -> Promise User */
7829
8377
  function FFI_GitHub_getUser($0) {
7830
- return Prelude_Interfaces_x3cx3dx3c(csegen_69(), csegen_297(), $7 => $8 => $9 => FFI_promiseIO($c => $d => $e => FFI_GitHub_prim__getUser($0, $7, $c, $d, $e), $8, $9));
8378
+ return Prelude_Interfaces_x3cx3dx3c(csegen_69(), csegen_395(), $7 => $8 => $9 => FFI_promiseIO($c => $d => $e => FFI_GitHub_prim__getUser($0, $7, $c, $d, $e), $8, $9));
7831
8379
  }
7832
8380
 
7833
8381
  /* FFI.GitHub.getSelf : Octokit => Promise User */
7834
8382
  function FFI_GitHub_getSelf($0) {
7835
- return Prelude_Basics_flip(csegen_295(), csegen_297(), $7 => $8 => FFI_promiseIO($b => $c => $d => FFI_GitHub_prim__getSelf($0, $b, $c, $d), $7, $8));
8383
+ return Prelude_Basics_flip(csegen_393(), csegen_395(), $7 => $8 => FFI_promiseIO($b => $c => $d => FFI_GitHub_prim__getSelf($0, $b, $c, $d), $7, $8));
7836
8384
  }
7837
8385
 
7838
8386
  /* FFI.GitHub.getRepoDefaultBranch : Octokit => String -> String -> Promise String */
@@ -7843,7 +8391,7 @@ function FFI_GitHub_getRepoDefaultBranch($0, $1, $2, $3, $4) {
7843
8391
  /* FFI.GitHub.createPR : Octokit => {default False _ : Bool} ->
7844
8392
  String -> String -> String -> String -> String -> String -> Promise PullRequest */
7845
8393
  function FFI_GitHub_createPR($0, $1, $2, $3, $4, $5, $6, $7) {
7846
- return Prelude_Basics_flip(csegen_295(), $c => $d => Data_Promise_either(csegen_51(), Data_PullRequest_parsePullRequestString($c), $d), $16 => $17 => FFI_promiseIO($1a => $1b => $1c => FFI_GitHub_prim__createPR($0, $2, $3, $4, $5, $6, $7, $1, $1a, $1b, $1c), $16, $17));
8394
+ return Prelude_Basics_flip(csegen_393(), $c => $d => Data_Promise_either(csegen_51(), Data_PullRequest_parsePullRequestString($c), $d), $16 => $17 => FFI_promiseIO($1a => $1b => $1c => FFI_GitHub_prim__createPR($0, $2, $3, $4, $5, $6, $7, $1, $1a, $1b, $1c), $16, $17));
7847
8395
  }
7848
8396
 
7849
8397
  /* FFI.GitHub.createComment : Octokit => String -> String -> Integer -> String -> Promise () */
@@ -7854,94 +8402,12 @@ function FFI_GitHub_createComment($0, $1, $2, $3, $4, $5, $6) {
7854
8402
  /* FFI.GitHub.addPullReviewers : Octokit =>
7855
8403
  String -> String -> Integer -> List String -> List String -> Promise (List String) */
7856
8404
  function FFI_GitHub_addPullReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
7857
- return Data_Promise_x3ex3ex3d_Monad_Promise($a => $b => Data_Promise_map_Functor_Promise($e => Data_String_lines($e), $12 => $13 => FFI_promiseIO($16 => $17 => $18 => FFI_GitHub_prim__addPullReviewers($0, $1, $2, $3, '', Data_String_Extra_join(',', csegen_142(), $5), $16, $17, $18), $12, $13), $a, $b), teamReviewers => $2d => $2e => Data_Promise_x3ex3ex3d_Monad_Promise($31 => $32 => Data_Promise_map_Functor_Promise($35 => Data_String_lines($35), $39 => $3a => FFI_promiseIO($3d => $3e => $3f => FFI_GitHub_prim__addPullReviewers($0, $1, $2, $3, Data_String_Extra_join(',', csegen_142(), $4), '', $3d, $3e, $3f), $39, $3a), $31, $32), individualReviewers => $54 => $55 => Data_Promise_pure_Applicative_Promise(Prelude_Types_List_tailRecAppend(teamReviewers, individualReviewers), $54, $55), $2d, $2e), $6, $7);
8405
+ return Data_Promise_x3ex3ex3d_Monad_Promise($a => $b => Data_Promise_map_Functor_Promise($e => Data_String_lines($e), $12 => $13 => FFI_promiseIO($16 => $17 => $18 => FFI_GitHub_prim__addPullReviewers($0, $1, $2, $3, '', Data_String_Extra_join(',', csegen_144(), $5), $16, $17, $18), $12, $13), $a, $b), teamReviewers => $2d => $2e => Data_Promise_x3ex3ex3d_Monad_Promise($31 => $32 => Data_Promise_map_Functor_Promise($35 => Data_String_lines($35), $39 => $3a => FFI_promiseIO($3d => $3e => $3f => FFI_GitHub_prim__addPullReviewers($0, $1, $2, $3, Data_String_Extra_join(',', csegen_144(), $4), '', $3d, $3e, $3f), $39, $3a), $31, $32), individualReviewers => $54 => $55 => Data_Promise_pure_Applicative_Promise(Prelude_Types_List_tailRecAppend(teamReviewers, individualReviewers), $54, $55), $2d, $2e), $6, $7);
7858
8406
  }
7859
8407
 
7860
8408
  /* FFI.GitHub.addPullLabels : Octokit => String -> String -> Integer -> List String -> Promise (List String) */
7861
8409
  function FFI_GitHub_addPullLabels($0, $1, $2, $3, $4, $5, $6) {
7862
- return Data_Promise_map_Functor_Promise($9 => Data_String_lines($9), $d => $e => FFI_promiseIO($11 => $12 => $13 => FFI_GitHub_prim__addLabels($0, $1, $2, $3, Data_String_Extra_join(',', csegen_142(), $4), $11, $12, $13), $d, $e), $5, $6);
7863
- }
7864
-
7865
- /* FFI.promiseIO : ((String -> PrimIO ()) -> (String -> PrimIO ()) -> PrimIO ()) -> Promise String */
7866
- function FFI_promiseIO($0, $1, $2) {
7867
- return Data_Promise_promisify(ok => notOk => $0(res => ok(res))(err => notOk(err)), $1, $2);
7868
- }
7869
-
7870
- /* Data.Promise.pure */
7871
- function Data_Promise_pure_Applicative_Promise($0, $1, $2) {
7872
- return $1($0);
7873
- }
7874
-
7875
- /* Data.Promise.map */
7876
- function Data_Promise_map_Functor_Promise($0, $1, $2, $3) {
7877
- return $1(x => $2($0(x)))($3);
7878
- }
7879
-
7880
- /* Data.Promise.liftIO */
7881
- function Data_Promise_liftIO_HasIO_Promise($0, $1, $2, $3) {
7882
- const $4 = $0($3);
7883
- return $1($4)($3);
7884
- }
7885
-
7886
- /* Data.Promise.join */
7887
- function Data_Promise_join_Monad_Promise($0) {
7888
- return $1 => $2 => Data_Promise_x3ex3ex3d_Monad_Promise($0, $6 => $6, $1, $2);
7889
- }
7890
-
7891
- /* Data.Promise.>>= */
7892
- function Data_Promise_x3ex3ex3d_Monad_Promise($0, $1, $2, $3) {
7893
- return Data_Promise_bind($0, $1, $2, $3);
7894
- }
7895
-
7896
- /* Data.Promise.<|> */
7897
- function Data_Promise_x3cx7cx3e_Alternative_Promise($0, $1, $2, $3) {
7898
- const $7 = $8 => {
7899
- const $b = $1();
7900
- const $a = $b;
7901
- const $9 = $a($2);
7902
- return $9($3);
7903
- };
7904
- return $0($2)($7);
7905
- }
7906
-
7907
- /* Data.Promise.<*> */
7908
- function Data_Promise_x3cx2ax3e_Applicative_Promise($0, $1, $2, $3) {
7909
- return Data_Promise_bind($0, f => $7 => $8 => Data_Promise_map_Functor_Promise(f, $1, $7, $8), $2, $3);
7910
- }
7911
-
7912
- /* Data.Promise.resolve' : (a -> IO ()) -> (String -> IO ()) -> Promise a -> IO () */
7913
- function Data_Promise_resolvex27($0, $1, $2) {
7914
- return $2($0)($1);
7915
- }
7916
-
7917
- /* Data.Promise.reject : String -> Promise a */
7918
- function Data_Promise_reject($0, $1, $2) {
7919
- return $2($0);
7920
- }
7921
-
7922
- /* Data.Promise.promisify : PromiseShape a -> Promise a */
7923
- function Data_Promise_promisify($0, $1, $2) {
7924
- return $0($1)($2);
7925
- }
7926
-
7927
- /* Data.Promise.either : Show e => Either e a -> Promise a */
7928
- function Data_Promise_either($0, $1, $2) {
7929
- return $3 => {
7930
- switch($1.h) {
7931
- case 0: /* Left */ return Data_Promise_reject($0.a1($1.a1), $2, $3);
7932
- case 1: /* Right */ return Data_Promise_pure_Applicative_Promise($1.a1, $2, $3);
7933
- }
7934
- };
7935
- }
7936
-
7937
- /* Data.Promise.bind : Promise a -> (a -> Promise b) -> Promise b */
7938
- function Data_Promise_bind($0, $1, $2, $3) {
7939
- const $6 = x => {
7940
- const $7 = $1(x);
7941
- return $7($2)($3);
7942
- };
7943
- const $4 = $0($6);
7944
- return $4($3);
8410
+ return Data_Promise_map_Functor_Promise($9 => Data_String_lines($9), $d => $e => FFI_promiseIO($11 => $12 => $13 => FFI_GitHub_prim__addLabels($0, $1, $2, $3, Data_String_Extra_join(',', csegen_144(), $4), $11, $12, $13), $d, $e), $5, $6);
7945
8411
  }
7946
8412
 
7947
8413
  /* Data.User.parseUserString : String -> Either String User */
@@ -7964,8 +8430,8 @@ function Data_User_parseUserString($0) {
7964
8430
  }
7965
8431
  };
7966
8432
  const $3 = {a1: $4, a2: a => $c => ({h: 1 /* Right */, a1: $c}), a3: $e};
7967
- const $2 = {a1: $3, a2: csegen_196(), a3: csegen_197()};
7968
- return Prelude_Interfaces_x3ex3dx3e($2, csegen_198(), $1f => Data_User_parseUser($1f), $0);
8433
+ const $2 = {a1: $3, a2: csegen_198(), a3: csegen_199()};
8434
+ return Prelude_Interfaces_x3ex3dx3e($2, csegen_200(), $1f => Data_User_parseUser($1f), $0);
7969
8435
  }
7970
8436
 
7971
8437
  /* Data.User.parseUser : JSON -> Either String User */
@@ -7995,7 +8461,7 @@ function Data_Review_parseState($0) {
7995
8461
 
7996
8462
  /* Data.Review.parseReview : JSON -> Either String Review */
7997
8463
  function Data_Review_parseReview($0) {
7998
- return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_object($0), review => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_lookupAll({a1: 'author', a2: {a1: 'state', a2: {a1: 'submitted_at', a2: {h: 0}}}}, review), $12 => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($12.a1), author => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Basics_flip(csegen_302(), $22 => Data_Review_parseState($22), Language_JSON_Accessors_string($12.a2.a1)), state => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Basics_flip(csegen_302(), $2f => Data_Review_parseDateTime($2f), Language_JSON_Accessors_string($12.a2.a2.a1)), submittedAt => ({h: 1 /* Right */, a1: {a1: submittedAt, a2: author, a3: state}}))))));
8464
+ return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_object($0), review => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_lookupAll({a1: 'author', a2: {a1: 'state', a2: {a1: 'submitted_at', a2: {h: 0}}}}, review), $12 => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($12.a1), author => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Basics_flip(csegen_400(), $22 => Data_Review_parseState($22), Language_JSON_Accessors_string($12.a2.a1)), state => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Basics_flip(csegen_400(), $2f => Data_Review_parseDateTime($2f), Language_JSON_Accessors_string($12.a2.a2.a1)), submittedAt => ({h: 1 /* Right */, a1: {a1: submittedAt, a2: author, a3: state}}))))));
7999
8465
  }
8000
8466
 
8001
8467
  /* Data.Review.parseDateTime : String -> Either String Date */
@@ -8129,7 +8595,7 @@ function Data_Date_max_Ord_Date($0, $1) {
8129
8595
 
8130
8596
  /* Data.Date.compare */
8131
8597
  function Data_Date_compare_Ord_Date($0, $1) {
8132
- return Prelude_Types_compare_Ord_x28Listx20x24ax29({a1: {a1: $8 => $9 => (($8===$9)?1:0), a2: $d => $e => Prelude_Types_x2fx3d_Eq_Nat($d, $e)}, a2: csegen_214(), a3: $15 => $16 => Prelude_Types_x3c_Ord_Nat($15, $16), a4: $1b => $1c => Prelude_Types_x3e_Ord_Nat($1b, $1c), a5: $21 => $22 => Prelude_Types_x3cx3d_Ord_Nat($21, $22), a6: $27 => $28 => Prelude_Types_x3ex3d_Ord_Nat($27, $28), a7: $2d => $2e => Prelude_Types_max_Ord_Nat($2d, $2e), a8: $33 => $34 => Prelude_Types_min_Ord_Nat($33, $34)}, {a1: $0.a1, a2: {a1: $0.a2, a2: {a1: $0.a3, a2: {h: 0}}}}, {a1: $1.a1, a2: {a1: $1.a2, a2: {a1: $1.a3, a2: {h: 0}}}});
8598
+ return Prelude_Types_compare_Ord_x28Listx20x24ax29({a1: {a1: $8 => $9 => (($8===$9)?1:0), a2: $d => $e => Prelude_Types_x2fx3d_Eq_Nat($d, $e)}, a2: csegen_216(), a3: $15 => $16 => Prelude_Types_x3c_Ord_Nat($15, $16), a4: $1b => $1c => Prelude_Types_x3e_Ord_Nat($1b, $1c), a5: $21 => $22 => Prelude_Types_x3cx3d_Ord_Nat($21, $22), a6: $27 => $28 => Prelude_Types_x3ex3d_Ord_Nat($27, $28), a7: $2d => $2e => Prelude_Types_max_Ord_Nat($2d, $2e), a8: $33 => $34 => Prelude_Types_min_Ord_Nat($33, $34)}, {a1: $0.a1, a2: {a1: $0.a2, a2: {a1: $0.a3, a2: {h: 0}}}}, {a1: $1.a1, a2: {a1: $1.a2, a2: {a1: $1.a3, a2: {h: 0}}}});
8133
8599
  }
8134
8600
 
8135
8601
  /* Data.Date.> */
@@ -8239,215 +8705,98 @@ function Data_PullRequest_x3dx3d_Eq_PRState($0, $1) {
8239
8705
  }
8240
8706
  }
8241
8707
 
8242
- /* Data.PullRequest.(.webURI) : Config => PullRequest -> String */
8243
- function Data_PullRequest_rf__webURI($0, $1) {
8244
- return Prelude_Types_foldMap_Foldable_List(csegen_49(), $6 => $6, {a1: 'https://github.com/', a2: {a1: $0.a2, a2: {a1: '/', a2: {a1: $0.a3, a2: {a1: '/pull/', a2: {a1: Prelude_Show_show_Show_Integer($1.a1), a2: {h: 0}}}}}}});
8245
- }
8246
-
8247
- /* Data.PullRequest.parseState : Bool -> String -> Either String PRState */
8248
- function Data_PullRequest_parseState($0, $1) {
8249
- switch($0) {
8250
- case 0: {
8251
- switch($1) {
8252
- case 'open': return {h: 1 /* Right */, a1: 0};
8253
- case 'closed': return {h: 1 /* Right */, a1: 1};
8254
- default: return {h: 0 /* Left */, a1: Prelude_Types_foldMap_Foldable_List(csegen_49(), $b => $b, {a1: 'Failed to parse a Pull Request State (open/closed). Found ', a2: {a1: $1, a2: {a1: '.', a2: {h: 0}}}})};
8255
- }
8256
- }
8257
- case 1: {
8258
- switch($1) {
8259
- case 'open': return {h: 0 /* Left */, a1: 'Found a PR to be merged & open; this is a contradiction so something is wrong.'};
8260
- case 'closed': return {h: 1 /* Right */, a1: 2};
8261
- default: return {h: 0 /* Left */, a1: Prelude_Types_foldMap_Foldable_List(csegen_49(), $1b => $1b, {a1: 'Failed to parse a Pull Request State (open/closed). Found ', a2: {a1: $1, a2: {a1: '.', a2: {h: 0}}}})};
8262
- }
8263
- }
8264
- default: return {h: 0 /* Left */, a1: Prelude_Types_foldMap_Foldable_List(csegen_49(), $28 => $28, {a1: 'Failed to parse a Pull Request State (open/closed). Found ', a2: {a1: $1, a2: {a1: '.', a2: {h: 0}}}})};
8265
- }
8266
- }
8267
-
8268
- /* Data.PullRequest.parsePullRequestsString : String -> Either String (List PullRequest) */
8269
- function Data_PullRequest_parsePullRequestsString($0) {
8270
- const $4 = b => a => func => $5 => {
8271
- switch($5.h) {
8272
- case 0: /* Left */ return {h: 0 /* Left */, a1: $5.a1};
8273
- case 1: /* Right */ return {h: 1 /* Right */, a1: func($5.a1)};
8274
- }
8275
- };
8276
- const $e = b => a => $f => $10 => {
8277
- switch($f.h) {
8278
- case 0: /* Left */ return {h: 0 /* Left */, a1: $f.a1};
8279
- case 1: /* Right */ {
8280
- switch($10.h) {
8281
- case 1: /* Right */ return {h: 1 /* Right */, a1: $f.a1($10.a1)};
8282
- case 0: /* Left */ return {h: 0 /* Left */, a1: $10.a1};
8283
- }
8284
- }
8285
- }
8286
- };
8287
- const $3 = {a1: $4, a2: a => $c => ({h: 1 /* Right */, a1: $c}), a3: $e};
8288
- const $2 = {a1: $3, a2: csegen_196(), a3: csegen_197()};
8289
- return Prelude_Interfaces_x3ex3dx3e($2, csegen_198(), csegen_315(), $0);
8290
- }
8291
-
8292
- /* Data.PullRequest.parsePullRequestString : String -> Either String PullRequest */
8293
- function Data_PullRequest_parsePullRequestString($0) {
8294
- const $4 = b => a => func => $5 => {
8295
- switch($5.h) {
8296
- case 0: /* Left */ return {h: 0 /* Left */, a1: $5.a1};
8297
- case 1: /* Right */ return {h: 1 /* Right */, a1: func($5.a1)};
8298
- }
8299
- };
8300
- const $e = b => a => $f => $10 => {
8301
- switch($f.h) {
8302
- case 0: /* Left */ return {h: 0 /* Left */, a1: $f.a1};
8303
- case 1: /* Right */ {
8304
- switch($10.h) {
8305
- case 1: /* Right */ return {h: 1 /* Right */, a1: $f.a1($10.a1)};
8306
- case 0: /* Left */ return {h: 0 /* Left */, a1: $10.a1};
8307
- }
8308
- }
8309
- }
8310
- };
8311
- const $3 = {a1: $4, a2: a => $c => ({h: 1 /* Right */, a1: $c}), a3: $e};
8312
- const $2 = {a1: $3, a2: csegen_196(), a3: csegen_197()};
8313
- return Prelude_Interfaces_x3ex3dx3e($2, csegen_198(), $1f => Data_PullRequest_parsePR($1f), $0);
8314
- }
8315
-
8316
- /* Data.PullRequest.parsePR : JSON -> Either String PullRequest */
8317
- function Data_PullRequest_parsePR($0) {
8318
- return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_object($0), pr => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_lookupAll({a1: 'pull_number', a2: {a1: 'author', a2: {a1: 'state', a2: {a1: 'created_at', a2: {a1: 'merged', a2: {a1: 'draft', a2: {a1: 'reviewers', a2: {a1: 'head_ref', a2: {h: 0}}}}}}}}}, pr), $1c => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_integer($1c.a1), number => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($1c.a2.a1), author => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_bool($1c.a2.a2.a2.a2.a1), merged => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_bool($1c.a2.a2.a2.a2.a2.a1), isDraft => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Basics_flip(csegen_302(), $40 => Data_PullRequest_parseState(merged, $40), Language_JSON_Accessors_string($1c.a2.a2.a1)), state => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Basics_flip(csegen_302(), $4e => Data_PullRequest_parseDateTime($4e), Language_JSON_Accessors_string($1c.a2.a2.a2.a1)), createdAt => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_array($59 => Language_JSON_Accessors_string($59), $1c.a2.a2.a2.a2.a2.a2.a1), reviewers => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($1c.a2.a2.a2.a2.a2.a2.a2.a1), headRef => ({h: 1 /* Right */, a1: {a1: number, a2: createdAt, a3: isDraft, a4: author, a5: state, a6: reviewers, a7: headRef}})))))))))));
8319
- }
8320
-
8321
- /* Data.PullRequest.parseDateTime : String -> Either String Date */
8322
- function Data_PullRequest_parseDateTime($0) {
8323
- return Data_Either_maybeToEither(() => 'Failed to parse Date', Data_Date_parseDateTimeString($0));
8324
- }
8325
-
8326
- /* Data.PullRequest.isRequestedReviewer : String -> PullRequest -> Bool */
8327
- function Data_PullRequest_isRequestedReviewer($0, $1) {
8328
- return Prelude_Types_foldMap_Foldable_List(csegen_92(), $6 => Prelude_EqOrd_x3dx3d_Eq_String($6, $0), $1.a6);
8329
- }
8330
-
8331
- /* Data.PullRequest.isAuthor : String -> PullRequest -> Bool */
8332
- function Data_PullRequest_isAuthor($0, $1) {
8333
- return Prelude_EqOrd_x3dx3d_Eq_String($1.a4, $0);
8334
- }
8335
-
8336
- /* FFI.Git.case block in unpushedCommits */
8337
- function FFI_Git_case__unpushedCommits_2011($0, $1, $2) {
8338
- switch($1) {
8339
- case '': {
8340
- switch($2.h) {
8341
- case 0: /* nil */ return {h: 0};
8342
- default: return {a1: $1};
8343
- }
8344
- }
8345
- default: return {a1: $1};
8346
- }
8347
- }
8348
-
8349
- /* FFI.Git.case block in stagedChanges */
8350
- function FFI_Git_case__stagedChanges_1948($0, $1, $2) {
8351
- switch($1) {
8352
- case '': {
8353
- switch($2.h) {
8354
- case 0: /* nil */ return {h: 0};
8355
- default: return {a1: $1};
8356
- }
8357
- }
8358
- default: return {a1: $1};
8359
- }
8360
- }
8361
-
8362
- /* FFI.Git.case block in uncommittedChanges */
8363
- function FFI_Git_case__uncommittedChanges_1885($0, $1, $2) {
8364
- switch($1) {
8365
- case '': {
8366
- switch($2.h) {
8367
- case 0: /* nil */ return {h: 0};
8368
- default: return {a1: $1};
8369
- }
8370
- }
8371
- default: return {a1: $1};
8372
- }
8373
- }
8374
-
8375
- /* FFI.Git.case block in remoteTrackingBranch */
8376
- function FFI_Git_case__remoteTrackingBranch_1822($0, $1, $2) {
8377
- switch($1) {
8378
- case '': {
8379
- switch($2.h) {
8380
- case 0: /* nil */ return {h: 0};
8381
- default: return {a1: $1};
8382
- }
8383
- }
8384
- default: return {a1: $1};
8385
- }
8386
- }
8387
-
8388
- /* FFI.Git.userEmail : Git => Promise String */
8389
- function FFI_Git_userEmail($0, $1, $2) {
8390
- return FFI_promiseIO($5 => $6 => $7 => FFI_Git_prim__userEmail($0, $5, $6, $7), $1, $2);
8391
- }
8392
-
8393
- /* FFI.Git.unpushedCommits : Git => Promise (Maybe String) */
8394
- function FFI_Git_unpushedCommits($0, $1, $2) {
8395
- return Data_Promise_x3ex3ex3d_Monad_Promise($5 => $6 => FFI_promiseIO($9 => $a => $b => FFI_Git_prim__unpushedCommits($0, $9, $a, $b), $5, $6), str => $14 => $15 => Data_Promise_pure_Applicative_Promise(FFI_Git_case__unpushedCommits_2011($0, str, Data_String_strM(str)), $14, $15), $1, $2);
8396
- }
8397
-
8398
- /* FFI.Git.uncommittedChanges : Git => Promise (Maybe String) */
8399
- function FFI_Git_uncommittedChanges($0, $1, $2) {
8400
- return Data_Promise_x3ex3ex3d_Monad_Promise($5 => $6 => FFI_promiseIO($9 => $a => $b => FFI_Git_prim__uncommittedChanges($0, $9, $a, $b), $5, $6), str => $14 => $15 => Data_Promise_pure_Applicative_Promise(FFI_Git_case__uncommittedChanges_1885($0, str, Data_String_strM(str)), $14, $15), $1, $2);
8401
- }
8402
-
8403
- /* FFI.Git.stagedChanges : Git => Promise (Maybe String) */
8404
- function FFI_Git_stagedChanges($0, $1, $2) {
8405
- return Data_Promise_x3ex3ex3d_Monad_Promise($5 => $6 => FFI_promiseIO($9 => $a => $b => FFI_Git_prim__stagedChanges($0, $9, $a, $b), $5, $6), str => $14 => $15 => Data_Promise_pure_Applicative_Promise(FFI_Git_case__stagedChanges_1948($0, str, Data_String_strM(str)), $14, $15), $1, $2);
8406
- }
8407
-
8408
- /* FFI.Git.rootDir : Git => Promise String */
8409
- function FFI_Git_rootDir($0, $1, $2) {
8410
- return FFI_promiseIO($5 => $6 => $7 => FFI_Git_prim__rootDir($0, $5, $6, $7), $1, $2);
8411
- }
8412
-
8413
- /* FFI.Git.remoteURI : Git => String -> Promise String */
8414
- function FFI_Git_remoteURI($0, $1, $2, $3) {
8415
- return FFI_promiseIO($6 => $7 => $8 => FFI_Git_prim__remoteURI($0, $1, $6, $7, $8), $2, $3);
8708
+ /* Data.PullRequest.(.webURI) : Config => PullRequest -> String */
8709
+ function Data_PullRequest_rf__webURI($0, $1) {
8710
+ return Prelude_Types_foldMap_Foldable_List(csegen_49(), $6 => $6, {a1: 'https://github.com/', a2: {a1: $0.a2, a2: {a1: '/', a2: {a1: $0.a3, a2: {a1: '/pull/', a2: {a1: Prelude_Show_show_Show_Integer($1.a1), a2: {h: 0}}}}}}});
8416
8711
  }
8417
8712
 
8418
- /* FFI.Git.remoteTrackingBranch : Git => Promise (Maybe String) */
8419
- function FFI_Git_remoteTrackingBranch($0, $1, $2) {
8420
- return Data_Promise_x3ex3ex3d_Monad_Promise($5 => $6 => FFI_promiseIO($9 => $a => $b => FFI_Git_prim__remoteTrackingBranch($0, $9, $a, $b), $5, $6), str => $14 => $15 => Data_Promise_pure_Applicative_Promise(FFI_Git_case__remoteTrackingBranch_1822($0, str, Data_String_strM(str)), $14, $15), $1, $2);
8713
+ /* Data.PullRequest.parseState : Bool -> String -> Either String PRState */
8714
+ function Data_PullRequest_parseState($0, $1) {
8715
+ switch($0) {
8716
+ case 0: {
8717
+ switch($1) {
8718
+ case 'open': return {h: 1 /* Right */, a1: 0};
8719
+ case 'closed': return {h: 1 /* Right */, a1: 1};
8720
+ default: return {h: 0 /* Left */, a1: Prelude_Types_foldMap_Foldable_List(csegen_49(), $b => $b, {a1: 'Failed to parse a Pull Request State (open/closed). Found ', a2: {a1: $1, a2: {a1: '.', a2: {h: 0}}}})};
8721
+ }
8722
+ }
8723
+ case 1: {
8724
+ switch($1) {
8725
+ case 'open': return {h: 0 /* Left */, a1: 'Found a PR to be merged & open; this is a contradiction so something is wrong.'};
8726
+ case 'closed': return {h: 1 /* Right */, a1: 2};
8727
+ default: return {h: 0 /* Left */, a1: Prelude_Types_foldMap_Foldable_List(csegen_49(), $1b => $1b, {a1: 'Failed to parse a Pull Request State (open/closed). Found ', a2: {a1: $1, a2: {a1: '.', a2: {h: 0}}}})};
8728
+ }
8729
+ }
8730
+ default: return {h: 0 /* Left */, a1: Prelude_Types_foldMap_Foldable_List(csegen_49(), $28 => $28, {a1: 'Failed to parse a Pull Request State (open/closed). Found ', a2: {a1: $1, a2: {a1: '.', a2: {h: 0}}}})};
8731
+ }
8421
8732
  }
8422
8733
 
8423
- /* FFI.Git.pushNewBranch : Git => String -> String -> Promise () */
8424
- function FFI_Git_pushNewBranch($0, $1, $2, $3, $4) {
8425
- return Data_Promise_map_Functor_Promise($7 => (undefined), $9 => $a => FFI_promiseIO($d => $e => $f => FFI_Git_prim__pushNewBranch($0, $1, $2, $d, $e, $f), $9, $a), $3, $4);
8734
+ /* Data.PullRequest.parsePullRequestsString : String -> Either String (List PullRequest) */
8735
+ function Data_PullRequest_parsePullRequestsString($0) {
8736
+ const $4 = b => a => func => $5 => {
8737
+ switch($5.h) {
8738
+ case 0: /* Left */ return {h: 0 /* Left */, a1: $5.a1};
8739
+ case 1: /* Right */ return {h: 1 /* Right */, a1: func($5.a1)};
8740
+ }
8741
+ };
8742
+ const $e = b => a => $f => $10 => {
8743
+ switch($f.h) {
8744
+ case 0: /* Left */ return {h: 0 /* Left */, a1: $f.a1};
8745
+ case 1: /* Right */ {
8746
+ switch($10.h) {
8747
+ case 1: /* Right */ return {h: 1 /* Right */, a1: $f.a1($10.a1)};
8748
+ case 0: /* Left */ return {h: 0 /* Left */, a1: $10.a1};
8749
+ }
8750
+ }
8751
+ }
8752
+ };
8753
+ const $3 = {a1: $4, a2: a => $c => ({h: 1 /* Right */, a1: $c}), a3: $e};
8754
+ const $2 = {a1: $3, a2: csegen_198(), a3: csegen_199()};
8755
+ return Prelude_Interfaces_x3ex3dx3e($2, csegen_200(), csegen_413(), $0);
8426
8756
  }
8427
8757
 
8428
- /* FFI.Git.push : Git => Promise () */
8429
- function FFI_Git_push($0, $1, $2) {
8430
- return Data_Promise_map_Functor_Promise($5 => (undefined), $7 => $8 => FFI_promiseIO($b => $c => $d => FFI_Git_prim__push($0, $b, $c, $d), $7, $8), $1, $2);
8758
+ /* Data.PullRequest.parsePullRequestString : String -> Either String PullRequest */
8759
+ function Data_PullRequest_parsePullRequestString($0) {
8760
+ const $4 = b => a => func => $5 => {
8761
+ switch($5.h) {
8762
+ case 0: /* Left */ return {h: 0 /* Left */, a1: $5.a1};
8763
+ case 1: /* Right */ return {h: 1 /* Right */, a1: func($5.a1)};
8764
+ }
8765
+ };
8766
+ const $e = b => a => $f => $10 => {
8767
+ switch($f.h) {
8768
+ case 0: /* Left */ return {h: 0 /* Left */, a1: $f.a1};
8769
+ case 1: /* Right */ {
8770
+ switch($10.h) {
8771
+ case 1: /* Right */ return {h: 1 /* Right */, a1: $f.a1($10.a1)};
8772
+ case 0: /* Left */ return {h: 0 /* Left */, a1: $10.a1};
8773
+ }
8774
+ }
8775
+ }
8776
+ };
8777
+ const $3 = {a1: $4, a2: a => $c => ({h: 1 /* Right */, a1: $c}), a3: $e};
8778
+ const $2 = {a1: $3, a2: csegen_198(), a3: csegen_199()};
8779
+ return Prelude_Interfaces_x3ex3dx3e($2, csegen_200(), $1f => Data_PullRequest_parsePR($1f), $0);
8431
8780
  }
8432
8781
 
8433
- /* FFI.Git.listRemotes : Git => Promise (List String) */
8434
- function FFI_Git_listRemotes($0, $1, $2) {
8435
- return Data_Promise_map_Functor_Promise($5 => Data_String_lines($5), $9 => $a => FFI_promiseIO($d => $e => $f => FFI_Git_prim__listRemotes($0, $d, $e, $f), $9, $a), $1, $2);
8782
+ /* Data.PullRequest.parsePR : JSON -> Either String PullRequest */
8783
+ function Data_PullRequest_parsePR($0) {
8784
+ return Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_object($0), pr => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_lookupAll({a1: 'pull_number', a2: {a1: 'author', a2: {a1: 'state', a2: {a1: 'created_at', a2: {a1: 'merged', a2: {a1: 'draft', a2: {a1: 'reviewers', a2: {a1: 'head_ref', a2: {h: 0}}}}}}}}}, pr), $1c => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_integer($1c.a1), number => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($1c.a2.a1), author => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_bool($1c.a2.a2.a2.a2.a1), merged => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_bool($1c.a2.a2.a2.a2.a2.a1), isDraft => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Basics_flip(csegen_400(), $40 => Data_PullRequest_parseState(merged, $40), Language_JSON_Accessors_string($1c.a2.a2.a1)), state => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Prelude_Basics_flip(csegen_400(), $4e => Data_PullRequest_parseDateTime($4e), Language_JSON_Accessors_string($1c.a2.a2.a2.a1)), createdAt => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_array($59 => Language_JSON_Accessors_string($59), $1c.a2.a2.a2.a2.a2.a2.a1), reviewers => Prelude_Types_x3ex3ex3d_Monad_x28Eitherx20x24ex29(Language_JSON_Accessors_string($1c.a2.a2.a2.a2.a2.a2.a2.a1), headRef => ({h: 1 /* Right */, a1: {a1: number, a2: createdAt, a3: isDraft, a4: author, a5: state, a6: reviewers, a7: headRef}})))))))))));
8436
8785
  }
8437
8786
 
8438
- /* FFI.Git.git : HasIO io => io Git */
8439
- function FFI_Git_git($0) {
8440
- return $0.a1.a1.a1(undefined)(undefined)($b => $b)($0.a2(undefined)($12 => FFI_Git_prim__git($12)));
8787
+ /* Data.PullRequest.parseDateTime : String -> Either String Date */
8788
+ function Data_PullRequest_parseDateTime($0) {
8789
+ return Data_Either_maybeToEither(() => 'Failed to parse Date', Data_Date_parseDateTimeString($0));
8441
8790
  }
8442
8791
 
8443
- /* FFI.Git.currentBranch : Git => Promise String */
8444
- function FFI_Git_currentBranch($0, $1, $2) {
8445
- return FFI_promiseIO($5 => $6 => $7 => FFI_Git_prim__currentBranch($0, $5, $6, $7), $1, $2);
8792
+ /* Data.PullRequest.isRequestedReviewer : String -> PullRequest -> Bool */
8793
+ function Data_PullRequest_isRequestedReviewer($0, $1) {
8794
+ return Prelude_Types_foldMap_Foldable_List(csegen_94(), $6 => Prelude_EqOrd_x3dx3d_Eq_String($6, $0), $1.a6);
8446
8795
  }
8447
8796
 
8448
- /* FFI.Git.checkoutBranch : Git => String -> Promise () */
8449
- function FFI_Git_checkoutBranch($0, $1, $2, $3) {
8450
- return Data_Promise_map_Functor_Promise($6 => (undefined), $8 => $9 => FFI_promiseIO($c => $d => $e => FFI_Git_prim__checkoutBranch($0, $1, $c, $d, $e), $8, $9), $2, $3);
8797
+ /* Data.PullRequest.isAuthor : String -> PullRequest -> Bool */
8798
+ function Data_PullRequest_isAuthor($0, $1) {
8799
+ return Prelude_EqOrd_x3dx3d_Eq_String($1.a4, $0);
8451
8800
  }
8452
8801
 
8453
8802
  /* Config.with block in getConfig */
@@ -8465,7 +8814,7 @@ function Config_with__withx20blockx20inx20setConfig_1978($0, $1, $2, $3, $4, $5,
8465
8814
  return $7 => {
8466
8815
  switch($5.h) {
8467
8816
  case 0: /* nothing */ return Data_Promise_reject(Prelude_Types_foldMap_Foldable_List(csegen_49(), $f => $f, {a1: $4, a2: {a1: ' is not a valid value for ', a2: {a1: $1, a2: {a1: '.', a2: {h: 0}}}}}), $6, $7);
8468
- case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Types_either(() => $1f => Util_renderIO($5.a1, csegen_72(), $1f), () => csegen_323(), Config_checkConfigConsistency($5.a1)), $2b => $2c => $2d => Config_writeConfig($5.a1, $2c, $2d), $6, $7);
8817
+ case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Types_either(() => $1f => Util_renderIO($5.a1, csegen_72(), $1f), () => csegen_421(), Config_checkConfigConsistency($5.a1)), $2b => $2c => $2d => Config_writeConfig($5.a1, $2c, $2d), $6, $7);
8469
8818
  }
8470
8819
  };
8471
8820
  }
@@ -8515,12 +8864,12 @@ function Config_case__parseGitHubURIx2cparseSuffix_1509($0, $1, $2) {
8515
8864
  default: return {h: 0};
8516
8865
  }
8517
8866
  };
8518
- return Prelude_Types_x3ex3ex3d_Monad_Maybe({a1: Data_String_split(csegen_324(), $2.a1)}, $b);
8867
+ return Prelude_Types_x3ex3ex3d_Monad_Maybe({a1: Data_String_split(csegen_422(), $2.a1)}, $b);
8519
8868
  }
8520
8869
 
8521
8870
  /* Config.8973:2259:repo */
8522
8871
  function Config_n__8973_2259_repo($0, $1, $2, $3, $4) {
8523
- return Prelude_Types_map_Functor_Maybe(csegen_325(), $4);
8872
+ return Prelude_Types_map_Functor_Maybe(csegen_423(), $4);
8524
8873
  }
8525
8874
 
8526
8875
  /* Config.8227:1489:parseSuffix */
@@ -8540,7 +8889,7 @@ function Config_n__8227_1487_parseHTTPS($0, $1) {
8540
8889
 
8541
8890
  /* Config.8973:2258:org */
8542
8891
  function Config_n__8973_2258_org($0, $1, $2, $3, $4) {
8543
- return Prelude_Types_map_Functor_Maybe(csegen_329(), $4);
8892
+ return Prelude_Types_map_Functor_Maybe(csegen_427(), $4);
8544
8893
  }
8545
8894
 
8546
8895
  /* Config.8973:2257:orIfEmpty */
@@ -8644,7 +8993,7 @@ function Config_syncConfig($0, $1, $2, $3, $4) {
8644
8993
  const $32 = {a1: updatedAt, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5, a6: $0.a6, a7: $0.a7, a8: $0.a8, a9: teamSlugs, a10: labelNames, a11: orgMembers, a12: $0.a12, a13: $0.a13, a14: $0.a14};
8645
8994
  return $42 => $43 => Data_Promise_x3ex3ex3d_Monad_Promise($46 => $47 => Data_Promise_map_Functor_Promise($4a => (undefined), $4c => $4d => Config_writeConfig($32, $4c, $4d), $46, $47), $55 => $56 => $57 => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Interfaces_when(csegen_64(), $2, () => $5f => $60 => Data_Promise_x3ex3ex3d_Monad_Promise($63 => $64 => $65 => Data_Promise_liftIO_HasIO_Promise($68 => Prelude_IO_prim__putStr('Your updated configuration is:\n', $68), $63, $64, $65), $70 => $71 => $72 => $73 => Data_Promise_liftIO_HasIO_Promise($76 => Prelude_IO_prim__putStr((Data_Config_show_Show_Config($32)+'\n'), $76), $71, $72, $73), $5f, $60)), $84 => $85 => $86 => Data_Promise_pure_Applicative_Promise($32, $85, $86), $56, $57), $42, $43);
8646
8995
  };
8647
- return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_340(), $31, $2c, $2d);
8996
+ return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_438(), $31, $2c, $2d);
8648
8997
  };
8649
8998
  return Data_Promise_x3ex3ex3d_Monad_Promise($23 => $24 => FFI_GitHub_listOrgMembers($1, $0.a2, $23, $24), $2b, $1f, $20);
8650
8999
  };
@@ -8667,11 +9016,11 @@ function Config_setConfig($0, $1, $2) {
8667
9016
  function Config_propSetter($0, $1) {
8668
9017
  return $2 => {
8669
9018
  switch($0) {
8670
- case 0: return Config_update(csegen_345(), $8 => Config_parseBool($8), b => $c => ({a1: $c.a1, a2: $c.a2, a3: $c.a3, a4: $c.a4, a5: $c.a5, a6: b, a7: $c.a7, a8: $c.a8, a9: $c.a9, a10: $c.a10, a11: $c.a11, a12: $c.a12, a13: $c.a13, a14: $c.a14}), $1, $2);
8671
- case 1: return Config_update(csegen_345(), $22 => Config_parseBool($22), b => $26 => ({a1: $26.a1, a2: $26.a2, a3: $26.a3, a4: $26.a4, a5: $26.a5, a6: $26.a6, a7: b, a8: $26.a8, a9: $26.a9, a10: $26.a10, a11: $26.a11, a12: $26.a12, a13: $26.a13, a14: $26.a14}), $1, $2);
8672
- case 2: return Config_update(csegen_345(), $3c => Config_parseBool($3c), b => $40 => ({a1: $40.a1, a2: $40.a2, a3: $40.a3, a4: $40.a4, a5: $40.a5, a6: $40.a6, a7: $40.a7, a8: b, a9: $40.a9, a10: $40.a10, a11: $40.a11, a12: $40.a12, a13: $40.a13, a14: $40.a14}), $1, $2);
8673
- case 3: return Config_update(csegen_345(), $56 => ({a1: $56}), s => $59 => ({a1: $59.a1, a2: $59.a2, a3: $59.a3, a4: s, a5: $59.a5, a6: $59.a6, a7: $59.a7, a8: $59.a8, a9: $59.a9, a10: $59.a10, a11: $59.a11, a12: $59.a12, a13: $59.a13, a14: $59.a14}), $1, $2);
8674
- case 4: return Config_update(csegen_345(), $6f => ({a1: $6f}), s => $72 => ({a1: $72.a1, a2: $72.a2, a3: $72.a3, a4: $72.a4, a5: $72.a5, a6: $72.a6, a7: $72.a7, a8: $72.a8, a9: $72.a9, a10: $72.a10, a11: $72.a11, a12: $72.a12, a13: {a1: s}, a14: $72.a14}), $1, $2);
9019
+ case 0: return Config_update(csegen_443(), $8 => Config_parseBool($8), b => $c => ({a1: $c.a1, a2: $c.a2, a3: $c.a3, a4: $c.a4, a5: $c.a5, a6: b, a7: $c.a7, a8: $c.a8, a9: $c.a9, a10: $c.a10, a11: $c.a11, a12: $c.a12, a13: $c.a13, a14: $c.a14}), $1, $2);
9020
+ case 1: return Config_update(csegen_443(), $22 => Config_parseBool($22), b => $26 => ({a1: $26.a1, a2: $26.a2, a3: $26.a3, a4: $26.a4, a5: $26.a5, a6: $26.a6, a7: b, a8: $26.a8, a9: $26.a9, a10: $26.a10, a11: $26.a11, a12: $26.a12, a13: $26.a13, a14: $26.a14}), $1, $2);
9021
+ case 2: return Config_update(csegen_443(), $3c => Config_parseBool($3c), b => $40 => ({a1: $40.a1, a2: $40.a2, a3: $40.a3, a4: $40.a4, a5: $40.a5, a6: $40.a6, a7: $40.a7, a8: b, a9: $40.a9, a10: $40.a10, a11: $40.a11, a12: $40.a12, a13: $40.a13, a14: $40.a14}), $1, $2);
9022
+ case 3: return Config_update(csegen_443(), $56 => ({a1: $56}), s => $59 => ({a1: $59.a1, a2: $59.a2, a3: $59.a3, a4: s, a5: $59.a5, a6: $59.a6, a7: $59.a7, a8: $59.a8, a9: $59.a9, a10: $59.a10, a11: $59.a11, a12: $59.a12, a13: $59.a13, a14: $59.a14}), $1, $2);
9023
+ case 4: return Config_update(csegen_443(), $6f => ({a1: $6f}), s => $72 => ({a1: $72.a1, a2: $72.a2, a3: $72.a3, a4: $72.a4, a5: $72.a5, a6: $72.a6, a7: $72.a7, a8: $72.a8, a9: $72.a9, a10: $72.a10, a11: $72.a11, a12: $72.a12, a13: {a1: s}, a14: $72.a14}), $1, $2);
8675
9024
  }
8676
9025
  };
8677
9026
  }
@@ -8752,14 +9101,14 @@ function Config_loadConfig($0, $1, $2) {
8752
9101
  }
8753
9102
  };
8754
9103
  const $a = {a1: $b, a2: a => $13 => ({h: 1 /* Right */, a1: $13}), a3: $15};
8755
- const $9 = {a1: $a, a2: csegen_196(), a3: csegen_197()};
9104
+ const $9 = {a1: $a, a2: csegen_198(), a3: csegen_199()};
8756
9105
  const $24 = b => a => func => $25 => {
8757
9106
  switch($25.h) {
8758
9107
  case 0: /* Left */ return {h: 0 /* Left */, a1: $25.a1};
8759
9108
  case 1: /* Right */ return {h: 1 /* Right */, a1: func($25.a1)};
8760
9109
  }
8761
9110
  };
8762
- const $23 = {a1: $24, a2: csegen_252(), a3: csegen_256()};
9111
+ const $23 = {a1: $24, a2: csegen_256(), a3: csegen_260()};
8763
9112
  return Prelude_Interfaces_Monad_x3ex3ex3d_Monad_Composex28x28x2ex20x24mx29x20x24tx29($0.a1, $9, $23, $4, $5);
8764
9113
  };
8765
9114
  const $3d = $3e => {
@@ -8843,7 +9192,7 @@ function Config_createConfig($0, $1, $2, $3, $4, $5) {
8843
9192
  default: return {a1: Data_String_trim($73)};
8844
9193
  }
8845
9194
  };
8846
- return Data_Promise_map_Functor_Promise($72, csegen_358(), $6f, $70);
9195
+ return Data_Promise_map_Functor_Promise($72, csegen_456(), $6f, $70);
8847
9196
  };
8848
9197
  const $7e = configPAT => $7f => $80 => {
8849
9198
  const $8c = $8d => $8e => $8f => {
@@ -8851,11 +9200,11 @@ function Config_createConfig($0, $1, $2, $3, $4, $5) {
8851
9200
  case undefined: /* just */ {
8852
9201
  const $a3 = remoteGuess => $a4 => $a5 => {
8853
9202
  const $c1 = defaultOrgAndRepo => {
8854
- const $c2 = Config_n__8973_2255_defaultStr($0, $3, $2, $1, csegen_329(), defaultOrgAndRepo);
9203
+ const $c2 = Config_n__8973_2255_defaultStr($0, $3, $2, $1, csegen_427(), defaultOrgAndRepo);
8855
9204
  return $cb => $cc => {
8856
9205
  const $e9 = $ea => $eb => $ec => {
8857
9206
  const $107 = org => {
8858
- const $108 = Config_n__8973_2255_defaultStr($0, $3, $2, $1, csegen_325(), defaultOrgAndRepo);
9207
+ const $108 = Config_n__8973_2255_defaultStr($0, $3, $2, $1, csegen_423(), defaultOrgAndRepo);
8859
9208
  return $111 => $112 => {
8860
9209
  const $12f = $130 => $131 => $132 => {
8861
9210
  const $14d = repo => {
@@ -8876,7 +9225,7 @@ function Config_createConfig($0, $1, $2, $3, $4, $5) {
8876
9225
  const $205 = repoLabels => $206 => $207 => {
8877
9226
  const $211 = orgMembers => {
8878
9227
  const $212 = {a1: updatedAt, a2: org, a3: repo, a4: defaultRemote, a5: mainBranch, a6: assignTeams, a7: assignUsers, a8: commentOnAssign, a9: teamSlugs, a10: repoLabels, a11: orgMembers, a12: {h: 0}, a13: Prelude_Types_map_Functor_Maybe($222 => $222, configPAT), a14: $1de};
8879
- return $225 => $226 => Data_Promise_x3ex3ex3d_Monad_Promise($229 => $22a => Data_Promise_map_Functor_Promise($22d => (undefined), $22f => $230 => Config_writeConfig($212, $22f, $230), $229, $22a), $238 => $239 => $23a => Data_Promise_x3ex3ex3d_Monad_Promise($23d => $23e => $23f => Data_Promise_liftIO_HasIO_Promise($242 => Prelude_IO_prim__putStr('Your new configuration is:\n', $242), $23d, $23e, $23f), $24a => $24b => $24c => Data_Promise_x3ex3ex3d_Monad_Promise($24f => $250 => $251 => Data_Promise_liftIO_HasIO_Promise($254 => Prelude_IO_prim__putStr((Data_Config_show_Show_Config($212)+'\n'), $254), $24f, $250, $251), $260 => $261 => $262 => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Types_either(() => $267 => Util_renderIO($212, csegen_72(), $267), () => csegen_323(), Config_checkConfigConsistency($212)), $273 => $274 => $275 => Data_Promise_pure_Applicative_Promise($212, $274, $275), $261, $262), $24b, $24c), $239, $23a), $225, $226);
9228
+ return $225 => $226 => Data_Promise_x3ex3ex3d_Monad_Promise($229 => $22a => Data_Promise_map_Functor_Promise($22d => (undefined), $22f => $230 => Config_writeConfig($212, $22f, $230), $229, $22a), $238 => $239 => $23a => Data_Promise_x3ex3ex3d_Monad_Promise($23d => $23e => $23f => Data_Promise_liftIO_HasIO_Promise($242 => Prelude_IO_prim__putStr('Your new configuration is:\n', $242), $23d, $23e, $23f), $24a => $24b => $24c => Data_Promise_x3ex3ex3d_Monad_Promise($24f => $250 => $251 => Data_Promise_liftIO_HasIO_Promise($254 => Prelude_IO_prim__putStr((Data_Config_show_Show_Config($212)+'\n'), $254), $24f, $250, $251), $260 => $261 => $262 => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Types_either(() => $267 => Util_renderIO($212, csegen_72(), $267), () => csegen_421(), Config_checkConfigConsistency($212)), $273 => $274 => $275 => Data_Promise_pure_Applicative_Promise($212, $274, $275), $261, $262), $24b, $24c), $239, $23a), $225, $226);
8880
9229
  };
8881
9230
  return Data_Promise_x3ex3ex3d_Monad_Promise($20a => $20b => FFI_GitHub_listOrgMembers(_, org, $20a, $20b), $211, $206, $207);
8882
9231
  };
@@ -8885,7 +9234,7 @@ function Config_createConfig($0, $1, $2, $3, $4, $5) {
8885
9234
  return Data_Promise_x3ex3ex3d_Monad_Promise($1f1 => $1f2 => FFI_GitHub_listTeams(_, org, $1f1, $1f2), $1f8, $1ed, $1ee);
8886
9235
  };
8887
9236
  };
8888
- return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_340(), $1dd, $1d8, $1d9);
9237
+ return Data_Promise_x3ex3ex3d_Monad_Promise(csegen_438(), $1dd, $1d8, $1d9);
8889
9238
  };
8890
9239
  return Data_Promise_x3ex3ex3d_Monad_Promise($1cf => $1d0 => FFI_GitHub_getRepoDefaultBranch(_, org, repo, $1cf, $1d0), $1d7, $1cb, $1cc);
8891
9240
  };
@@ -8899,22 +9248,22 @@ function Config_createConfig($0, $1, $2, $3, $4, $5) {
8899
9248
  };
8900
9249
  return Data_Promise_x3ex3ex3d_Monad_Promise(Util_yesNoPrompt(csegen_72(), 'Would you like harmony to comment when it assigns reviewers?'), $195, $18d, $18e);
8901
9250
  };
8902
- return Data_Promise_x3ex3ex3d_Monad_Promise($179 => $17a => Data_Promise_map_Functor_Promise($17d => Config_n__8973_2257_orIfEmpty($0, $3, $2, $1, {a1: remoteGuess}, Data_String_trim($17d)), csegen_358(), $179, $17a), $18c, $175, $176);
9251
+ return Data_Promise_x3ex3ex3d_Monad_Promise($179 => $17a => Data_Promise_map_Functor_Promise($17d => Config_n__8973_2257_orIfEmpty($0, $3, $2, $1, {a1: remoteGuess}, Data_String_trim($17d)), csegen_456(), $179, $17a), $18c, $175, $176);
8903
9252
  };
8904
9253
  return Data_Promise_x3ex3ex3d_Monad_Promise($159 => $15a => $15b => Data_Promise_liftIO_HasIO_Promise($15e => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_49(), $166 => $166, {a1: 'What GitHub remote repo would you like to use harmony for', a2: {a1: $14e, a2: {a1: '?', a2: {h: 0}}}})+'\n'), $15e), $159, $15a, $15b), $173, $155, $156);
8905
9254
  };
8906
9255
  };
8907
- return Data_Promise_x3ex3ex3d_Monad_Promise($135 => $136 => Data_Promise_map_Functor_Promise($139 => Config_n__8973_2257_orIfEmpty($0, $3, $2, $1, Config_n__8973_2259_repo($0, $3, $2, $1, defaultOrgAndRepo), Data_String_trim($139)), csegen_358(), $135, $136), $14d, $131, $132);
9256
+ return Data_Promise_x3ex3ex3d_Monad_Promise($135 => $136 => Data_Promise_map_Functor_Promise($139 => Config_n__8973_2257_orIfEmpty($0, $3, $2, $1, Config_n__8973_2259_repo($0, $3, $2, $1, defaultOrgAndRepo), Data_String_trim($139)), csegen_456(), $135, $136), $14d, $131, $132);
8908
9257
  };
8909
9258
  return Data_Promise_x3ex3ex3d_Monad_Promise($115 => $116 => $117 => Data_Promise_liftIO_HasIO_Promise($11a => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_49(), $122 => $122, {a1: 'What repository would you like to use harmony for', a2: {a1: $108, a2: {a1: '?', a2: {h: 0}}}})+'\n'), $11a), $115, $116, $117), $12f, $111, $112);
8910
9259
  };
8911
9260
  };
8912
- return Data_Promise_x3ex3ex3d_Monad_Promise($ef => $f0 => Data_Promise_map_Functor_Promise($f3 => Config_n__8973_2257_orIfEmpty($0, $3, $2, $1, Config_n__8973_2258_org($0, $3, $2, $1, defaultOrgAndRepo), Data_String_trim($f3)), csegen_358(), $ef, $f0), $107, $eb, $ec);
9261
+ return Data_Promise_x3ex3ex3d_Monad_Promise($ef => $f0 => Data_Promise_map_Functor_Promise($f3 => Config_n__8973_2257_orIfEmpty($0, $3, $2, $1, Config_n__8973_2258_org($0, $3, $2, $1, defaultOrgAndRepo), Data_String_trim($f3)), csegen_456(), $ef, $f0), $107, $eb, $ec);
8913
9262
  };
8914
9263
  return Data_Promise_x3ex3ex3d_Monad_Promise($cf => $d0 => $d1 => Data_Promise_liftIO_HasIO_Promise($d4 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_49(), $dc => $dc, {a1: 'What GitHub org would you like to use harmony for', a2: {a1: $c2, a2: {a1: '?', a2: {h: 0}}}})+'\n'), $d4), $cf, $d0, $d1), $e9, $cb, $cc);
8915
9264
  };
8916
9265
  };
8917
- return Data_Promise_x3ex3ex3d_Monad_Promise($a8 => $a9 => Data_Promise_x3cx7cx3e_Alternative_Promise($ac => $ad => Data_Promise_map_Functor_Promise($b0 => Config_parseGitHubURI($b0), $b4 => $b5 => FFI_Git_remoteURI($0, remoteGuess, $b4, $b5), $ac, $ad), () => csegen_360(), $a8, $a9), $c1, $a4, $a5);
9266
+ return Data_Promise_x3ex3ex3d_Monad_Promise($a8 => $a9 => Data_Promise_x3cx7cx3e_Alternative_Promise($ac => $ad => Data_Promise_map_Functor_Promise($b0 => Config_parseGitHubURI($b0), $b4 => $b5 => FFI_Git_remoteURI($0, remoteGuess, $b4, $b5), $ac, $ad), () => csegen_458(), $a8, $a9), $c1, $a4, $a5);
8918
9267
  };
8919
9268
  return Data_Promise_x3ex3ex3d_Monad_Promise($93 => $94 => Data_Promise_map_Functor_Promise($97 => Config_preferOriginRemote($97), $9b => $9c => FFI_Git_listRemotes($0, $9b, $9c), $93, $94), $a3, $8e, $8f);
8920
9269
  }
@@ -8941,166 +9290,7 @@ function Config_checkConfigConsistency($0) {
8941
9290
 
8942
9291
  /* Config.addIgnoredPRs : Config -> List Integer -> Promise Config */
8943
9292
  function Config_addIgnoredPRs($0, $1, $2, $3) {
8944
- return Config_writeConfig({a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5, a6: $0.a6, a7: $0.a7, a8: $0.a8, a9: $0.a9, a10: $0.a10, a11: $0.a11, a12: Data_List_nub(csegen_213(), Prelude_Types_List_tailRecAppend($0.a12, $1)), a13: $0.a13, a14: $0.a14}, $2, $3);
8945
- }
8946
-
8947
- /* Util.with block in yesNoPrompt,yesUnlessNo */
8948
- function Util_with__yesNoPromptx2cyesUnlessNo_1292($0, $1, $2, $3, $4) {
8949
- switch($4) {
8950
- case 'n': return 0;
8951
- case 'no': return 0;
8952
- default: return 1;
8953
- }
8954
- }
8955
-
8956
- /* Util.5058:1284:yesUnlessNo */
8957
- function Util_n__5058_1284_yesUnlessNo($0, $1, $2) {
8958
- return Util_with__yesNoPromptx2cyesUnlessNo_1292(undefined, $0, $1, $2, Data_String_toLower($2));
8959
- }
8960
-
8961
- /* Util.5161:1391:startOver */
8962
- const Util_n__5161_1391_startOver = __lazy(function () {
8963
- return {a1: 0, a2: {h: 0}};
8964
- });
8965
-
8966
- /* Util.5161:1390:guardSuccess */
8967
- function Util_n__5161_1390_guardSuccess($0) {
8968
- switch($0.h) {
8969
- case undefined: /* cons */ {
8970
- switch($0.a1) {
8971
- case 3: return {a1: $0.a2};
8972
- case 4: return {a1: $0.a2};
8973
- default: return {h: 0};
8974
- }
8975
- }
8976
- default: return {h: 0};
8977
- }
8978
- }
8979
-
8980
- /* Util.5161:1389:go */
8981
- function Util_n__5161_1389_go($0, $1) {
8982
- switch($0.a1) {
8983
- case 0: {
8984
- switch(Prelude_Types_isAlpha($1)) {
8985
- case 1: return {a1: 1, a2: {a1: $1, a2: $0.a2}};
8986
- case 0: return Util_n__5161_1391_startOver();
8987
- }
8988
- }
8989
- case 1: {
8990
- switch($1) {
8991
- case '-': return {a1: 2, a2: {a1: '-', a2: $0.a2}};
8992
- default: {
8993
- switch(Prelude_Types_isAlpha($1)) {
8994
- case 1: return {a1: 1, a2: {a1: $1, a2: $0.a2}};
8995
- case 0: return Util_n__5161_1391_startOver();
8996
- }
8997
- }
8998
- }
8999
- }
9000
- case 2: {
9001
- switch(Prelude_Types_isDigit($1)) {
9002
- case 1: return {a1: 3, a2: {a1: $1, a2: $0.a2}};
9003
- case 0: return Util_n__5161_1391_startOver();
9004
- }
9005
- }
9006
- case 3: {
9007
- switch(Prelude_Types_isDigit($1)) {
9008
- case 1: return {a1: 3, a2: {a1: $1, a2: $0.a2}};
9009
- case 0: return {a1: 4, a2: $0.a2};
9010
- }
9011
- }
9012
- case 4: return {a1: 4, a2: $0.a2};
9013
- }
9014
- }
9015
-
9016
- /* Util.4945:1172:getMoreLines */
9017
- function Util_n__4945_1172_getMoreLines($0, $1, $2) {
9018
- switch($2.h) {
9019
- case 0: /* nothing */ return $0.a1.a1.a2(undefined)(Prelude_Types_List_reverse($1));
9020
- case undefined: /* just */ {
9021
- const $2c = line => {
9022
- switch($1.h) {
9023
- case undefined: /* cons */ {
9024
- switch($1.a1) {
9025
- case '': {
9026
- switch(line) {
9027
- case '': return $0.a1.a1.a2(undefined)(Prelude_Types_List_reverse($1.a2));
9028
- default: return Util_n__4945_1172_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
9029
- }
9030
- }
9031
- default: return Util_n__4945_1172_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
9032
- }
9033
- }
9034
- default: return Util_n__4945_1172_getMoreLines($0, {a1: line, a2: $1}, $2.a1());
9035
- }
9036
- };
9037
- return $0.a1.a2(undefined)(undefined)($0.a1.a1.a1(undefined)(undefined)($20 => Data_String_trim($20))($0.a2(undefined)($29 => Prelude_IO_prim__getStr($29))))($2c);
9038
- }
9039
- }
9040
- }
9041
-
9042
- /* Util.yesNoPrompt : HasIO io => String -> io Bool */
9043
- function Util_yesNoPrompt($0, $1) {
9044
- return $0.a1.a2(undefined)(undefined)($0.a2(undefined)($10 => Prelude_IO_prim__putStr(Prelude_Types_foldMap_Foldable_List(csegen_49(), $17 => $17, {a1: $1, a2: {a1: ' [Y/n] ', a2: {h: 0}}}), $10)))($1f => $0.a1.a1.a1(undefined)(undefined)($2a => Util_n__5058_1284_yesUnlessNo($0, $1, Data_String_trim($2a)))($0.a2(undefined)($37 => Prelude_IO_prim__getStr($37))));
9045
- }
9046
-
9047
- /* Util.whenNothing : Applicative f => Maybe a -> f () -> f () */
9048
- function Util_whenNothing($0, $1, $2) {
9049
- switch($1.h) {
9050
- case 0: /* nothing */ return $2;
9051
- case undefined: /* just */ return $0.a2(undefined)(undefined);
9052
- }
9053
- }
9054
-
9055
- /* Util.renderString : Config => Doc AnsiStyle -> String */
9056
- function Util_renderString($0, $1) {
9057
- let $7;
9058
- switch(Data_Config_rf__colors($0)) {
9059
- case 1: {
9060
- $7 = $1;
9061
- break;
9062
- }
9063
- case 0: {
9064
- $7 = Text_PrettyPrint_Prettyprinter_Doc_unAnnotate($1);
9065
- break;
9066
- }
9067
- }
9068
- const $3 = Text_PrettyPrint_Prettyprinter_Doc_layoutPretty(Text_PrettyPrint_Prettyprinter_Doc_defaultLayoutOptions(), $7);
9069
- return Text_PrettyPrint_Prettyprinter_Render_Terminal_renderString($3);
9070
- }
9071
-
9072
- /* Util.renderIO : Config => HasIO io => Doc AnsiStyle -> io () */
9073
- function Util_renderIO($0, $1, $2) {
9074
- const $7 = $8 => {
9075
- let $a;
9076
- switch(Data_Config_rf__colors($0)) {
9077
- case 1: {
9078
- $a = $2;
9079
- break;
9080
- }
9081
- case 0: {
9082
- $a = Text_PrettyPrint_Prettyprinter_Doc_unAnnotate($2);
9083
- break;
9084
- }
9085
- }
9086
- return Text_PrettyPrint_Prettyprinter_Render_Terminal_putDoc($a, $8);
9087
- };
9088
- return $1.a2(undefined)($7);
9089
- }
9090
-
9091
- /* Util.relativeToRoot : Git => String -> Promise String */
9092
- function Util_relativeToRoot($0, $1, $2, $3) {
9093
- return Data_Promise_map_Functor_Promise($6 => ($6+Prelude_Types_foldMap_Foldable_List(csegen_49(), $d => $d, {a1: '/', a2: {a1: $1, a2: {h: 0}}})), $14 => $15 => FFI_Git_rootDir($0, $14, $15), $2, $3);
9094
- }
9095
-
9096
- /* Util.parseJiraPrefix : String -> Maybe String */
9097
- function Util_parseJiraPrefix($0) {
9098
- return Prelude_Types_map_Functor_Maybe($3 => Prelude_Types_fastPack(Prelude_Types_List_reverse($3)), Util_n__5161_1390_guardSuccess(Prelude_Types_foldl_Foldable_List($d => $e => Util_n__5161_1389_go($d, $e), Util_n__5161_1391_startOver(), Prelude_Types_fastUnpack($0))));
9099
- }
9100
-
9101
- /* Util.getManyLines : HasIO io => Fuel -> io (List String) */
9102
- function Util_getManyLines($0, $1) {
9103
- return Util_n__4945_1172_getMoreLines($0, {h: 0}, $1);
9293
+ return Config_writeConfig({a1: $0.a1, a2: $0.a2, a3: $0.a3, a4: $0.a4, a5: $0.a5, a6: $0.a6, a7: $0.a7, a8: $0.a8, a9: $0.a9, a10: $0.a10, a11: $0.a11, a12: Data_List_nub(csegen_215(), Prelude_Types_List_tailRecAppend($0.a12, $1)), a13: $0.a13, a14: $0.a14}, $2, $3);
9104
9294
  }
9105
9295
 
9106
9296
  /* Data.List.PrefixSuffix.with block in with block in dropPrefix */
@@ -9179,7 +9369,7 @@ function Commands_case__casex20blockx20inx20graph_2168($0, $1, $2, $3, $4, $5, $
9179
9369
  case 0: return Data_Promise_pure_Applicative_Promise({h: 0}, $d, $e);
9180
9370
  }
9181
9371
  };
9182
- return Data_Promise_x3ex3ex3d_Monad_Promise($c, completedReviews => Util_renderIO($2, csegen_72(), Graph_reviewsGraph(csegen_210(), {a1: ann => $2f => Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($2f), a2: ann => $33 => $34 => Text_PrettyPrint_Prettyprinter_Doc_prettyPrec_Pretty_String($33, $34)}, $7.a2, $7.a1, $5, completedReviews)), $8, $9);
9372
+ return Data_Promise_x3ex3ex3d_Monad_Promise($c, completedReviews => Util_renderIO($2, csegen_72(), Graph_reviewsGraph(csegen_212(), {a1: ann => $2f => Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($2f), a2: ann => $33 => $34 => Text_PrettyPrint_Prettyprinter_Doc_prettyPrec_Pretty_String($33, $34)}, $7.a2, $7.a1, $5, completedReviews)), $8, $9);
9183
9373
  };
9184
9374
  }
9185
9375
 
@@ -9255,8 +9445,8 @@ function Commands_case__assignx2cpartitionedArgs_1663($0, $1, $2, $3, $4, $5) {
9255
9445
  return Commands_case__casex20blockx20inx20assignx2cpartitionedArgs_1686($0, $1, $2, $3, $4, $5.a1, $5.a2, Data_List_partition($12 => BashCompletion_isHashPrefix($12), $5.a2));
9256
9446
  }
9257
9447
 
9258
- /* Commands.9675:2511:recombineIgnoreArgs */
9259
- function Commands_n__9675_2511_recombineIgnoreArgs($0, $1) {
9448
+ /* Commands.9677:2511:recombineIgnoreArgs */
9449
+ function Commands_n__9677_2511_recombineIgnoreArgs($0, $1) {
9260
9450
  switch($1.h) {
9261
9451
  case 0: /* nil */ return {a1: {h: 0}, a2: {h: 0}};
9262
9452
  case undefined: /* cons */ {
@@ -9265,20 +9455,20 @@ function Commands_n__9675_2511_recombineIgnoreArgs($0, $1) {
9265
9455
  switch($1.a2.h) {
9266
9456
  case 0: /* nil */ return {a1: {h: 0}, a2: {a1: '-i', a2: {h: 0}}};
9267
9457
  case undefined: /* cons */ {
9268
- const $b = Commands_n__9675_2509_parseIgnoreOpt($0, $1.a2.a1);
9458
+ const $b = Commands_n__9677_2509_parseIgnoreOpt($0, $1.a2.a1);
9269
9459
  switch($b.h) {
9270
9460
  case undefined: /* just */ {
9271
- const $f = Commands_n__9675_2511_recombineIgnoreArgs($0, $1.a2.a2);
9461
+ const $f = Commands_n__9677_2511_recombineIgnoreArgs($0, $1.a2.a2);
9272
9462
  return {a1: {a1: $b.a1, a2: $f.a1}, a2: $f.a2};
9273
9463
  }
9274
9464
  case 0: /* nothing */ {
9275
- const $17 = Commands_n__9675_2511_recombineIgnoreArgs($0, $1.a2.a2);
9465
+ const $17 = Commands_n__9677_2511_recombineIgnoreArgs($0, $1.a2.a2);
9276
9466
  return {a1: $17.a1, a2: {a1: '-i', a2: {a1: $1.a2.a1, a2: $17.a2}}};
9277
9467
  }
9278
9468
  }
9279
9469
  }
9280
9470
  default: {
9281
- const $21 = Commands_n__9675_2511_recombineIgnoreArgs($0, $1.a2);
9471
+ const $21 = Commands_n__9677_2511_recombineIgnoreArgs($0, $1.a2);
9282
9472
  return {a1: $21.a1, a2: {a1: $1.a1, a2: $21.a2}};
9283
9473
  }
9284
9474
  }
@@ -9287,26 +9477,26 @@ function Commands_n__9675_2511_recombineIgnoreArgs($0, $1) {
9287
9477
  switch($1.a2.h) {
9288
9478
  case 0: /* nil */ return {a1: {h: 0}, a2: {a1: '--ignore', a2: {h: 0}}};
9289
9479
  case undefined: /* cons */ {
9290
- const $2e = Commands_n__9675_2509_parseIgnoreOpt($0, $1.a2.a1);
9480
+ const $2e = Commands_n__9677_2509_parseIgnoreOpt($0, $1.a2.a1);
9291
9481
  switch($2e.h) {
9292
9482
  case undefined: /* just */ {
9293
- const $32 = Commands_n__9675_2511_recombineIgnoreArgs($0, $1.a2.a2);
9483
+ const $32 = Commands_n__9677_2511_recombineIgnoreArgs($0, $1.a2.a2);
9294
9484
  return {a1: {a1: $2e.a1, a2: $32.a1}, a2: $32.a2};
9295
9485
  }
9296
9486
  case 0: /* nothing */ {
9297
- const $3a = Commands_n__9675_2511_recombineIgnoreArgs($0, $1.a2.a2);
9487
+ const $3a = Commands_n__9677_2511_recombineIgnoreArgs($0, $1.a2.a2);
9298
9488
  return {a1: $3a.a1, a2: {a1: '--ignore', a2: {a1: $1.a2.a1, a2: $3a.a2}}};
9299
9489
  }
9300
9490
  }
9301
9491
  }
9302
9492
  default: {
9303
- const $44 = Commands_n__9675_2511_recombineIgnoreArgs($0, $1.a2);
9493
+ const $44 = Commands_n__9677_2511_recombineIgnoreArgs($0, $1.a2);
9304
9494
  return {a1: $44.a1, a2: {a1: $1.a1, a2: $44.a2}};
9305
9495
  }
9306
9496
  }
9307
9497
  }
9308
9498
  default: {
9309
- const $4c = Commands_n__9675_2511_recombineIgnoreArgs($0, $1.a2);
9499
+ const $4c = Commands_n__9677_2511_recombineIgnoreArgs($0, $1.a2);
9310
9500
  return {a1: $4c.a1, a2: {a1: $1.a1, a2: $4c.a2}};
9311
9501
  }
9312
9502
  }
@@ -9314,33 +9504,33 @@ function Commands_n__9675_2511_recombineIgnoreArgs($0, $1) {
9314
9504
  }
9315
9505
  }
9316
9506
 
9317
- /* Commands.9066:1922:putNameLn */
9318
- function Commands_n__9066_1922_putNameLn($0, $1, $2, $3) {
9507
+ /* Commands.9068:1922:putNameLn */
9508
+ function Commands_n__9068_1922_putNameLn($0, $1, $2, $3) {
9319
9509
  return Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_fillBreak(15, Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($3.a1))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_unsafeTextWithoutNewLines('-'), a2: {h: 0}}), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($3.a2), a2: {h: 0}}}});
9320
9510
  }
9321
9511
 
9322
- /* Commands.8387:1299:putLabels */
9323
- function Commands_n__8387_1299_putLabels($0, $1, $2, $3, $4) {
9324
- return Text_PrettyPrint_Prettyprinter_Doc_hcat(Data_List_intersperse(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(', '), Prelude_Types_List_mapAppend({h: 0}, $f => Commands_n__8387_1298_putLabel($0, $1, $2, $3, $f), $4)));
9512
+ /* Commands.8389:1299:putLabels */
9513
+ function Commands_n__8389_1299_putLabels($0, $1, $2, $3, $4) {
9514
+ return Text_PrettyPrint_Prettyprinter_Doc_hcat(Data_List_intersperse(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(', '), Prelude_Types_List_mapAppend({h: 0}, $f => Commands_n__8389_1298_putLabel($0, $1, $2, $3, $f), $4)));
9325
9515
  }
9326
9516
 
9327
- /* Commands.8387:1298:putLabel */
9328
- function Commands_n__8387_1298_putLabel($0, $1, $2, $3, $4) {
9517
+ /* Commands.8389:1298:putLabel */
9518
+ function Commands_n__8389_1298_putLabel($0, $1, $2, $3, $4) {
9329
9519
  return Text_PrettyPrint_Prettyprinter_Doc_enclose(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\"'), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\"'), Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String($4)));
9330
9520
  }
9331
9521
 
9332
- /* Commands.8742:1651:partitionedArgs */
9333
- function Commands_n__8742_1651_partitionedArgs($0, $1, $2, $3, $4) {
9522
+ /* Commands.8744:1651:partitionedArgs */
9523
+ function Commands_n__8744_1651_partitionedArgs($0, $1, $2, $3, $4) {
9334
9524
  return Commands_case__assignx2cpartitionedArgs_1663($0, $1, $2, $3, $4, Data_List_partition($e => Data_String_isPrefixOf('+', $e), $4));
9335
9525
  }
9336
9526
 
9337
- /* Commands.9516:2373:parseTeamArg */
9338
- function Commands_n__9516_2373_parseTeamArg($0, $1) {
9527
+ /* Commands.9518:2373:parseTeamArg */
9528
+ function Commands_n__9518_2373_parseTeamArg($0, $1) {
9339
9529
  return {a1: {a1: $1}};
9340
9530
  }
9341
9531
 
9342
- /* Commands.9675:2510:parseSkipArg */
9343
- function Commands_n__9675_2510_parseSkipArg($0, $1) {
9532
+ /* Commands.9677:2510:parseSkipArg */
9533
+ function Commands_n__9677_2510_parseSkipArg($0, $1) {
9344
9534
  const $2 = Prelude_Types_fastUnpack($1);
9345
9535
  switch($2.h) {
9346
9536
  case undefined: /* cons */ {
@@ -9353,15 +9543,15 @@ function Commands_n__9675_2510_parseSkipArg($0, $1) {
9353
9543
  }
9354
9544
  }
9355
9545
 
9356
- /* Commands.9675:2509:parseIgnoreOpt */
9357
- function Commands_n__9675_2509_parseIgnoreOpt($0, $1) {
9358
- const $2 = Data_String_split(csegen_324(), $1);
9546
+ /* Commands.9677:2509:parseIgnoreOpt */
9547
+ function Commands_n__9677_2509_parseIgnoreOpt($0, $1) {
9548
+ const $2 = Data_String_split(csegen_422(), $1);
9359
9549
  const $7 = Data_List1_last($2);
9360
9550
  return Prelude_Types_map_Functor_Maybe($c => $c, Data_String_parsePositive(csegen_2(), $7));
9361
9551
  }
9362
9552
 
9363
- /* Commands.9516:2372:parseCompletedFlag */
9364
- function Commands_n__9516_2372_parseCompletedFlag($0, $1) {
9553
+ /* Commands.9518:2372:parseCompletedFlag */
9554
+ function Commands_n__9518_2372_parseCompletedFlag($0, $1) {
9365
9555
  switch($1) {
9366
9556
  case '-c': return {a1: {h: 0}};
9367
9557
  case '--completed': return {a1: {h: 0}};
@@ -9369,8 +9559,8 @@ function Commands_n__9516_2372_parseCompletedFlag($0, $1) {
9369
9559
  }
9370
9560
  }
9371
9561
 
9372
- /* Commands.9675:2508:parseCheckoutFlag */
9373
- function Commands_n__9675_2508_parseCheckoutFlag($0, $1) {
9562
+ /* Commands.9677:2508:parseCheckoutFlag */
9563
+ function Commands_n__9677_2508_parseCheckoutFlag($0, $1) {
9374
9564
  switch($1) {
9375
9565
  case '-c': return {a1: {h: 0 /* Checkout */}};
9376
9566
  case '--checkout': return {a1: {h: 0 /* Checkout */}};
@@ -9378,13 +9568,13 @@ function Commands_n__9675_2508_parseCheckoutFlag($0, $1) {
9378
9568
  }
9379
9569
  }
9380
9570
 
9381
- /* Commands.10005:2847:isNotIgnored */
9382
- function Commands_n__10005_2847_isNotIgnored($0, $1, $2, $3, $4, $5) {
9571
+ /* Commands.10007:2847:isNotIgnored */
9572
+ function Commands_n__10007_2847_isNotIgnored($0, $1, $2, $3, $4, $5) {
9383
9573
  return Data_Maybe_isNothing(Data_List_find($a => Prelude_EqOrd_x3dx3d_Eq_Integer($a, $5.a1), $4.a12));
9384
9574
  }
9385
9575
 
9386
- /* Commands.9066:1921:forkedUser */
9387
- function Commands_n__9066_1921_forkedUser($0, $1, $2, $3) {
9576
+ /* Commands.9068:1921:forkedUser */
9577
+ function Commands_n__9068_1921_forkedUser($0, $1, $2, $3) {
9388
9578
  return FFI_Concurrency_fork(csegen_72(), ('user --json '+$3));
9389
9579
  }
9390
9580
 
@@ -9474,7 +9664,7 @@ function Commands_parseGraphArgs($0) {
9474
9664
  switch($0.a2.a2.h) {
9475
9665
  case undefined: /* cons */ return {h: 0 /* Left */, a1: 'graph accepts at most one team name and the --completed flag.'};
9476
9666
  default: {
9477
- const $6 = Prelude_Types_traverse_Traversable_List(csegen_9(), $b => Commands_x3cx7cx7cx3e(csegen_390(), $10 => Commands_n__9516_2372_parseCompletedFlag($0, $10), $15 => Commands_n__9516_2373_parseTeamArg($0, $15), $b), $0);
9667
+ const $6 = Prelude_Types_traverse_Traversable_List(csegen_9(), $b => Commands_x3cx7cx7cx3e(csegen_486(), $10 => Commands_n__9518_2372_parseCompletedFlag($0, $10), $15 => Commands_n__9518_2373_parseTeamArg($0, $15), $b), $0);
9478
9668
  switch($6.h) {
9479
9669
  case undefined: /* just */ return {h: 1 /* Right */, a1: $6.a1};
9480
9670
  case 0: /* nothing */ return {h: 0 /* Left */, a1: 'The graph command expects the name of a GitHub Team and optionally --completed as arguments.'};
@@ -9483,7 +9673,7 @@ function Commands_parseGraphArgs($0) {
9483
9673
  }
9484
9674
  }
9485
9675
  default: {
9486
- const $1d = Prelude_Types_traverse_Traversable_List(csegen_9(), $22 => Commands_x3cx7cx7cx3e(csegen_390(), $27 => Commands_n__9516_2372_parseCompletedFlag($0, $27), $2c => Commands_n__9516_2373_parseTeamArg($0, $2c), $22), $0);
9676
+ const $1d = Prelude_Types_traverse_Traversable_List(csegen_9(), $22 => Commands_x3cx7cx7cx3e(csegen_486(), $27 => Commands_n__9518_2372_parseCompletedFlag($0, $27), $2c => Commands_n__9518_2373_parseTeamArg($0, $2c), $22), $0);
9487
9677
  switch($1d.h) {
9488
9678
  case undefined: /* just */ return {h: 1 /* Right */, a1: $1d.a1};
9489
9679
  case 0: /* nothing */ return {h: 0 /* Left */, a1: 'The graph command expects the name of a GitHub Team and optionally --completed as arguments.'};
@@ -9492,7 +9682,7 @@ function Commands_parseGraphArgs($0) {
9492
9682
  }
9493
9683
  }
9494
9684
  default: {
9495
- const $34 = Prelude_Types_traverse_Traversable_List(csegen_9(), $39 => Commands_x3cx7cx7cx3e(csegen_390(), $3e => Commands_n__9516_2372_parseCompletedFlag($0, $3e), $43 => Commands_n__9516_2373_parseTeamArg($0, $43), $39), $0);
9685
+ const $34 = Prelude_Types_traverse_Traversable_List(csegen_9(), $39 => Commands_x3cx7cx7cx3e(csegen_486(), $3e => Commands_n__9518_2372_parseCompletedFlag($0, $3e), $43 => Commands_n__9518_2373_parseTeamArg($0, $43), $39), $0);
9496
9686
  switch($34.h) {
9497
9687
  case undefined: /* just */ return {h: 1 /* Right */, a1: $34.a1};
9498
9688
  case 0: /* nothing */ return {h: 0 /* Left */, a1: 'The graph command expects the name of a GitHub Team and optionally --completed as arguments.'};
@@ -9506,9 +9696,9 @@ function Commands_parseContributeArgs($0) {
9506
9696
  switch($0.h) {
9507
9697
  case 0: /* nil */ return {h: 1 /* Right */, a1: {h: 0}};
9508
9698
  default: {
9509
- const $3 = Commands_n__9675_2511_recombineIgnoreArgs($0, $0);
9699
+ const $3 = Commands_n__9677_2511_recombineIgnoreArgs($0, $0);
9510
9700
  const $7 = Prelude_Types_List_mapAppend({h: 0}, $b => ({h: 1 /* Ignore */, a1: $b}), $3.a1);
9511
- const $e = Prelude_Types_traverse_Traversable_List(csegen_9(), $13 => Commands_x3cx7cx7cx3e(csegen_390(), $18 => Commands_n__9675_2510_parseSkipArg($0, $18), $1d => Commands_n__9675_2508_parseCheckoutFlag($0, $1d), $13), $3.a2);
9701
+ const $e = Prelude_Types_traverse_Traversable_List(csegen_9(), $13 => Commands_x3cx7cx7cx3e(csegen_486(), $18 => Commands_n__9677_2510_parseSkipArg($0, $18), $1d => Commands_n__9677_2508_parseCheckoutFlag($0, $1d), $13), $3.a2);
9512
9702
  return Data_Either_maybeToEither(() => Commands_contributeUsageError(), Prelude_Types_map_Functor_Maybe($29 => Prelude_Types_List_tailRecAppend($7, $29), $e));
9513
9703
  }
9514
9704
  }
@@ -9516,14 +9706,14 @@ function Commands_parseContributeArgs($0) {
9516
9706
 
9517
9707
  /* Commands.list : Config => Octokit => String -> Promise () */
9518
9708
  function Commands_list($0, $1, $2, $3, $4) {
9519
- return Data_Promise_x3ex3ex3d_Monad_Promise($7 => $8 => Data_Promise_map_Functor_Promise(csegen_391(), $d => $e => FFI_GitHub_listTeamMembers($1, $0.a2, $2, $d, $e), $7, $8), teamMemberLogins => $19 => $1a => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Basics_flip(csegen_295(), csegen_392(), Prelude_Types_traverse_Traversable_List(csegen_64(), $27 => Commands_n__9066_1921_forkedUser($1, $2, $0, $27), teamMemberLogins)), teamMembersJson => $2f => $30 => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Types_traverse_Traversable_List(csegen_64(), $37 => $38 => Data_Promise_either(csegen_51(), Data_User_parseUser($37), $38), teamMembersJson), teamMembers => Util_renderIO($0, csegen_72(), Text_PrettyPrint_Prettyprinter_Doc_vsep(Prelude_Types_List_mapAppend({h: 0}, $4c => Commands_n__9066_1922_putNameLn($1, $2, $0, $4c), teamMembers))), $2f, $30), $19, $1a), $3, $4);
9709
+ return Data_Promise_x3ex3ex3d_Monad_Promise($7 => $8 => Data_Promise_map_Functor_Promise(csegen_487(), $d => $e => FFI_GitHub_listTeamMembers($1, $0.a2, $2, $d, $e), $7, $8), teamMemberLogins => $19 => $1a => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Basics_flip(csegen_393(), csegen_488(), Prelude_Types_traverse_Traversable_List(csegen_64(), $27 => Commands_n__9068_1921_forkedUser($1, $2, $0, $27), teamMemberLogins)), teamMembersJson => $2f => $30 => Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Types_traverse_Traversable_List(csegen_64(), $37 => $38 => Data_Promise_either(csegen_51(), Data_User_parseUser($37), $38), teamMembersJson), teamMembers => Util_renderIO($0, csegen_72(), Text_PrettyPrint_Prettyprinter_Doc_vsep(Prelude_Types_List_mapAppend({h: 0}, $4c => Commands_n__9068_1922_putNameLn($1, $2, $0, $4c), teamMembers))), $2f, $30), $19, $1a), $3, $4);
9520
9710
  }
9521
9711
 
9522
9712
  /* Commands.label : Config => Git => Octokit => List String -> Promise () */
9523
9713
  function Commands_label($0, $1, $2, $3, $4, $5) {
9524
9714
  const $20 = $21 => {
9525
9715
  const $23 = Prelude_Types_List_mapAppend({h: 0}, $27 => Commands_unslugifyLabel($0.a10, $27), $3);
9526
- return $2d => $2e => Data_Promise_x3ex3ex3d_Monad_Promise($31 => $32 => Label_addLabels($0, $2, $21.a2, $23, $31, $32), allLabels => Util_renderIO($0, csegen_72(), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Added'), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Commands_n__8387_1299_putLabels($1, $2, $3, $0, $23), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_unsafeTextWithoutNewLines(' to PR.'), a2: {h: 0}}))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_49(), $61 => $61, {a1: 'All labels for PR of ', a2: {a1: $21.a2.a7, a2: {a1: ':', a2: {h: 0}}}})), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Commands_n__8387_1299_putLabels($1, $2, $3, $0, allLabels), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_unsafeTextWithoutNewLines('.'), a2: {h: 0}}))), a2: {h: 0}}})), $2d, $2e);
9716
+ return $2d => $2e => Data_Promise_x3ex3ex3d_Monad_Promise($31 => $32 => Label_addLabels($0, $2, $21.a2, $23, $31, $32), allLabels => Util_renderIO($0, csegen_72(), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Added'), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Commands_n__8389_1299_putLabels($1, $2, $3, $0, $23), Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_unsafeTextWithoutNewLines(' to PR.'), a2: {h: 0}}))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_49(), $61 => $61, {a1: 'All labels for PR of ', a2: {a1: $21.a2.a7, a2: {a1: ':', a2: {h: 0}}}})), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Commands_n__8389_1299_putLabels($1, $2, $3, $0, allLabels), csegen_323())), a2: {h: 0}}})), $2d, $2e);
9527
9717
  };
9528
9718
  return Data_Promise_x3ex3ex3d_Monad_Promise($8 => $9 => Data_Promise_x3ex3ex3d_Monad_Promise($c => $d => FFI_Git_currentBranch($1, $c, $d), $13 => $14 => $15 => PullRequest_identifyOrCreatePR($0, $1, $2, 0, $13, $14, $15), $8, $9), $20, $4, $5);
9529
9719
  }
@@ -9586,14 +9776,14 @@ function Commands_contribute($0, $1, $2, $3, $4, $5) {
9586
9776
  }
9587
9777
  };
9588
9778
  const $53 = Prelude_Types_List_filterAppend({h: 0}, $56, $13);
9589
- const $5d = Prelude_Types_List_filterAppend({h: 0}, $61 => Commands_n__10005_2847_isNotIgnored($1, $2, $3, $0, configx27, $61), $53);
9779
+ const $5d = Prelude_Types_List_filterAppend({h: 0}, $61 => Commands_n__10007_2847_isNotIgnored($1, $2, $3, $0, configx27, $61), $53);
9590
9780
  const $6a = Data_List_partition($6d => Data_PullRequest_isRequestedReviewer(myLogin, $6d), $5d);
9591
- return Commands_case__contribute_3017($1, $2, $3, $0, openPrs, $13, myLogin, $2a, configx27, $40, $4d, $53, $5d, $6a, Prelude_Interfaces_mapHom({a1: d => b => c => a => $85 => $86 => $87 => ({a1: $85($87.a1), a2: $86($87.a2)}), a2: b => c => a => $90 => $91 => ({a1: $90($91.a1), a2: $91.a2}), a3: a => d => b => $98 => $99 => ({a1: $99.a1, a2: $98($99.a2)})}, $a0 => Data_List_sortBy(csegen_404(), $a0), $6a));
9781
+ return Commands_case__contribute_3017($1, $2, $3, $0, openPrs, $13, myLogin, $2a, configx27, $40, $4d, $53, $5d, $6a, Prelude_Interfaces_mapHom({a1: d => b => c => a => $85 => $86 => $87 => ({a1: $85($87.a1), a2: $86($87.a2)}), a2: b => c => a => $90 => $91 => ({a1: $90($91.a1), a2: $91.a2}), a3: a => d => b => $98 => $99 => ({a1: $99.a1, a2: $98($99.a2)})}, $a0 => Data_List_sortBy(csegen_498(), $a0), $6a));
9592
9782
  };
9593
9783
  return Data_Promise_x3ex3ex3d_Monad_Promise($30, $3f, $2d, $2e);
9594
9784
  };
9595
9785
  };
9596
- return Data_Promise_x3ex3ex3d_Monad_Promise($1f => $20 => Data_Promise_map_Functor_Promise(csegen_400(), FFI_GitHub_getSelf($2), $1f, $20), $29, $1b, $1c);
9786
+ return Data_Promise_x3ex3ex3d_Monad_Promise($1f => $20 => Data_Promise_map_Functor_Promise(csegen_494(), FFI_GitHub_getSelf($2), $1f, $20), $29, $1b, $1c);
9597
9787
  };
9598
9788
  };
9599
9789
  return Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_listPullRequests($2, $0.a2, $0.a3, {a1: 0}, 100n, 0n), $12, $4, $5);
@@ -9613,7 +9803,7 @@ function Commands_branch($0, $1, $2, $3) {
9613
9803
  /* Commands.assign : Config => Git => Octokit => List String -> {default False _ : Bool} ->
9614
9804
  Promise () */
9615
9805
  function Commands_assign($0, $1, $2, $3, $4) {
9616
- return Commands_case__assign_1766($0, $1, $2, $4, $3, Commands_n__8742_1651_partitionedArgs($0, $1, $2, $4, $3));
9806
+ return Commands_case__assign_1766($0, $1, $2, $4, $3, Commands_n__8744_1651_partitionedArgs($0, $1, $2, $4, $3));
9617
9807
  }
9618
9808
 
9619
9809
  /* Commands.(<||>) : Alternative t => (a -> t b) -> (a -> t b) -> a -> t b */
@@ -9623,7 +9813,7 @@ function Commands_x3cx7cx7cx3e($0, $1, $2, $3) {
9623
9813
 
9624
9814
  /* User.Reflect.case block in case block in reflectOnSelf */
9625
9815
  function User_Reflect_case__casex20blockx20inx20reflectOnSelf_1862($0, $1, $2, $3, $4, $5, $6, $7, $8, $9) {
9626
- const $b = Prelude_Interfaces_mapHom({a1: d => b => c => a => $f => $10 => $11 => ({a1: $f($11.a1), a2: $10($11.a2)}), a2: b => c => a => $1a => $1b => ({a1: $1a($1b.a1), a2: $1b.a2}), a3: a => d => b => $22 => $23 => ({a1: $23.a1, a2: $22($23.a2)})}, $2a => Data_List_headx27(Data_List_sort({a1: {a1: $31 => $32 => Data_Date_x3dx3d_Eq_Date($31, $32), a2: $37 => $38 => Data_Date_x2fx3d_Eq_Date($37, $38)}, a2: $3d => $3e => Data_Date_compare_Ord_Date($3d, $3e), a3: $43 => $44 => Data_Date_x3c_Ord_Date($43, $44), a4: $49 => $4a => Data_Date_x3e_Ord_Date($49, $4a), a5: $4f => $50 => Data_Date_x3cx3d_Ord_Date($4f, $50), a6: $55 => $56 => Data_Date_x3ex3d_Ord_Date($55, $56), a7: $5b => $5c => Data_Date_max_Ord_Date($5b, $5c), a8: $61 => $62 => Data_Date_min_Ord_Date($61, $62)}, Prelude_Types_List_mapAppend({h: 0}, csegen_417(), $2a))), {a1: $7, a2: $9.a1});
9816
+ const $b = Prelude_Interfaces_mapHom({a1: d => b => c => a => $f => $10 => $11 => ({a1: $f($11.a1), a2: $10($11.a2)}), a2: b => c => a => $1a => $1b => ({a1: $1a($1b.a1), a2: $1b.a2}), a3: a => d => b => $22 => $23 => ({a1: $23.a1, a2: $22($23.a2)})}, $2a => Data_List_headx27(Data_List_sort({a1: {a1: $31 => $32 => Data_Date_x3dx3d_Eq_Date($31, $32), a2: $37 => $38 => Data_Date_x2fx3d_Eq_Date($37, $38)}, a2: $3d => $3e => Data_Date_compare_Ord_Date($3d, $3e), a3: $43 => $44 => Data_Date_x3c_Ord_Date($43, $44), a4: $49 => $4a => Data_Date_x3e_Ord_Date($49, $4a), a5: $4f => $50 => Data_Date_x3cx3d_Ord_Date($4f, $50), a6: $55 => $56 => Data_Date_x3ex3d_Ord_Date($55, $56), a7: $5b => $5c => Data_Date_max_Ord_Date($5b, $5c), a8: $61 => $62 => Data_Date_min_Ord_Date($61, $62)}, Prelude_Types_List_mapAppend({h: 0}, csegen_511(), $2a))), {a1: $7, a2: $9.a1});
9627
9817
  return Util_renderIO($0, csegen_72(), User_Reflect_print(Prelude_Types_String_length(User_Reflect_intro()), Prelude_Types_List_lengthTR($4), Prelude_Types_List_lengthTR($9.a1), Prelude_Types_List_lengthTR($9.a2), Prelude_Types_List_lengthTR($8), Prelude_Types_List_lengthTR($7), $5, $b.a1, $b.a2));
9628
9818
  }
9629
9819
 
@@ -9706,21 +9896,21 @@ function User_Reflect_reflectOnSelf($0, $1, $2, $3) {
9706
9896
  const $c = prs => $d => $e => {
9707
9897
  const $1b = myLogin => $1c => $1d => {
9708
9898
  const $39 = reviews => {
9709
- const $3a = Prelude_Types_map_Functor_Maybe(csegen_420(), Data_List_headx27(Data_List_sortBy($43 => $44 => Prelude_Basics_on(csegen_402(), csegen_420(), $43, $44), reviews)));
9899
+ const $3a = Prelude_Types_map_Functor_Maybe(csegen_514(), Data_List_headx27(Data_List_sortBy($43 => $44 => Prelude_Basics_on(csegen_496(), csegen_514(), $43, $44), reviews)));
9710
9900
  const $4d = PullRequest_tuple(prs);
9711
9901
  const $50 = Prelude_Interfaces_mapHom({a1: d => b => c => a => $54 => $55 => $56 => ({a1: $54($56.a1), a2: $55($56.a2)}), a2: b => c => a => $5f => $60 => ({a1: $5f($60.a1), a2: $60.a2}), a3: a => d => b => $67 => $68 => ({a1: $68.a1, a2: $67($68.a2)})}, $6f => Prelude_Types_List_filterAppend({h: 0}, $73 => Prelude_EqOrd_x3dx3d_Eq_String($73.a4, myLogin), $6f), $4d);
9712
- return User_Reflect_case__casex20blockx20inx20reflectOnSelf_1862($0, $1, prs, myLogin, reviews, $3a, $4d, $50.a1, $50.a2, Prelude_Interfaces_mapHom({a1: d => b => c => a => $88 => $89 => $8a => ({a1: $88($8a.a1), a2: $89($8a.a2)}), a2: b => c => a => $93 => $94 => ({a1: $93($94.a1), a2: $94.a2}), a3: a => d => b => $9b => $9c => ({a1: $9c.a1, a2: $9b($9c.a2)})}, $a3 => Prelude_Types_List_filterAppend({h: 0}, $a7 => Prelude_Types_foldMap_Foldable_List(csegen_92(), $ac => Prelude_EqOrd_x3dx3d_Eq_String($ac, myLogin), $a7.a6), $a3), $4d));
9902
+ return User_Reflect_case__casex20blockx20inx20reflectOnSelf_1862($0, $1, prs, myLogin, reviews, $3a, $4d, $50.a1, $50.a2, Prelude_Interfaces_mapHom({a1: d => b => c => a => $88 => $89 => $8a => ({a1: $88($8a.a1), a2: $89($8a.a2)}), a2: b => c => a => $93 => $94 => ({a1: $93($94.a1), a2: $94.a2}), a3: a => d => b => $9b => $9c => ({a1: $9c.a1, a2: $9b($9c.a2)})}, $a3 => Prelude_Types_List_filterAppend({h: 0}, $a7 => Prelude_Types_foldMap_Foldable_List(csegen_94(), $ac => Prelude_EqOrd_x3dx3d_Eq_String($ac, myLogin), $a7.a6), $a3), $4d));
9713
9903
  };
9714
- return Data_Promise_x3ex3ex3d_Monad_Promise(PullRequest_reviewsByUser($0, $1, myLogin, Data_List_take(User_Reflect_reviewDetailsCount(), Prelude_Types_List_reverse(Data_List_sortBy($2d => $2e => Prelude_Basics_on(csegen_402(), csegen_417(), $2d, $2e), PullRequest_combined(prs))))), $39, $1c, $1d);
9904
+ return Data_Promise_x3ex3ex3d_Monad_Promise(PullRequest_reviewsByUser($0, $1, myLogin, Data_List_take(User_Reflect_reviewDetailsCount(), Prelude_Types_List_reverse(Data_List_sortBy($2d => $2e => Prelude_Basics_on(csegen_496(), csegen_511(), $2d, $2e), PullRequest_combined(prs))))), $39, $1c, $1d);
9715
9905
  };
9716
- return Data_Promise_x3ex3ex3d_Monad_Promise($11 => $12 => Data_Promise_map_Functor_Promise(csegen_400(), FFI_GitHub_getSelf($1), $11, $12), $1b, $d, $e);
9906
+ return Data_Promise_x3ex3ex3d_Monad_Promise($11 => $12 => Data_Promise_map_Functor_Promise(csegen_494(), FFI_GitHub_getSelf($1), $11, $12), $1b, $d, $e);
9717
9907
  };
9718
9908
  return Data_Promise_x3ex3ex3d_Monad_Promise(PullRequest_listPartitionedPRs($0, $1, 4n, User_Reflect_prCount()), $c, $2, $3);
9719
9909
  }
9720
9910
 
9721
9911
  /* User.Me.printInfoOnSelf : Config => Octokit => Git => Promise () */
9722
9912
  function User_Me_printInfoOnSelf($0, $1, $2, $3, $4) {
9723
- return Data_Promise_x3ex3ex3d_Monad_Promise($7 => $8 => Data_Promise_map_Functor_Promise($b => User_Me_n__7256_2135_handleUnsetEmail($0, $1, $2, $b), $12 => $13 => FFI_Git_userEmail($2, $12, $13), $7, $8), gitEmail => $1b => $1c => Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_getSelf($1), githubUser => $22 => $23 => Data_Promise_x3ex3ex3d_Monad_Promise($26 => $27 => Data_Promise_map_Functor_Promise(csegen_391(), $2c => $2d => FFI_GitHub_listMyTeams($1, $2c, $2d), $26, $27), githubTeams => Util_renderIO($0, csegen_72(), User_Me_print(gitEmail, githubUser, githubTeams)), $22, $23), $1b, $1c), $3, $4);
9913
+ return Data_Promise_x3ex3ex3d_Monad_Promise($7 => $8 => Data_Promise_map_Functor_Promise($b => User_Me_n__7256_2135_handleUnsetEmail($0, $1, $2, $b), $12 => $13 => FFI_Git_userEmail($2, $12, $13), $7, $8), gitEmail => $1b => $1c => Data_Promise_x3ex3ex3d_Monad_Promise(FFI_GitHub_getSelf($1), githubUser => $22 => $23 => Data_Promise_x3ex3ex3d_Monad_Promise($26 => $27 => Data_Promise_map_Functor_Promise(csegen_487(), $2c => $2d => FFI_GitHub_listMyTeams($1, $2c, $2d), $26, $27), githubTeams => Util_renderIO($0, csegen_72(), User_Me_print(gitEmail, githubUser, githubTeams)), $22, $23), $1b, $1c), $3, $4);
9724
9914
  }
9725
9915
 
9726
9916
  /* User.Reflect.print : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Maybe Date -> Maybe Date -> Maybe Date -> Doc AnsiStyle */
@@ -9757,8 +9947,8 @@ function User_Reflect_header($0) {
9757
9947
  function User_Reflect_graph($0, $1, $2, $3, $4, $5) {
9758
9948
  const $6 = ($2+$3);
9759
9949
  const $9 = ($5+$4);
9760
- const $c = Prelude_Types_foldr_Foldable_List(csegen_199(), Prelude_Types_String_length(User_Reflect_leftTitle()), {a1: ($6+$1), a2: {a1: $9, a2: {h: 0}}});
9761
- const $1b = Prelude_Types_foldr_Foldable_List(csegen_199(), Prelude_Types_String_length(User_Reflect_rightTitle()), {a1: $6, a2: {a1: $9, a2: {h: 0}}});
9950
+ const $c = Prelude_Types_foldr_Foldable_List(csegen_201(), Prelude_Types_String_length(User_Reflect_leftTitle()), {a1: ($6+$1), a2: {a1: $9, a2: {h: 0}}});
9951
+ const $1b = Prelude_Types_foldr_Foldable_List(csegen_201(), Prelude_Types_String_length(User_Reflect_rightTitle()), {a1: $6, a2: {a1: $9, a2: {h: 0}}});
9762
9952
  const $28 = (($c+$1b)+3n);
9763
9953
  const $2d = ((Number($0)/2.0)-(Number($28)/2.0));
9764
9954
  const $36 = (Prelude_Types_prim__integerToNat(BigInt(Math.trunc($2d)))+Prelude_Types_prim__integerToNat(($c-Prelude_Types_String_length(User_Reflect_leftTitle()))));
@@ -9768,7 +9958,7 @@ function User_Reflect_graph($0, $1, $2, $3, $4, $5) {
9768
9958
 
9769
9959
  /* User.Reflect.details : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Maybe Date -> Maybe Date -> Maybe Date -> Doc AnsiStyle */
9770
9960
  function User_Reflect_details($0, $1, $2, $3, $4, $5, $6, $7, $8) {
9771
- return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(User_Reflect_intro()), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_underline(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Requested Reviews:')), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_vsep(Data_List_catMaybes({a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('unreviewed:')}, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_vsep(Data_List_catMaybes({a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('open:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Nat($2)), a2: {h: 0}}})}, a2: {a1: Prelude_Types_map_Functor_Maybe(csegen_426(), $8), a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('closed:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(1), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Nat($3)), a2: {h: 0}}})}, a2: {h: 0}}}})))}, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('reviews*:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Nat($1)), a2: {h: 0}}})}, a2: {a1: Prelude_Types_map_Functor_Maybe(date => Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('most recent:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Data_Date_show_Show_Date(date)), a2: {h: 0}}})), $6), a2: {h: 0}}}}}))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_underline(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Authored Pulls:')), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_vsep(Data_List_catMaybes({a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('open:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Nat($5)), a2: {h: 0}}})}, a2: {a1: Prelude_Types_map_Functor_Maybe(csegen_426(), $7), a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('closed:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Nat($4)), a2: {h: 0}}})}, a2: {h: 0}}}}))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_49(), $cf => $cf, {a1: '*review count (not PR count) of most recent ', a2: {a1: Data_Fin_show_Show_x28Finx20x24nx29(User_Reflect_reviewDetailsCount()), a2: {a1: ' PRs.', a2: {h: 0}}}}))), a2: {h: 0}}}}}}}}}});
9961
+ return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(User_Reflect_intro()), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_underline(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Requested Reviews:')), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_vsep(Data_List_catMaybes({a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('unreviewed:')}, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_vsep(Data_List_catMaybes({a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('open:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Nat($2)), a2: {h: 0}}})}, a2: {a1: Prelude_Types_map_Functor_Maybe(csegen_520(), $8), a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('closed:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(1), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Nat($3)), a2: {h: 0}}})}, a2: {h: 0}}}})))}, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('reviews*:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Nat($1)), a2: {h: 0}}})}, a2: {a1: Prelude_Types_map_Functor_Maybe(date => Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('most recent:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Data_Date_show_Show_Date(date)), a2: {h: 0}}})), $6), a2: {h: 0}}}}}))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_underline(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Authored Pulls:')), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_indent(2, Text_PrettyPrint_Prettyprinter_Doc_vsep(Data_List_catMaybes({a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('open:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Nat($5)), a2: {h: 0}}})}, a2: {a1: Prelude_Types_map_Functor_Maybe(csegen_520(), $7), a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_hsep({a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('closed:'), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_Nat($4)), a2: {h: 0}}})}, a2: {h: 0}}}}))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_49(), $cf => $cf, {a1: '*review count (not PR count) of most recent ', a2: {a1: Data_Fin_show_Show_x28Finx20x24nx29(User_Reflect_reviewDetailsCount()), a2: {a1: ' PRs.', a2: {h: 0}}}}))), a2: {h: 0}}}}}}}}}});
9772
9962
  }
9773
9963
 
9774
9964
  /* User.Reflect.chart : Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Nat -> Doc AnsiStyle */
@@ -9906,7 +10096,7 @@ function PullRequest_n__10180_2627_editorDescription($0, $1, $2, $3, $4, $5, $6,
9906
10096
 
9907
10097
  /* PullRequest.9490:1962:csv */
9908
10098
  function PullRequest_n__9490_1962_csv($0, $1, $2, $3, $4, $5, $6) {
9909
- 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}, csegen_294(), $6)));
10099
+ 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)));
9910
10100
  }
9911
10101
 
9912
10102
  /* PullRequest.10180:2626:createPR */
@@ -9955,7 +10145,7 @@ function PullRequest_n__10180_2626_createPR($0, $1, $2, $3, $4, $5, $6) {
9955
10145
  };
9956
10146
  return Data_Promise_x3ex3ex3d_Monad_Promise($16f => $170 => Util_relativeToRoot($0, '.github/PULL_REQUEST_TEMPLATE.md', $16f, $170), $176, $16b, $16c);
9957
10147
  };
9958
- return Data_Promise_x3ex3ex3d_Monad_Promise($15d => $15e => Data_Promise_map_Functor_Promise($161 => ($13b+Data_String_trim($161)), csegen_358(), $15d, $15e), $16a, $159, $15a);
10148
+ return Data_Promise_x3ex3ex3d_Monad_Promise($15d => $15e => Data_Promise_map_Functor_Promise($161 => ($13b+Data_String_trim($161)), csegen_456(), $15d, $15e), $16a, $159, $15a);
9959
10149
  };
9960
10150
  return Data_Promise_x3ex3ex3d_Monad_Promise($14b => $14c => $14d => Data_Promise_liftIO_HasIO_Promise($150 => Prelude_IO_prim__putStr($13b, $150), $14b, $14c, $14d), $157, $147, $148);
9961
10151
  };
@@ -9964,7 +10154,7 @@ function PullRequest_n__10180_2626_createPR($0, $1, $2, $3, $4, $5, $6) {
9964
10154
  return Data_Promise_x3ex3ex3d_Monad_Promise($12c => $12d => $12e => Data_Promise_liftIO_HasIO_Promise($131 => Prelude_IO_prim__putStr('What would you like the title to be?\n', $131), $12c, $12d, $12e), $138, $128, $129);
9965
10155
  };
9966
10156
  };
9967
- return Data_Promise_x3ex3ex3d_Monad_Promise($10f => $110 => Data_Promise_map_Functor_Promise($113 => Data_String_trim($113), csegen_358(), $10f, $110), $11a, $10b, $10c);
10157
+ return Data_Promise_x3ex3ex3d_Monad_Promise($10f => $110 => Data_Promise_map_Functor_Promise($113 => Data_String_trim($113), csegen_456(), $10f, $110), $11a, $10b, $10c);
9968
10158
  };
9969
10159
  return Data_Promise_x3ex3ex3d_Monad_Promise($ee => $ef => $f0 => Data_Promise_liftIO_HasIO_Promise($f3 => Prelude_IO_prim__putStr((Prelude_Types_foldMap_Foldable_List(csegen_49(), $fb => $fb, {a1: 'What branch are you merging into (ENTER for default: ', a2: {a1: $4.a5, a2: {a1: ')?', a2: {h: 0}}}})+'\n'), $f3), $ee, $ef, $f0), $109, $ea, $eb);
9970
10160
  };
@@ -9989,7 +10179,7 @@ function PullRequest_n__10180_2626_createPR($0, $1, $2, $3, $4, $5, $6) {
9989
10179
  function PullRequest_n__10180_2625_continueGivenUncommittedChanges($0, $1, $2, $3, $4, $5, $6) {
9990
10180
  const $f = $10 => $11 => $12 => {
9991
10181
  switch($10.h) {
9992
- case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_Promise($16 => $17 => $18 => Data_Promise_liftIO_HasIO_Promise($1b => Prelude_IO_prim__putStr('The following files have uncommitted changes:\n', $1b), $16, $17, $18), $23 => $24 => $25 => Data_Promise_x3ex3ex3d_Monad_Promise($28 => $29 => $2a => Data_Promise_liftIO_HasIO_Promise($2d => Prelude_IO_prim__putStr(($10.a1+'\n'), $2d), $28, $29, $2a), csegen_455(), $24, $25), $11, $12);
10182
+ case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_Promise($16 => $17 => $18 => Data_Promise_liftIO_HasIO_Promise($1b => Prelude_IO_prim__putStr('The following files have uncommitted changes:\n', $1b), $16, $17, $18), $23 => $24 => $25 => Data_Promise_x3ex3ex3d_Monad_Promise($28 => $29 => $2a => Data_Promise_liftIO_HasIO_Promise($2d => Prelude_IO_prim__putStr(($10.a1+'\n'), $2d), $28, $29, $2a), csegen_550(), $24, $25), $11, $12);
9993
10183
  case 0: /* nothing */ return Data_Promise_pure_Applicative_Promise(1, $11, $12);
9994
10184
  }
9995
10185
  };
@@ -10000,7 +10190,7 @@ function PullRequest_n__10180_2625_continueGivenUncommittedChanges($0, $1, $2, $
10000
10190
  function PullRequest_n__10180_2624_continueGivenStagedChanges($0, $1, $2, $3, $4, $5, $6) {
10001
10191
  const $f = $10 => $11 => $12 => {
10002
10192
  switch($10.h) {
10003
- case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_Promise($16 => $17 => $18 => Data_Promise_liftIO_HasIO_Promise($1b => Prelude_IO_prim__putStr('The following files have staged but uncommitted changes:\n', $1b), $16, $17, $18), $23 => $24 => $25 => Data_Promise_x3ex3ex3d_Monad_Promise($28 => $29 => $2a => Data_Promise_liftIO_HasIO_Promise($2d => Prelude_IO_prim__putStr(($10.a1+'\n'), $2d), $28, $29, $2a), csegen_455(), $24, $25), $11, $12);
10193
+ case undefined: /* just */ return Data_Promise_x3ex3ex3d_Monad_Promise($16 => $17 => $18 => Data_Promise_liftIO_HasIO_Promise($1b => Prelude_IO_prim__putStr('The following files have staged but uncommitted changes:\n', $1b), $16, $17, $18), $23 => $24 => $25 => Data_Promise_x3ex3ex3d_Monad_Promise($28 => $29 => $2a => Data_Promise_liftIO_HasIO_Promise($2d => Prelude_IO_prim__putStr(($10.a1+'\n'), $2d), $28, $29, $2a), csegen_550(), $24, $25), $11, $12);
10004
10194
  case 0: /* nothing */ return Data_Promise_pure_Applicative_Promise(1, $11, $12);
10005
10195
  }
10006
10196
  };
@@ -10044,7 +10234,7 @@ function PullRequest_reviewsForPrs($0, $1, $2, $3, $4) {
10044
10234
  };
10045
10235
  return Data_Promise_x3ex3ex3d_Monad_Promise($1c, reviews => $43 => $44 => Data_Promise_pure_Applicative_Promise(Prelude_Types_join_Monad_List(reviews), $43, $44), $19, $1a);
10046
10236
  };
10047
- return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Basics_flip(csegen_295(), csegen_392(), Prelude_Types_traverse_Traversable_List(csegen_64(), $11 => PullRequest_n__9263_1704_forkedReviews($0, $1, $2, $11), $2)), $18, $3, $4);
10237
+ return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Basics_flip(csegen_393(), csegen_488(), Prelude_Types_traverse_Traversable_List(csegen_64(), $11 => PullRequest_n__9263_1704_forkedReviews($0, $1, $2, $11), $2)), $18, $3, $4);
10048
10238
  }
10049
10239
 
10050
10240
  /* PullRequest.reviewsByUser : Config => Octokit => String -> List PullRequest -> Promise (List Review) */
@@ -10074,9 +10264,9 @@ function PullRequest_reviewsByUser($0, $1, $2, $3) {
10074
10264
  List PullRequest -> Promise (SortedMap String (List Review)) */
10075
10265
  function PullRequest_reviewsByEachUser($0, $1, $2, $3, $4) {
10076
10266
  const $f = reviews => {
10077
- const $10 = Data_List_groupAllWith(csegen_210(), $15 => $15.a2, reviews);
10267
+ const $10 = Data_List_groupAllWith(csegen_212(), $15 => $15.a2, reviews);
10078
10268
  const $18 = Prelude_Types_List_mapAppend({h: 0}, rs => ({a1: rs.a1.a2, a2: Data_List1_forget(rs)}), $10);
10079
- return $23 => $24 => Data_Promise_pure_Applicative_Promise(Data_SortedMap_fromList(csegen_210(), $18), $23, $24);
10269
+ return $23 => $24 => Data_Promise_pure_Applicative_Promise(Data_SortedMap_fromList(csegen_212(), $18), $23, $24);
10080
10270
  };
10081
10271
  return Data_Promise_x3ex3ex3d_Monad_Promise($7 => $8 => PullRequest_reviewsForPrs($0, $1, $2, $7, $8), $f, $3, $4);
10082
10272
  }
@@ -10090,12 +10280,12 @@ function PullRequest_requestReviewers($0, $1, $2, $3, $4, $5, $6, $7) {
10090
10280
  let $37;
10091
10281
  switch($0.a7) {
10092
10282
  case 1: {
10093
- const $3a = Reviewer_chooseReviewers(csegen_210(), $14.a2, $14.a1, teamMembers, {h: 0}, $2.a4);
10283
+ const $3a = Reviewer_chooseReviewers(csegen_212(), $14.a2, $14.a1, teamMembers, {h: 0}, $2.a4);
10094
10284
  $37 = Reviewer_randomReviewer(csegen_72(), $3a);
10095
10285
  break;
10096
10286
  }
10097
10287
  case 0: {
10098
- $37 = csegen_360();
10288
+ $37 = csegen_458();
10099
10289
  break;
10100
10290
  }
10101
10291
  }
@@ -10214,12 +10404,12 @@ function PullRequest_listx27($0, $1, $2, $3) {
10214
10404
  }
10215
10405
  };
10216
10406
  const $4d = {a1: $4e, a2: a => $56 => ({h: 1 /* Right */, a1: $56}), a3: $58};
10217
- const $4b = Prelude_Types_traverse_Traversable_List($4d, csegen_315(), prJsons);
10407
+ const $4b = Prelude_Types_traverse_Traversable_List($4d, csegen_413(), prJsons);
10218
10408
  return Data_Promise_either(csegen_51(), $4b, $47);
10219
10409
  };
10220
10410
  return Data_Promise_x3ex3ex3d_Monad_Promise($46, pulls => $67 => $68 => Data_Promise_pure_Applicative_Promise(Prelude_Types_join_Monad_List(pulls), $67, $68), $43, $44);
10221
10411
  };
10222
- return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Basics_flip(csegen_295(), $a => $b => $c => FFI_Concurrency_promiseAll({a1: acc => elem => func => init => input => Data_Pagination_foldr_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29(func, init, input), a2: elem => acc => func => init => input => Data_Pagination_foldl_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29(func, init, input), a3: elem => $1a => Data_Pagination_null_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($1a), a4: elem => acc => m => $1e => funcM => init => input => Data_Pagination_foldlM_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($1e, funcM, init, input), a5: elem => $25 => Data_Pagination_toList_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($25), a6: a => m => $29 => f => $2a => Data_Pagination_foldMap_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($29, f, $2a)}, $a, $b, $c), Data_Pagination_traversex27(csegen_64(), $37 => $38 => $39 => $3a => PullRequest_forkedPRs($0, $37, $38, $39, $3a), $1)), $42, $2, $3);
10412
+ return Data_Promise_x3ex3ex3d_Monad_Promise(Prelude_Basics_flip(csegen_393(), $a => $b => $c => FFI_Concurrency_promiseAll({a1: acc => elem => func => init => input => Data_Pagination_foldr_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29(func, init, input), a2: elem => acc => func => init => input => Data_Pagination_foldl_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29(func, init, input), a3: elem => $1a => Data_Pagination_null_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($1a), a4: elem => acc => m => $1e => funcM => init => input => Data_Pagination_foldlM_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($1e, funcM, init, input), a5: elem => $25 => Data_Pagination_toList_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($25), a6: a => m => $29 => f => $2a => Data_Pagination_foldMap_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($29, f, $2a)}, $a, $b, $c), Data_Pagination_traversex27(csegen_64(), $37 => $38 => $39 => $3a => PullRequest_forkedPRs($0, $37, $38, $39, $3a), $1)), $42, $2, $3);
10223
10413
  }
10224
10414
 
10225
10415
  /* PullRequest.identifyOrCreatePR : Config => Git => Octokit => {default False _ : Bool} ->
@@ -10478,7 +10668,7 @@ function Data_SortedMap_insert($0, $1, $2) {
10478
10668
 
10479
10669
  /* Data.SortedMap.fromList : Ord k => List (k, v) -> SortedMap k v */
10480
10670
  function Data_SortedMap_fromList($0, $1) {
10481
- return Prelude_Basics_flip($4 => $5 => Data_SortedMap_insertFrom(csegen_142(), $4, $5), Data_SortedMap_empty($0), $1);
10671
+ return Prelude_Basics_flip($4 => $5 => Data_SortedMap_insertFrom(csegen_144(), $4, $5), Data_SortedMap_empty($0), $1);
10482
10672
  }
10483
10673
 
10484
10674
  /* Data.SortedMap.empty : Ord k => SortedMap k v */
@@ -10656,7 +10846,7 @@ function Data_Pagination_with__lemma_7043($0, $1, $2, $3, $4) {
10656
10846
 
10657
10847
  /* Data.Pagination.toList */
10658
10848
  function Data_Pagination_toList_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($0) {
10659
- return Data_Pagination_foldr_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29(csegen_89(), {h: 0}, $0);
10849
+ return Data_Pagination_foldr_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29(csegen_91(), {h: 0}, $0);
10660
10850
  }
10661
10851
 
10662
10852
  /* Data.Pagination.null */
@@ -10674,7 +10864,7 @@ function Data_Pagination_foldr_Foldable_x28x28x28Paginationx20x24itemsx29x20x24p
10674
10864
 
10675
10865
  /* Data.Pagination.foldl */
10676
10866
  function Data_Pagination_foldl_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($0, $1, $2) {
10677
- return Data_Pagination_foldr_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($6 => $7 => Prelude_Basics_flip(csegen_90(), $c => Prelude_Basics_flip($0, $6, $c), $7), $13 => $13, $2)($1);
10867
+ return Data_Pagination_foldr_Foldable_x28x28x28Paginationx20x24itemsx29x20x24perPagex29x20x24pagex29($6 => $7 => Prelude_Basics_flip(csegen_92(), $c => Prelude_Basics_flip($0, $6, $c), $7), $13 => $13, $2)($1);
10678
10868
  }
10679
10869
 
10680
10870
  /* Data.Pagination.foldlM */
@@ -10771,31 +10961,36 @@ function Label_addLabels($0, $1, $2, $3, $4, $5) {
10771
10961
  return FFI_GitHub_addPullLabels($1, $0.a2, $0.a3, $2.a1, $3, $4, $5);
10772
10962
  }
10773
10963
 
10774
- /* Graph.6327:2330:yellowDot */
10775
- function Graph_n__6327_2330_yellowDot($0, $1, $2, $3, $4, $5) {
10964
+ /* Graph.6343:6625:yellowDot */
10965
+ function Graph_n__6343_6625_yellowDot($0, $1, $2, $3, $4, $5) {
10776
10966
  return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(3), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{b7}'));
10777
10967
  }
10778
10968
 
10779
- /* Graph.6327:2329:redDot */
10780
- function Graph_n__6327_2329_redDot($0, $1, $2, $3, $4, $5) {
10969
+ /* Graph.6343:6624:redDot */
10970
+ function Graph_n__6343_6624_redDot($0, $1, $2, $3, $4, $5) {
10781
10971
  return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(1), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{25e6}'));
10782
10972
  }
10783
10973
 
10784
- /* Graph.6327:2328:maxValue */
10785
- function Graph_n__6327_2328_maxValue($0, $1, $2, $3, $4, $5, $6) {
10974
+ /* Graph.6343:6623:note */
10975
+ function Graph_n__6343_6623_note($0, $1, $2, $3, $4, $5, $6) {
10976
+ return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_bold(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Note:')), $6);
10977
+ }
10978
+
10979
+ /* Graph.6343:6622:maxValue */
10980
+ function Graph_n__6343_6622_maxValue($0, $1, $2, $3, $4, $5, $6) {
10786
10981
  switch($6.h) {
10787
10982
  case 0: /* nil */ return 0n;
10788
- case undefined: /* cons */ return Prelude_Types_max_Ord_Nat($6.a1.a2, Graph_n__6327_2328_maxValue($0, $1, $2, $3, $4, $5, $6.a2));
10983
+ case undefined: /* cons */ return Prelude_Types_max_Ord_Nat($6.a1.a2, Graph_n__6343_6622_maxValue($0, $1, $2, $3, $4, $5, $6.a2));
10789
10984
  }
10790
10985
  }
10791
10986
 
10792
- /* Graph.5936:1937:link */
10793
- function Graph_n__5936_1937_link($0, $1, $2) {
10987
+ /* Graph.5952:6230:link */
10988
+ function Graph_n__5952_6230_link($0, $1, $2) {
10794
10989
  return Prelude_Types_foldMap_Foldable_List(csegen_49(), $7 => $7, {a1: 'https://github.com/', a2: {a1: $1, a2: {a1: '/', a2: {a1: $0, a2: {a1: '/pulls?q=is%3Apr+is%3Aopen+sort%3Acreated-asc', a2: {h: 0}}}}}});
10795
10990
  }
10796
10991
 
10797
- /* Graph.6327:2327:header */
10798
- function Graph_n__6327_2327_header($0, $1, $2, $3, $4, $5) {
10992
+ /* Graph.6343:6621:header */
10993
+ function Graph_n__6343_6621_header($0, $1, $2, $3, $4, $5) {
10799
10994
  let $35;
10800
10995
  switch(Prelude_Types_null_Foldable_Maybe($2)) {
10801
10996
  case 1: {
@@ -10803,44 +10998,49 @@ function Graph_n__6327_2327_header($0, $1, $2, $3, $4, $5) {
10803
10998
  break;
10804
10999
  }
10805
11000
  case 0: {
10806
- $35 = {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('1x the number of completed reviews'), Text_PrettyPrint_Prettyprinter_Symbols_parens(Graph_n__6327_2326_greenBox($0, $1, $2, $3, $4, $5)))};
11001
+ $35 = {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('1x the number of completed reviews'), Text_PrettyPrint_Prettyprinter_Symbols_parens(Graph_n__6343_6620_greenBox($0, $1, $2, $3, $4, $5)))};
10807
11002
  break;
10808
11003
  }
10809
11004
  }
10810
- const $34 = {a1: $35, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Symbols_parens(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Graph_n__6327_2329_redDot($0, $1, $2, $3, $4, $5), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('overlayed on'), Graph_n__6327_2330_yellowDot($0, $1, $2, $3, $4, $5))))}, a2: csegen_502()}};
10811
- const $23 = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('1x the number of closed PRs with unanswered review requests'), Text_PrettyPrint_Prettyprinter_Symbols_parens(Graph_n__6327_2329_redDot($0, $1, $2, $3, $4, $5)))}, a2: $34};
10812
- const $12 = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('4x the number of open review requests'), Text_PrettyPrint_Prettyprinter_Symbols_parens(Graph_n__6327_2330_yellowDot($0, $1, $2, $3, $4, $5)))}, a2: $23};
11005
+ const $34 = {a1: $35, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Symbols_parens(Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Graph_n__6343_6624_redDot($0, $1, $2, $3, $4, $5), Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('overlayed on'), Graph_n__6343_6625_yellowDot($0, $1, $2, $3, $4, $5))))}, a2: csegen_597()}};
11006
+ const $23 = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('1x the number of closed PRs with unanswered review requests'), Text_PrettyPrint_Prettyprinter_Symbols_parens(Graph_n__6343_6624_redDot($0, $1, $2, $3, $4, $5)))}, a2: $34};
11007
+ const $12 = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('4x the number of open review requests'), Text_PrettyPrint_Prettyprinter_Symbols_parens(Graph_n__6343_6625_yellowDot($0, $1, $2, $3, $4, $5)))}, a2: $23};
10813
11008
  const $d = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Weighted review workload.')}, a2: $12};
10814
11009
  const $9 = {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2: $d};
10815
11010
  const $7 = Data_List_catMaybes($9);
10816
11011
  return Text_PrettyPrint_Prettyprinter_Doc_vsep($7);
10817
11012
  }
10818
11013
 
10819
- /* Graph.5936:1936:header */
10820
- function Graph_n__5936_1936_header($0, $1, $2) {
10821
- return Text_PrettyPrint_Prettyprinter_Doc_vsep(Data_List_catMaybes({a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Open Pull Requests grouped by month created.')}, a2: csegen_502()}}));
11014
+ /* Graph.5952:6229:header */
11015
+ function Graph_n__5952_6229_header($0, $1, $2) {
11016
+ return Text_PrettyPrint_Prettyprinter_Doc_vsep(Data_List_catMaybes({a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('Open Pull Requests grouped by month created.')}, a2: {a1: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc()}, a2: csegen_597()}}}));
10822
11017
  }
10823
11018
 
10824
- /* Graph.6327:2326:greenBox */
10825
- function Graph_n__6327_2326_greenBox($0, $1, $2, $3, $4, $5) {
11019
+ /* Graph.6343:6620:greenBox */
11020
+ function Graph_n__6343_6620_greenBox($0, $1, $2, $3, $4, $5) {
10826
11021
  return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('\u{25aa}'));
10827
11022
  }
10828
11023
 
10829
- /* Graph.5936:1935:graphable */
10830
- function Graph_n__5936_1935_graphable($0, $1, $2, $3) {
11024
+ /* Graph.5952:6228:graphable */
11025
+ function Graph_n__5952_6228_graphable($0, $1, $2, $3) {
10831
11026
  return {a1: $3.a1.a2, a2: (Prelude_Types_List_lengthTR($3.a2)+1n)};
10832
11027
  }
10833
11028
 
10834
- /* Graph.5444:1524:countInParens */
10835
- function Graph_n__5444_1524_countInParens($0, $1) {
11029
+ /* Graph.6343:6619:footer */
11030
+ function Graph_n__6343_6619_footer($0, $1, $2, $3, $4, $5) {
11031
+ return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Graph_n__6343_6623_note($0, $1, $2, $3, $4, $5, Text_PrettyPrint_Prettyprinter_Util_reflow(Prelude_Types_foldMap_Foldable_List(csegen_49(), $1a => $1a, {a1: 'It is a strongly held opinion of Harmony that the above graph is not a measure of each developers\' productivity.\nIt is a proxy for each developers\' existing PR review workload that may help to understand how Harmony is\nchoosing reviewers or similarly help one developer decide which other developers have capacity to help review\ntheir work.', a2: {h: 0}}))), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {h: 0}}}});
11032
+ }
11033
+
11034
+ /* Graph.5460:5817:countInParens */
11035
+ function Graph_n__5460_5817_countInParens($0, $1) {
10836
11036
  switch(Prelude_Types_x3e_Ord_Nat($1.a2, 4n)) {
10837
11037
  case 1: return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_italic(), Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Prelude_Types_foldMap_Foldable_List(csegen_49(), $11 => $11, {a1: '(', a2: {a1: Prelude_Show_show_Show_Nat($1.a2), a2: {a1: ')', a2: {h: 0}}}})));
10838
11038
  case 0: return Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String('');
10839
11039
  }
10840
11040
  }
10841
11041
 
10842
- /* Graph.5444:1523:coloredLabel */
10843
- function Graph_n__5444_1523_coloredLabel($0, $1) {
11042
+ /* Graph.5460:5816:coloredLabel */
11043
+ function Graph_n__5460_5816_coloredLabel($0, $1) {
10844
11044
  switch((($1.a2===0n)?1:0)) {
10845
11045
  case 1: return Text_PrettyPrint_Prettyprinter_Doc_annotate(Text_PrettyPrint_Prettyprinter_Render_Terminal_color(2), $0.a1(undefined)($1.a1));
10846
11046
  case 0: {
@@ -10857,8 +11057,8 @@ function Graph_n__5444_1523_coloredLabel($0, $1) {
10857
11057
  }
10858
11058
  }
10859
11059
 
10860
- /* Graph.6327:2325:augment */
10861
- function Graph_n__6327_2325_augment($0, $1, $2, $3, $4, $5, $6, $7) {
11060
+ /* Graph.6343:6618:augment */
11061
+ function Graph_n__6343_6618_augment($0, $1, $2, $3, $4, $5, $6, $7) {
10862
11062
  return {a1: $7, a2: Prelude_Types_maybe(() => 0n, () => $d => $d, Data_SortedMap_lookup($7.a1, $6))};
10863
11063
  }
10864
11064
 
@@ -10894,7 +11094,7 @@ function Graph_prettyPrec_Pretty_Date($0, $1) {
10894
11094
 
10895
11095
  /* Graph.label */
10896
11096
  function Graph_label_Graphable_x28PRsOnDatex20x24dateTyx29($0, $1) {
10897
- return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Graph_n__5444_1523_coloredLabel($0, $1), Graph_n__5444_1524_countInParens($0, $1));
11097
+ return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx2bx3e(Graph_n__5460_5816_coloredLabel($0, $1), Graph_n__5460_5817_countInParens($0, $1));
10898
11098
  }
10899
11099
 
10900
11100
  /* Graph.label */
@@ -10933,11 +11133,11 @@ function Graph_reviewsGraph($0, $1, $2, $3, $4, $5) {
10933
11133
  break;
10934
11134
  }
10935
11135
  case undefined: /* just */ {
10936
- $15 = Prelude_Types_List_mapAppend({h: 0}, $27 => Graph_n__6327_2325_augment($0, $1, $5, $4, $3, $2, $5.a1, $27), $6);
11136
+ $15 = Prelude_Types_List_mapAppend({h: 0}, $27 => Graph_n__6343_6618_augment($0, $1, $5, $4, $3, $2, $5.a1, $27), $6);
10937
11137
  break;
10938
11138
  }
10939
11139
  }
10940
- const $32 = Prelude_Types_maybe(() => 0n, () => $36 => $36, Prelude_Types_map_Functor_Maybe($3a => Graph_n__6327_2328_maxValue($0, $1, $5, $4, $3, $2, Data_SortedMap_toList($3a)), $5));
11140
+ const $32 = Prelude_Types_maybe(() => 0n, () => $36 => $36, Prelude_Types_map_Functor_Maybe($3a => Graph_n__6343_6622_maxValue($0, $1, $5, $4, $3, $2, Data_SortedMap_toList($3a)), $5));
10941
11141
  switch($6.h) {
10942
11142
  case 0: /* nil */ return Text_PrettyPrint_Prettyprinter_Doc_emptyDoc();
10943
11143
  case undefined: /* cons */ {
@@ -10954,17 +11154,18 @@ function Graph_reviewsGraph($0, $1, $2, $3, $4, $5) {
10954
11154
  }
10955
11155
  }
10956
11156
  const $5d = Graph_graph({a1: $61 => Graph_totalWidth_Graphable_x28AugmentedReviewScorex20x24loginx29($1, $61), a2: $66 => Graph_label_Graphable_x28AugmentedReviewScorex20x24loginx29($1, $66), a3: $6b => Graph_score_Graphable_x28AugmentedReviewScorex20x24loginx29($1, $6b), a4: $70 => Graph_detractor_Graphable_x28AugmentedReviewScorex20x24loginx29($1, $70), a5: $75 => Graph_bonus_Graphable_x28AugmentedReviewScorex20x24loginx29($1, $75)}, $79, $15);
10957
- const $53 = Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29(Graph_n__6327_2327_header($0, $1, $5, $4, $3, $2), $5d);
10958
- return Text_PrettyPrint_Prettyprinter_Doc_x3cx2bx3e_Semigroup_x28Docx20x24annx29($53, Text_PrettyPrint_Prettyprinter_Doc_line());
11157
+ const $5c = {a1: $5d, a2: {a1: Graph_n__6343_6619_footer($0, $1, $5, $4, $3, $2), a2: {h: 0}}};
11158
+ const $53 = {a1: Graph_n__6343_6621_header($0, $1, $5, $4, $3, $2), a2: $5c};
11159
+ return Text_PrettyPrint_Prettyprinter_Doc_vsep($53);
10959
11160
  }
10960
11161
  }
10961
11162
  }
10962
11163
 
10963
11164
  /* Graph.healthGraph : List PullRequest -> String -> String -> Doc AnsiStyle */
10964
11165
  function Graph_healthGraph($0, $1, $2) {
10965
- const $3 = Data_List_groupBy($6 => $7 => Prelude_Basics_on($a => $b => Prelude_Basics_on($e => $f => (($e===$f)?1:0), $13 => $13.a2, $a, $b), csegen_403(), $6, $7), Data_List_sortBy(csegen_404(), $0));
11166
+ const $3 = Data_List_groupBy($6 => $7 => Prelude_Basics_on($a => $b => Prelude_Basics_on($e => $f => (($e===$f)?1:0), $13 => $13.a2, $a, $b), csegen_497(), $6, $7), Data_List_sortBy(csegen_498(), $0));
10966
11167
  const $20 = Prelude_Types_foldr_Foldable_List(xs => m => Prelude_Types_max_Ord_Nat(Data_List1_length(xs), m), 1n, $3);
10967
- return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Graph_n__5936_1936_header($2, $1, $0), a2: {a1: Graph_graph({a1: $36 => Graph_totalWidth_Graphable_x28PRsOnDatex20x24dateTyx29(csegen_518(), $36), a2: $3c => Graph_label_Graphable_x28PRsOnDatex20x24dateTyx29(csegen_518(), $3c), a3: $42 => Graph_score_Graphable_x28PRsOnDatex20x24dateTyx29(csegen_518(), $42), a4: $48 => Graph_detractor_Graphable_x28PRsOnDatex20x24dateTyx29(csegen_518(), $48), a5: $4e => Graph_bonus_Graphable_x28PRsOnDatex20x24dateTyx29(csegen_518(), $4e)}, $20, Graph_n__5936_1938_unfoldGraph($2, $1, $0, Data_Fuel_limit(48n), $3, {h: 0})), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Graph_n__5936_1937_link($2, $1, $0)), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {h: 0}}}}}});
11168
+ return Text_PrettyPrint_Prettyprinter_Doc_vsep({a1: Graph_n__5952_6229_header($2, $1, $0), a2: {a1: Graph_graph({a1: $36 => Graph_totalWidth_Graphable_x28PRsOnDatex20x24dateTyx29(csegen_616(), $36), a2: $3c => Graph_label_Graphable_x28PRsOnDatex20x24dateTyx29(csegen_616(), $3c), a3: $42 => Graph_score_Graphable_x28PRsOnDatex20x24dateTyx29(csegen_616(), $42), a4: $48 => Graph_detractor_Graphable_x28PRsOnDatex20x24dateTyx29(csegen_616(), $48), a5: $4e => Graph_bonus_Graphable_x28PRsOnDatex20x24dateTyx29(csegen_616(), $4e)}, $20, Graph_n__5952_6231_unfoldGraph($2, $1, $0, Data_Fuel_limit(48n), $3, {h: 0})), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_pretty_Pretty_String(Graph_n__5952_6230_link($2, $1, $0)), a2: {a1: Text_PrettyPrint_Prettyprinter_Doc_emptyDoc(), a2: {h: 0}}}}}});
10968
11169
  }
10969
11170
 
10970
11171
  /* Graph.graphOne : Graphable g => Nat -> g -> Doc AnsiStyle */
@@ -10991,7 +11192,7 @@ function AppVersion_printVersion($0) {
10991
11192
 
10992
11193
  /* AppVersion.appVersion : String */
10993
11194
  const AppVersion_appVersion = __lazy(function () {
10994
- return '3.1.0';
11195
+ return '3.3.0';
10995
11196
  });
10996
11197
 
10997
11198