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
|
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
|
||||||
|
|
Loading…
Reference in a new issue