ref: 4ce38e41a9f2f99c2fedf260039839e18bbe1d94
parent: a8a8293379ba4b7a2b1bf6dbc964064894cc306b
author: Lennart Augustsson <lennart.augustsson@epicgames.com>
date: Sat Feb 3 08:14:03 EST 2024
Add isOctDigit
--- a/lib/Data/Char.hs
+++ b/lib/Data/Char.hs
@@ -60,6 +60,9 @@
isDigit :: Char -> Bool
isDigit c = (primCharLE '0' c) && (primCharLE c '9')
+isOctDigit :: Char -> Bool
+isOctDigit c = (primCharLE '0' c) && (primCharLE c '7')
+
isHexDigit :: Char -> Bool
isHexDigit c = isDigit c || (primCharLE 'a' c && primCharLE c 'f') || (primCharLE 'F' c && primCharLE c 'F')
--
⑨