:technologist: No longer fail test review if glance cannot parse a module

CHANGELOG.md

···
 # Changelog
 
+## Unreleased
+
+- 🧑🏻‍💻 No longer fail the process review if Glance cannot parse a test module.
+  Instead title data will simply be omitted.
+
 ## v1.1.4 - 2024-04-26
 
 - 🐛 Ignore non Gleam files in the test directory

src/birdie.gleam

···
       <> "I couldn't locate the project's root where the snapshot's"
       <> " folder should be."
 
-    CannotGetTitles(titles.TestModuleIsNotCompiling(file: file)) ->
-      "The test file "
-      <> ansi.italic("\"" <> file <> "\"\n")
-      <> " is not compiling.\n"
-      <> "All your test should be compiling for Birdie to work!"
-
     CannotGetTitles(titles.CannotReadTestDirectory(reason: reason)) ->
       heading(reason) <> "I couldn't list the contents of the test folder."
 
···
       heading(reason)
       <> "I couldn't read the test file "
       <> ansi.italic("\"" <> file <> "\"\n")
-
-    CannotGetTitles(titles.ParseError(reason: _reason)) ->
-      "I couldn't parse the content of your test modules.\n"
-      <> "This most likely is a bug in Birdie, it would be grand if you could"
-      <> "open an issue on GitHub:\n"
-      <> "\"https://github.com/giacomocavalieri/birdie/issues\""
 
     CannotGetTitles(titles.DuplicateLiteralTitles(
       title: title,

src/birdie/internal/titles.gleam

···
 ///
 pub type Error {
   CannotFindProjectRoot(reason: simplifile.FileError)
-  TestModuleIsNotCompiling(file: String)
   CannotReadTestDirectory(reason: simplifile.FileError)
   CannotReadTestFile(reason: simplifile.FileError, file: String)
-  ParseError(reason: glance.Error)
   DuplicateLiteralTitles(title: String, one: TestInfo, other: TestInfo)
   OverlappingPrefixes(
     prefix: String,
···
   use <- bool.guard(when: !is_gleam_file, return: Ok(titles))
 
   use raw_module <- try(simplifile.read(file), CannotReadTestFile(_, file))
-  let compile_module = glance.module(raw_module)
-  use module <- try_replace(compile_module, TestModuleIsNotCompiling(file))
-  from_module(titles, file, module)
+  case glance.module(raw_module) {
+    Ok(module) -> from_module(titles, file, module)
+    Error(_) -> Ok(titles)
+  }
 }
 
 pub fn from_module(
···
     Error(e) -> Error(map_error(e))
   }
 }
-
-fn try_replace(
-  result: Result(a, b),
-  replace_error: c,
-  fun: fn(a) -> Result(d, c),
-) -> Result(d, c) {
-  case result {
-    Ok(a) -> fun(a)
-    Error(_) -> Error(replace_error)
-  }
-}