Fix: Hash detection affects all Search results (#107)

## Description

The current Hash check in the code will directly cause the program to
throw an error. When using Search, if there is even one Hash check
failure, no information can be displayed.

I have fixed this issue and retained the error throw in the Install
section. However, I don't think it's necessary to make the program fail
to run specifically because of this issue.

The possible useful solutions I have thought of, which I can modify if
you are willing to accept, are:

1. Automatically ignore all packages with Hash check failures.
2. Give users the right to choose, informing them that the content does
not match, but they can still install it.

Author: mrxiaozhuox

nupm/install.nu

@@ -207,6 +207,11 @@ def fetch-package [
         throw-error $'No package matching version `($version)`'
     }
 
+    if $pkg.hash_mismatch == true {
+      throw-error ($'Content of package file ($pkg.path)'
+                        + $' does not match expected hash')
+    }
+
     print $pkg
 
     if $pkg.type == 'git' {

nupm/search.nu

@@ -10,7 +10,7 @@ export def main [
     --pkg-version(-v): string  # Package version to install
     --exact-match(-e)  # Match package name exactly
 ]: nothing -> table {
-    search-package $package --registry $registry --exact-match=$exact_match
+    let result = search-package $package --registry $registry --exact-match=$exact_match
     | flatten
     | each {|row|
         {
@@ -24,4 +24,6 @@ export def main [
         }
     }
     | filter-by-version $pkg_version
+
+    return $result
 }

nupm/utils/registry.nu

@@ -86,19 +86,15 @@ export def search-package [
 
                 let new_hash = open $pkg_file_path | to nuon | hash-fn
 
-                if $new_hash != $row.hash {
-                    throw-error ($'Content of package file ($pkg_file_path)'
-                        + $' does not match expected hash ($row.hash)')
-                }
-
-                open $pkg_file_path
+                open $pkg_file_path | insert hash_mismatch ($new_hash != $row.hash)
             }
+            | compact
             | flatten
 
             {
                 registry_name: $name
                 registry_path: $registry.path
-                pkgs: $pkgs
+                pkgs: $pkgs,
             }
         }
         | compact