Merge pull request #4758 from joshuawarner32/fuzzing-take-2

Add fuzzing for the formatter and fix bugs

crates/compiler/parse/src/parser.rs

@@ -620,6 +620,7 @@ pub enum PInParens<'a> {
 pub enum EType<'a> {
     Space(BadInputError, Position),
 
+    UnderscoreSpacing(Position),
     TRecord(ETypeRecord<'a>, Position),
     TTagUnion(ETypeTagUnion<'a>, Position),
     TInParens(ETypeInParens<'a>, Position),
@@ -1203,18 +1204,6 @@ where
     }
 }
 
-pub fn fail_when_progress<T, E>(
-    progress: Progress,
-    fail: E,
-    value: T,
-    state: State<'_>,
-) -> ParseResult<'_, T, E> {
-    match progress {
-        MadeProgress => Err((MadeProgress, fail)),
-        NoProgress => Ok((NoProgress, value, state)),
-    }
-}
-
 pub fn optional<'a, P, T, E>(parser: P) -> impl Parser<'a, Option<T>, E>
 where
     P: Parser<'a, T, E>,