feat: reject non-200 responses in hitta component with precise error

crates/providers/hitta/src/component.rs

@@ -33,6 +33,13 @@ impl Guest for Component {
             ));
         };
 
+        if first.status != 200 {
+            return Err(LookupError::ParseFailed(format!(
+                "unexpected HTTP status {}",
+                first.status
+            )));
+        }
+
         match parser::parse(&first.body) {
             Ok(entry) => Ok(Entry {
                 messages: entry.messages,