diff options
| author | Mark Wright <gienah@gentoo.org> | 2018-04-24 20:02:04 +1000 |
|---|---|---|
| committer | Mark Wright <gienah@gentoo.org> | 2018-04-24 20:02:04 +1000 |
| commit | fb0a23f395445540f865ae00b33e75e0175db4ef (patch) | |
| tree | c860094f5cc4c686f6a8d6dc1d643652ee388b86 /src/Plugins/MBox.hs | |
| parent | f897fbe3645d5af96197ee6b9c2dc547f5c036cf (diff) | |
| download | xmobar-fb0a23f395445540f865ae00b33e75e0175db4ef.tar.gz xmobar-fb0a23f395445540f865ae00b33e75e0175db4ef.tar.bz2 | |
Build with hinotify 0.3.10 and earlier, fixes #348, fixes #350
Diffstat (limited to 'src/Plugins/MBox.hs')
| -rw-r--r-- | src/Plugins/MBox.hs | 11 |
1 files changed, 10 insertions, 1 deletions
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 |