edwinb/Idris2-boot
1
1
Fork 0
mirror of https://github.com/edwinb/Idris2-boot.git synced 2024-10-27 01:42:29 +03:00
Code Issues Projects Releases Wiki Activity

Merge pull request #89 from chrrasmussen/fix-integerToNat

Browse Source 
Fixes #88: integerToNat hangs for negative integers
This commit is contained in:
Edwin Brady 2019-08-29 11:07:50 +01:00 committed by GitHub
commit 09b13eef21
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
libs/prelude/Prelude.idr
View File

@ -564,7 +564,7 @@ data Nat = Z | S Nat
public export
integerToNat : Integer -> Nat
integerToNat x
= if intToBool (prim__eq_Integer x 0)
= if intToBool (prim__lte_Integer x 0)
then Z
else S (assert_total (integerToNat (prim__sub_Integer x 1)))