use toEnum instead of fromCharCode

Author: kritzcreek

src/Node/FS/Perms.purs

@@ -13,7 +13,8 @@ module Node.FS.Perms
   ) where
 
 import Prelude
-import Data.Char (fromCharCode)
+
+import Data.Enum (toEnum)
 import Data.Int (fromNumber)
 import Data.Maybe (Maybe(..), isNothing, fromJust)
 import Data.String (Pattern(Pattern), toCharArray, joinWith, drop, charAt, indexOf)
@@ -119,7 +120,7 @@ instance showPerms :: Show Perms where
 permsFromString :: String -> Maybe Perms
 permsFromString = _perms <<< toCharArray <<< dropPrefix zeroChar
   where
-    zeroChar = fromCharCode 48
+    zeroChar = unsafePartial $ fromJust $ toEnum 48
 
     dropPrefix x xs
       | charAt 0 xs == Just x = drop 1 xs