From 0af5b338e3df4be20f85d283edb7d86e01af907a Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Mon, 6 Jan 2020 16:18:11 +0100
Subject: Fix bug in fetching mask in inotify_check

---
 Inotify.icl | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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
-- 
cgit v1.2.3