git.iko.soy/streamly
on master help sign in
Fix hlint in file system event darwin module
bb74cddHarendra Kumar
src/Streamly/Internal/FileSystem/Event/Darwin.hs+4−4
compare with master
unifiedsplit
@@ -114,7 +114,7 @@ module Streamly.Internal.FileSystem.Event.Darwin
114 , watchWith
114 , watchWith
115
115
116 -- * Handling Events
116 -- * Handling Events
117− , Event
117+ , Event(..)
118 , getEventId
118 , getEventId
119 , getAbsPath
119 , getAbsPath
120
120
@@ -404,7 +404,7 @@ foreign import ccall safe "FileSystem/Event/Darwin.h createWatch" createWatch
404 -> Word32
404 -> Word32
405 -> Word64
405 -> Word64
406 -> CDouble
406 -> CDouble
407− -> Ptr (CInt)
407+ -> Ptr CInt
408 -> Ptr (Ptr CWatch)
408 -> Ptr (Ptr CWatch)
409 -> IO CInt
409 -> IO CInt
410
410
@@ -442,7 +442,7 @@ openWatch Config{..} paths = do
442 alloca $ \fdPtr -> do
442 alloca $ \fdPtr -> do
443 alloca $ \watchPPtr -> do
443 alloca $ \watchPPtr -> do
444 let nArrays = fromIntegral (NonEmpty.length paths)
444 let nArrays = fromIntegral (NonEmpty.length paths)
445− seconds = (realToFrac latency)
445+ seconds = realToFrac latency
446 r <- createWatch
446 r <- createWatch
447 arraysPtr nArrays createFlags 0 seconds fdPtr watchPPtr
447 arraysPtr nArrays createFlags 0 seconds fdPtr watchPPtr
448 when (r /= 0) $
448 when (r /= 0) $
@@ -571,7 +571,7 @@ watchWith f paths = S.bracket before after watchToStream
571 where
571 where
572
572
573 before = liftIO $ openWatch (f defaultConfig) paths
573 before = liftIO $ openWatch (f defaultConfig) paths
574− after = (liftIO . closeWatch)
574+ after = liftIO . closeWatch
575
575
576-- | Same as 'watchWith' using 'defaultConfig' and recursive mode.
576-- | Same as 'watchWith' using 'defaultConfig' and recursive mode.
577--
577--