diff options
| author | Camil Staps | 2020-01-06 16:18:11 +0100 |
|---|---|---|
| committer | Camil Staps | 2020-01-06 16:18:11 +0100 |
| commit | 0af5b338e3df4be20f85d283edb7d86e01af907a (patch) | |
| tree | 1c7b763ec3d50f321103492974d3e88035aef6b4 | |
| parent | Bring up to date, remove unnecessary C help functions (diff) | |
Fix bug in fetching mask in inotify_check
| -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 |