reject "" in NatExtra.fromHex

This commit is contained in:
rhiannon morris 2023-11-30 14:47:27 +01:00
parent 1c8c50f3e2
commit 05a688d49e

View file

@ -82,7 +82,7 @@ namespace Int
export %inline export %inline
fromHex : String -> Maybe Int fromHex : String -> Maybe Int
fromHex = fromHex' 0 fromHex str = do guard $ str /= ""; fromHex' 0 str
namespace Nat namespace Nat
export export