@@ -87,7 +87,7 @@ eventPredicate ev =
87-------------------------------------------------------------------------------
87-------------------------------------------------------------------------------
88-- Event matching utilities
88-- Event matching utilities
89-------------------------------------------------------------------------------
89-------------------------------------------------------------------------------
90−
90+#if defined(CABAL_OS_LINUX)
91removeTrailingSlash :: Array Word8 -> Array Word8
91removeTrailingSlash :: Array Word8 -> Array Word8
92removeTrailingSlash path =
92removeTrailingSlash path =
93 if Array.length path == 0
93 if Array.length path == 0
@@ -103,6 +103,7 @@ removeTrailingSlash path =
103 $ Array.fromStreamN (Array.length path - 1)
103 $ Array.fromStreamN (Array.length path - 1)
104 $ Array.toStream path
104 $ Array.toStream path
105 else path
105 else path
107-- XXX Return a tuple (path, flags) instead of appending flags to path. And
108-- XXX Return a tuple (path, flags) instead of appending flags to path. And
108-- then check the flags using an event mask.
109-- then check the flags using an event mask.
@@ -395,4 +396,4 @@ testDesc =
395main :: IO ()
396main :: IO ()
397 hSetBuffering stdout NoBuffering
398 hSetBuffering stdout NoBuffering
398− hspec $ sequence_ $ map driver testDesc
399+ hspec $ sequence_ $ map driver testDesc