reject "" in NatExtra.fromHex
This commit is contained in:
parent
1c8c50f3e2
commit
05a688d49e
1 changed files with 1 additions and 1 deletions
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue