From e1fe03d236b9505c89af414daa2883910179c33a Mon Sep 17 00:00:00 2001
From: Dimitri Lozeve <dimitri@lozeve.com>
Date: Wed, 4 Oct 2023 17:15:51 +0200
Subject: [PATCH] Raise an error when attempting to read an unsupported dtype

---
 npy.bqn | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/npy.bqn b/npy.bqn
index 477e6f7..e794bfe 100644
--- a/npy.bqn
+++ b/npy.bqn
@@ -32,7 +32,8 @@ ParseHeader←{𝕊𝕩:
   version←@-˜(0‿1+≠magicString)⊏𝕩
   headerlen←+´1‿256×@-˜(2‿3+≠magicString)⊏𝕩
   header←(¬∊⟜(' '∾lf))⊸/headerlen↑(4+≠magicString)↓𝕩
-  dtype←3↑(⊐⟜'<'↓⊢) (("descr"⍷header)⊐1)↓header
+  dtype←3↑(⌊´∘⊐⟜"<>"↓⊢) (("descr"⍷header)⊐1)↓header
+  ("Unsupported dtype: "∾dtype) ! ⊑(<dtype)∊dtypes
   shapestr←(⊐⟜')'↑⊢) (1⊸+∘⊐⟜'('↓⊢) (("shape"⍷header)⊐1)↓header
   shape←•BQN¨','((⊢-˜+`׬)∘=⊔⊢)shapestr
   ⟨version,dtype,shape,headerlen+2+2+≠magicString⟩