git.iko.soy/purescript-literals
on main help sign in
Minor fix (check last digit of fractional part)
69effa8Tomasz Rybarczyk
src/Literals/Number.purs+1−1
compare with main
unifiedsplit
@@ -37,7 +37,7 @@ else instance signPartEmpty :: (Number' h t IntegerPart) => Number' h t Sign
37else instance pointIntegerPart :: (Cons h' t' t, Number' h' t' FractionalPart) => Number' "." t IntegerPart
37else instance pointIntegerPart :: (Cons h' t' t, Number' h' t' FractionalPart) => Number' "." t IntegerPart
38else instance lastIntegerPart :: (Digit h) ⇒ Number' h "" IntegerPart
38else instance lastIntegerPart :: (Digit h) ⇒ Number' h "" IntegerPart
39else instance digitIntegerPart :: (Digit h, Cons h' t' t, Number' h' t' IntegerPart) => Number' h t IntegerPart
39else instance digitIntegerPart :: (Digit h, Cons h' t' t, Number' h' t' IntegerPart) => Number' h t IntegerPart
40−else instance lastFractionalPart :: Number' h "" FractionalPart
40+else instance lastFractionalPart :: (Digit h) ⇒ Number' h "" FractionalPart
41else instance digitFractionalPart :: (Digit h, Cons h' t' t, Number' h' t' FractionalPart) => Number' h t FractionalPart
41else instance digitFractionalPart :: (Digit h, Cons h' t' t, Number' h' t' FractionalPart) => Number' h t FractionalPart
42
42
43foreign import data Literal ∷ Symbol → Type
43foreign import data Literal ∷ Symbol → Type