From fb0a23f395445540f865ae00b33e75e0175db4ef Mon Sep 17 00:00:00 2001
From: Mark Wright <gienah@gentoo.org>
Date: Tue, 24 Apr 2018 20:02:04 +1000
Subject: Build with hinotify 0.3.10 and earlier, fixes #348, fixes #350

---
 src/Plugins/MBox.hs | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

(limited to 'src/Plugins/MBox.hs')

diff --git a/src/Plugins/MBox.hs b/src/Plugins/MBox.hs
index 62f9d78..48a6228 100644
--- a/src/Plugins/MBox.hs
+++ b/src/Plugins/MBox.hs
@@ -31,6 +31,15 @@ import System.INotify (Event(..), EventVariety(..), initINotify, addWatch)
 
 import qualified Data.ByteString.Lazy.Char8 as B
 
+#if MIN_VERSION_hinotify(0,3,10)
+import qualified Data.ByteString.Char8 as BS (ByteString, pack)
+pack :: String -> BS.ByteString
+pack = BS.pack
+#else
+pack :: String -> String
+pack = id
+#endif
+
 data Options = Options
                { oAll :: Bool
                , oUniq :: Bool
@@ -93,7 +102,7 @@ instance Exec MBox where
                    n <- if exists then countMails f else return (-1)
                    v <- newTVarIO (f, n)
                    when exists $
-                     addWatch i events f (handleNotification v) >> return ()
+                     addWatch i events (pack f) (handleNotification v) >> return ()
                    return v)
                 boxes
 
-- 
cgit v1.2.3