diff options
| -rw-r--r-- | Inotify.icl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/Inotify.icl b/Inotify.icl index 62d4bfd..acf56b9 100644 --- a/Inotify.icl +++ b/Inotify.icl @@ -2,6 +2,7 @@ implementation module Inotify import StdArray import StdBool +import StdEnum import StdFunc import StdInt import StdList @@ -106,7 +107,7 @@ where toMaybe s = if (s=="") Nothing (Just s) bytesToInt :: {#Char} -> Int - bytesToInt cs = sum [toInt c * (8 ^ p) \\ c <-: cs & p <- [0..]] + bytesToInt cs = sum [toInt c << p \\ c <-: cs & p <- [0,8..]] split :: Int String -> [String] split n s |