reject "" in NatExtra.fromHex

2023-11-30 14:47:27 +01:00 · 2023-11-30 14:47:27 +01:00 · 05a688d49e
parent 1c8c50f3e2
commit 05a688d49e
1 changed files with 1 additions and 1 deletions
--- a/lib/Quox/NatExtra.idr
+++ b/lib/Quox/NatExtra.idr
@ -82,7 +82,7 @@ namespace Int

  export %inline
  fromHex : String -> Maybe Int
-  fromHex = fromHex' 0
+  fromHex str = do guard $ str /= ""; fromHex' 0 str

 namespace Nat
  export