git.iko.soy/streamly
on master help sign in
Remove the header file ref in ccall ffi
f03a4e8Harendra Kumar
src/Streamly/Internal/FileSystem/Event/Darwin.hs+26−26
compare with master
unifiedsplit
@@ -233,7 +233,7 @@ setFlag mask status cfg@Config{..} =
233 in cfg {createFlags = flags}
233 in cfg {createFlags = flags}
234
234
235foreign import ccall safe
235foreign import ccall safe
236− "CoreServices/CoreServices.h FSEventStreamCreateFlagWatchRoot"
236+ "FSEventStreamCreateFlagWatchRoot"
237 kFSEventStreamCreateFlagWatchRoot :: Word32
237 kFSEventStreamCreateFlagWatchRoot :: Word32
238
238
239-- | Watch the changes to the path of the top level file system objects being
239-- | Watch the changes to the path of the top level file system objects being
@@ -250,7 +250,7 @@ setRootChanged :: Toggle -> Config -> Config
250setRootChanged = setFlag kFSEventStreamCreateFlagWatchRoot
250setRootChanged = setFlag kFSEventStreamCreateFlagWatchRoot
251
251
252foreign import ccall safe
252foreign import ccall safe
253− "CoreServices/CoreServices.h FSEventStreamCreateFlagFileEvents"
253+ "FSEventStreamCreateFlagFileEvents"
254 kFSEventStreamCreateFlagFileEvents :: Word32
254 kFSEventStreamCreateFlagFileEvents :: Word32
255
255
256-- | When this is 'Off' only events for the watched directories are reported.
256-- | When this is 'Off' only events for the watched directories are reported.
@@ -272,7 +272,7 @@ setFileEvents :: Toggle -> Config -> Config
272setFileEvents = setFlag kFSEventStreamCreateFlagFileEvents
272setFileEvents = setFlag kFSEventStreamCreateFlagFileEvents
273
273
274foreign import ccall safe
274foreign import ccall safe
275− "CoreServices/CoreServices.h FSEventStreamCreateFlagIgnoreSelf"
275+ "FSEventStreamCreateFlagIgnoreSelf"
276 kFSEventStreamCreateFlagIgnoreSelf :: Word32
276 kFSEventStreamCreateFlagIgnoreSelf :: Word32
277
277
278-- | When this is 'On' events generated by the current process are not
278-- | When this is 'On' events generated by the current process are not
@@ -289,7 +289,7 @@ setIgnoreSelf = setFlag kFSEventStreamCreateFlagIgnoreSelf
289
289
290#if __MAC_OS_X_VERSION_MIN_REQUIRED >= 101500
290#if __MAC_OS_X_VERSION_MIN_REQUIRED >= 101500
291foreign import ccall safe
291foreign import ccall safe
292− "CoreServices/CoreServices.h FSEventStreamCreateFlagFullHistory"
292+ "FSEventStreamCreateFlagFullHistory"
293 kFSEventStreamCreateFlagFullHistory :: Word32
293 kFSEventStreamCreateFlagFullHistory :: Word32
294
294
295-- | When this is 'On' all events since the beginning of time are reported.
295-- | When this is 'On' all events since the beginning of time are reported.
@@ -532,7 +532,7 @@ getEventId :: Event -> Word64
532getEventId Event{..} = eventId
532getEventId Event{..} = eventId
533
533
534foreign import ccall safe
534foreign import ccall safe
535− "CoreServices/CoreServices.h FSEventStreamEventFlagEventIdsWrapped"
535+ "FSEventStreamEventFlagEventIdsWrapped"
536 kFSEventStreamEventFlagEventIdsWrapped :: Word32
536 kFSEventStreamEventFlagEventIdsWrapped :: Word32
537
537
538-- | Determine whether the event id has wrapped. This is impossible on any
538-- | Determine whether the event id has wrapped. This is impossible on any
@@ -567,7 +567,7 @@ getFlag mask Event{..} = eventFlags .&. mask /= 0
567-------------------------------------------------------------------------------
567-------------------------------------------------------------------------------
568
568
569foreign import ccall safe
569foreign import ccall safe
570− "CoreServices/CoreServices.h FSEventStreamEventFlagMustScanSubDirs"
570+ "FSEventStreamEventFlagMustScanSubDirs"
571 kFSEventStreamEventFlagMustScanSubDirs :: Word32
571 kFSEventStreamEventFlagMustScanSubDirs :: Word32
572
572
573-- | Apple documentation says that "If an event in a directory occurs at about
573-- | Apple documentation says that "If an event in a directory occurs at about
@@ -588,7 +588,7 @@ isMustScanSubdirs :: Event -> Bool
588isMustScanSubdirs = getFlag kFSEventStreamEventFlagMustScanSubDirs
588isMustScanSubdirs = getFlag kFSEventStreamEventFlagMustScanSubDirs
589
589
590foreign import ccall safe
590foreign import ccall safe
591− "CoreServices/CoreServices.h FSEventStreamEventFlagKernelDropped"
591+ "FSEventStreamEventFlagKernelDropped"
592 kFSEventStreamEventFlagKernelDropped :: Word32
592 kFSEventStreamEventFlagKernelDropped :: Word32
593
593
594-- | Did an event get dropped due to a kernel processing issue? Set only when
594-- | Did an event get dropped due to a kernel processing issue? Set only when
@@ -602,7 +602,7 @@ isKernelDropped :: Event -> Bool
602isKernelDropped = getFlag kFSEventStreamEventFlagKernelDropped
602isKernelDropped = getFlag kFSEventStreamEventFlagKernelDropped
603
603
604foreign import ccall safe
604foreign import ccall safe
605− "CoreServices/CoreServices.h FSEventStreamEventFlagUserDropped"
605+ "FSEventStreamEventFlagUserDropped"
606 kFSEventStreamEventFlagUserDropped :: Word32
606 kFSEventStreamEventFlagUserDropped :: Word32
607
607
608-- | Did an event get dropped due to a user process issue? Set only when
608-- | Did an event get dropped due to a user process issue? Set only when
@@ -620,7 +620,7 @@ isUserDropped = getFlag kFSEventStreamEventFlagUserDropped
620-------------------------------------------------------------------------------
620-------------------------------------------------------------------------------
621
621
622foreign import ccall safe
622foreign import ccall safe
623− "CoreServices/CoreServices.h FSEventStreamEventFlagHistoryDone"
623+ "FSEventStreamEventFlagHistoryDone"
624 kFSEventStreamEventFlagHistoryDone :: Word32
624 kFSEventStreamEventFlagHistoryDone :: Word32
625
625
626-- | Determine whether the event is a history done marker event. A history done
626-- | Determine whether the event is a history done marker event. A history done
@@ -640,7 +640,7 @@ isHistoryDone = getFlag kFSEventStreamEventFlagHistoryDone
640-------------------------------------------------------------------------------
640-------------------------------------------------------------------------------
641
641
642foreign import ccall safe
642foreign import ccall safe
643− "CoreServices/CoreServices.h FSEventStreamEventFlagRootChanged"
643+ "FSEventStreamEventFlagRootChanged"
644 kFSEventStreamEventFlagRootChanged :: Word32
644 kFSEventStreamEventFlagRootChanged :: Word32
645
645
646-- | Determine whether the event indicates a change of path of the monitored
646-- | Determine whether the event indicates a change of path of the monitored
@@ -663,7 +663,7 @@ isRootChanged = getFlag kFSEventStreamEventFlagRootChanged
663-------------------------------------------------------------------------------
663-------------------------------------------------------------------------------
664
664
665foreign import ccall safe
665foreign import ccall safe
666− "CoreServices/CoreServices.h FSEventStreamEventFlagMount"
666+ "FSEventStreamEventFlagMount"
667 kFSEventStreamEventFlagMount :: Word32
667 kFSEventStreamEventFlagMount :: Word32
668
668
669-- | Determine whether the event is a mount event. A mount event is generated
669-- | Determine whether the event is a mount event. A mount event is generated
@@ -677,7 +677,7 @@ isMount :: Event -> Bool
677isMount = getFlag kFSEventStreamEventFlagMount
677isMount = getFlag kFSEventStreamEventFlagMount
678
678
679foreign import ccall safe
679foreign import ccall safe
680− "CoreServices/CoreServices.h FSEventStreamEventFlagUnmount"
680+ "FSEventStreamEventFlagUnmount"
681 kFSEventStreamEventFlagUnmount :: Word32
681 kFSEventStreamEventFlagUnmount :: Word32
682
682
683-- | Determine whether the event is an unmount event. An unmount event is
683-- | Determine whether the event is an unmount event. An unmount event is
@@ -695,7 +695,7 @@ isUnmount = getFlag kFSEventStreamEventFlagUnmount
695-------------------------------------------------------------------------------
695-------------------------------------------------------------------------------
696
696
697foreign import ccall safe
697foreign import ccall safe
698− "CoreServices/CoreServices.h FSEventStreamEventFlagItemChangeOwner"
698+ "FSEventStreamEventFlagItemChangeOwner"
699 kFSEventStreamEventFlagItemChangeOwner :: Word32
699 kFSEventStreamEventFlagItemChangeOwner :: Word32
700
700
701-- | Determine whether the event is ownership, group, permissions or ACL change
701-- | Determine whether the event is ownership, group, permissions or ACL change
@@ -716,7 +716,7 @@ isOwnerGroupModeChanged :: Event -> Bool
716isOwnerGroupModeChanged = getFlag kFSEventStreamEventFlagItemChangeOwner
716isOwnerGroupModeChanged = getFlag kFSEventStreamEventFlagItemChangeOwner
717
717
718foreign import ccall safe
718foreign import ccall safe
719− "CoreServices/CoreServices.h FSEventStreamEventFlagItemInodeMetaMod"
719+ "FSEventStreamEventFlagItemInodeMetaMod"
720 kFSEventStreamEventFlagItemInodeMetaMod :: Word32
720 kFSEventStreamEventFlagItemInodeMetaMod :: Word32
721
721
722-- | Determine whether the event indicates inode metadata change for an object
722-- | Determine whether the event indicates inode metadata change for an object
@@ -737,7 +737,7 @@ isInodeAttrsChanged :: Event -> Bool
737isInodeAttrsChanged = getFlag kFSEventStreamEventFlagItemInodeMetaMod
737isInodeAttrsChanged = getFlag kFSEventStreamEventFlagItemInodeMetaMod
738
738
739foreign import ccall safe
739foreign import ccall safe
740− "CoreServices/CoreServices.h FSEventStreamEventFlagItemFinderInfoMod"
740+ "FSEventStreamEventFlagItemFinderInfoMod"
741 kFSEventStreamEventFlagItemFinderInfoMod :: Word32
741 kFSEventStreamEventFlagItemFinderInfoMod :: Word32
742
742
743-- | Determine whether the event indicates finder information metadata change
743-- | Determine whether the event indicates finder information metadata change
@@ -753,7 +753,7 @@ isFinderInfoChanged :: Event -> Bool
753isFinderInfoChanged = getFlag kFSEventStreamEventFlagItemFinderInfoMod
753isFinderInfoChanged = getFlag kFSEventStreamEventFlagItemFinderInfoMod
754
754
755foreign import ccall safe
755foreign import ccall safe
756− "CoreServices/CoreServices.h FSEventStreamEventFlagItemXattrMod"
756+ "FSEventStreamEventFlagItemXattrMod"
757 kFSEventStreamEventFlagItemXattrMod :: Word32
757 kFSEventStreamEventFlagItemXattrMod :: Word32
758
758
759-- | Determine whether the event indicates extended attributes metadata change
759-- | Determine whether the event indicates extended attributes metadata change
@@ -775,7 +775,7 @@ isXAttrsChanged = getFlag kFSEventStreamEventFlagItemXattrMod
775-------------------------------------------------------------------------------
775-------------------------------------------------------------------------------
776
776
777foreign import ccall safe
777foreign import ccall safe
778− "CoreServices/CoreServices.h FSEventStreamEventFlagItemCreated"
778+ "FSEventStreamEventFlagItemCreated"
779 kFSEventStreamEventFlagItemCreated :: Word32
779 kFSEventStreamEventFlagItemCreated :: Word32
780
780
781-- | Determine whether the event indicates creation of an object within the
781-- | Determine whether the event indicates creation of an object within the
@@ -805,7 +805,7 @@ isCreated :: Event -> Bool
805isCreated = getFlag kFSEventStreamEventFlagItemCreated
805isCreated = getFlag kFSEventStreamEventFlagItemCreated
806
806
807foreign import ccall safe
807foreign import ccall safe
808− "CoreServices/CoreServices.h FSEventStreamEventFlagItemRemoved"
808+ "FSEventStreamEventFlagItemRemoved"
809 kFSEventStreamEventFlagItemRemoved :: Word32
809 kFSEventStreamEventFlagItemRemoved :: Word32
810
810
811-- | Determine whether the event indicates deletion of an object within the
811-- | Determine whether the event indicates deletion of an object within the
@@ -823,7 +823,7 @@ isDeleted :: Event -> Bool
823isDeleted = getFlag kFSEventStreamEventFlagItemRemoved
823isDeleted = getFlag kFSEventStreamEventFlagItemRemoved
824
824
825foreign import ccall safe
825foreign import ccall safe
826− "CoreServices/CoreServices.h FSEventStreamEventFlagItemRenamed"
826+ "FSEventStreamEventFlagItemRenamed"
827 kFSEventStreamEventFlagItemRenamed :: Word32
827 kFSEventStreamEventFlagItemRenamed :: Word32
828
828
829-- | Determine whether the event indicates rename of an object within the
829-- | Determine whether the event indicates rename of an object within the
@@ -842,7 +842,7 @@ isMoved :: Event -> Bool
842isMoved = getFlag kFSEventStreamEventFlagItemRenamed
842isMoved = getFlag kFSEventStreamEventFlagItemRenamed
843
843
844foreign import ccall safe
844foreign import ccall safe
845− "CoreServices/CoreServices.h FSEventStreamEventFlagItemModified"
845+ "FSEventStreamEventFlagItemModified"
846 kFSEventStreamEventFlagItemModified :: Word32
846 kFSEventStreamEventFlagItemModified :: Word32
847
847
848-- | Determine whether the event indicates modification of an object within the
848-- | Determine whether the event indicates modification of an object within the
@@ -859,7 +859,7 @@ isModified = getFlag kFSEventStreamEventFlagItemModified
859
859
860#if __MAC_OS_X_VERSION_MIN_REQUIRED >= 101300
860#if __MAC_OS_X_VERSION_MIN_REQUIRED >= 101300
861foreign import ccall safe
861foreign import ccall safe
862− "CoreServices/CoreServices.h FSEventStreamEventFlagItemCloned"
862+ "FSEventStreamEventFlagItemCloned"
863 kFSEventStreamEventFlagItemCloned :: Word32
863 kFSEventStreamEventFlagItemCloned :: Word32
864
864
865-- | Determine whether the event indicates cloning of an object within the
865-- | Determine whether the event indicates cloning of an object within the
@@ -880,7 +880,7 @@ isCloned = getFlag kFSEventStreamEventFlagItemCloned
880-------------------------------------------------------------------------------
880-------------------------------------------------------------------------------
881
881
882foreign import ccall safe
882foreign import ccall safe
883− "CoreServices/CoreServices.h FSEventStreamEventFlagItemIsDir"
883+ "FSEventStreamEventFlagItemIsDir"
884 kFSEventStreamEventFlagItemIsDir :: Word32
884 kFSEventStreamEventFlagItemIsDir :: Word32
885
885
886-- | Determine whether the event is for a directory path.
886-- | Determine whether the event is for a directory path.
@@ -895,7 +895,7 @@ isDir :: Event -> Bool
895isDir = getFlag kFSEventStreamEventFlagItemIsDir
895isDir = getFlag kFSEventStreamEventFlagItemIsDir
896
896
897foreign import ccall safe
897foreign import ccall safe
898− "CoreServices/CoreServices.h FSEventStreamEventFlagItemIsFile"
898+ "FSEventStreamEventFlagItemIsFile"
899 kFSEventStreamEventFlagItemIsFile :: Word32
899 kFSEventStreamEventFlagItemIsFile :: Word32
900
900
901-- | Determine whether the event is for a file path.
901-- | Determine whether the event is for a file path.
@@ -910,7 +910,7 @@ isFile :: Event -> Bool
910isFile = getFlag kFSEventStreamEventFlagItemIsFile
910isFile = getFlag kFSEventStreamEventFlagItemIsFile
911
911
912foreign import ccall safe
912foreign import ccall safe
913− "CoreServices/CoreServices.h FSEventStreamEventFlagItemIsSymlink"
913+ "FSEventStreamEventFlagItemIsSymlink"
914 kFSEventStreamEventFlagItemIsSymlink :: Word32
914 kFSEventStreamEventFlagItemIsSymlink :: Word32
915
915
916-- | Determine whether the event is for a symbolic link path.
916-- | Determine whether the event is for a symbolic link path.
@@ -926,7 +926,7 @@ isSymLink = getFlag kFSEventStreamEventFlagItemIsSymlink
926
926
927#if __MAC_OS_X_VERSION_MIN_REQUIRED >= 101000
927#if __MAC_OS_X_VERSION_MIN_REQUIRED >= 101000
928foreign import ccall safe
928foreign import ccall safe
929− "CoreServices/CoreServices.h FSEventStreamEventFlagItemIsHardlink"
929+ "FSEventStreamEventFlagItemIsHardlink"
930 kFSEventStreamEventFlagItemIsHardlink :: Word32
930 kFSEventStreamEventFlagItemIsHardlink :: Word32
931
931
932-- | Determine whether the event is for a file with more than one hard link.
932-- | Determine whether the event is for a file with more than one hard link.
@@ -945,7 +945,7 @@ isHardLink :: Event -> Bool
945isHardLink = getFlag kFSEventStreamEventFlagItemIsHardlink
945isHardLink = getFlag kFSEventStreamEventFlagItemIsHardlink
946
946
947foreign import ccall safe
947foreign import ccall safe
948− "CoreServices/CoreServices.h FSEventStreamEventFlagItemIsLastHardlink"
948+ "FSEventStreamEventFlagItemIsLastHardlink"
949 kFSEventStreamEventFlagItemIsLastHardlink :: Word32
949 kFSEventStreamEventFlagItemIsLastHardlink :: Word32
950
950
951-- | Determine whether the event is for a hard link path with only one hard
951-- | Determine whether the event is for a hard link path with only one hard