@@ -1,7 +1,6 @@
11module Prelude.Char
22
33import Builtins
4−import Prelude.Vect
54
65isUpper : Char -> Bool
76isUpper x = x >= 'A' && x <= 'Z'
@@ -38,7 +37,7 @@ toLower x = if (isUpper x)
3837
3938isHexDigit : Char -> Bool
4039isHexDigit x = elem (toUpper x) hexChars where
41− hexChars : Vect 16 Char
40+ hexChars : List Char
4241 hexChars = ['0', '1', '2', '3', '4', '5', '6', '7', '8', '9',
4342 'A', 'B', 'C', 'D', 'E', 'F']
4443