@@ -114,7 +114,7 @@ module Streamly.Internal.FileSystem.Event.Darwin
114114 , watchWith
115115
116116 -- * Handling Events
117− , Event
117+ , Event(..)
118118 , getEventId
119119 , getAbsPath
120120
@@ -404,7 +404,7 @@ foreign import ccall safe "FileSystem/Event/Darwin.h createWatch" createWatch
404404 -> Word32
405405 -> Word64
406406 -> CDouble
407− -> Ptr (CInt)
407+ -> Ptr CInt
408408 -> Ptr (Ptr CWatch)
409409 -> IO CInt
410410
@@ -442,7 +442,7 @@ openWatch Config{..} paths = do
442442 alloca $ \fdPtr -> do
443443 alloca $ \watchPPtr -> do
444444 let nArrays = fromIntegral (NonEmpty.length paths)
445− seconds = (realToFrac latency)
445+ seconds = realToFrac latency
446446 r <- createWatch
447447 arraysPtr nArrays createFlags 0 seconds fdPtr watchPPtr
448448 when (r /= 0) $
@@ -571,7 +571,7 @@ watchWith f paths = S.bracket before after watchToStream
571571 where
572572
573573 before = liftIO $ openWatch (f defaultConfig) paths
574− after = (liftIO . closeWatch)
574+ after = liftIO . closeWatch
575575
576576-- | Same as 'watchWith' using 'defaultConfig' and recursive mode.
577577--