From 51e3beddb26b542a60526f4b8d1790115a425a4d Mon Sep 17 00:00:00 2001 From: Tom McLaughlin Date: Tue, 29 Oct 2024 02:27:59 -0700 Subject: [PATCH] Fix compat with text-2.1.2 (closes #116) --- src/System/FSNotify.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/System/FSNotify.hs b/src/System/FSNotify.hs index 6967e81..6b61fd4 100644 --- a/src/System/FSNotify.hs +++ b/src/System/FSNotify.hs @@ -76,7 +76,7 @@ import Control.Concurrent.Async import Control.Exception.Safe as E import Control.Monad import Control.Monad.IO.Class -import Data.Text as T +import qualified Data.Text as T import System.FSNotify.Polling import System.FSNotify.Types import System.FilePath @@ -169,7 +169,7 @@ startManagerConf conf = do where #ifndef OS_BSD - createManager :: Either Text NativeManager -> IO WatchManager + createManager :: Either T.Text NativeManager -> IO WatchManager createManager (Right nativeManager) = WatchManager conf nativeManager <$> globalWatchChan createManager (Left err) = throwIO $ userError $ T.unpack $ "Error: couldn't start native file manager: " <> err #endif