@@ -87,7 +87,7 @@ eventPredicate ev =
8787-------------------------------------------------------------------------------
8888-- Event matching utilities
8989-------------------------------------------------------------------------------
90−
90+#if defined(CABAL_OS_LINUX)
9191removeTrailingSlash :: Array Word8 -> Array Word8
9292removeTrailingSlash path =
9393 if Array.length path == 0
@@ -103,6 +103,7 @@ removeTrailingSlash path =
103103 $ Array.fromStreamN (Array.length path - 1)
104104 $ Array.toStream path
105105 else path
106+#endif
106107
107108-- XXX Return a tuple (path, flags) instead of appending flags to path. And
108109-- then check the flags using an event mask.
@@ -395,4 +396,4 @@ testDesc =
395396main :: IO ()
396397main = do
397398 hSetBuffering stdout NoBuffering
398− hspec $ sequence_ $ map driver testDesc
399+ hspec $ sequence_ $ map driver testDesc