mirror of
https://github.com/composewell/streamly.git
synced 2024-09-20 07:58:27 +03:00
Remove the header file ref in ccall ffi
The header file name is insignificant to the compiler and may become outdated and misleading.
This commit is contained in:
parent
6f350b7a15
commit
f03a4e8f25
@ -233,7 +233,7 @@ setFlag mask status cfg@Config{..} =
|
||||
in cfg {createFlags = flags}
|
||||
|
||||
foreign import ccall safe
|
||||
"CoreServices/CoreServices.h FSEventStreamCreateFlagWatchRoot"
|
||||
"FSEventStreamCreateFlagWatchRoot"
|
||||
kFSEventStreamCreateFlagWatchRoot :: Word32
|
||||
|
||||
-- | Watch the changes to the path of the top level file system objects being
|
||||
@ -250,7 +250,7 @@ setRootChanged :: Toggle -> Config -> Config
|
||||
setRootChanged = setFlag kFSEventStreamCreateFlagWatchRoot
|
||||
|
||||
foreign import ccall safe
|
||||
"CoreServices/CoreServices.h FSEventStreamCreateFlagFileEvents"
|
||||
"FSEventStreamCreateFlagFileEvents"
|
||||
kFSEventStreamCreateFlagFileEvents :: Word32
|
||||
|
||||
-- | When this is 'Off' only events for the watched directories are reported.
|
||||
@ -272,7 +272,7 @@ setFileEvents :: Toggle -> Config -> Config
|
||||
setFileEvents = setFlag kFSEventStreamCreateFlagFileEvents
|
||||
|
||||
foreign import ccall safe
|
||||
"CoreServices/CoreServices.h FSEventStreamCreateFlagIgnoreSelf"
|
||||
"FSEventStreamCreateFlagIgnoreSelf"
|
||||
kFSEventStreamCreateFlagIgnoreSelf :: Word32
|
||||
|
||||
-- | When this is 'On' events generated by the current process are not
|
||||
@ -289,7 +289,7 @@ setIgnoreSelf = setFlag kFSEventStreamCreateFlagIgnoreSelf
|
||||
|
||||
#if __MAC_OS_X_VERSION_MIN_REQUIRED >= 101500
|
||||
foreign import ccall safe
|
||||
"CoreServices/CoreServices.h FSEventStreamCreateFlagFullHistory"
|
||||
"FSEventStreamCreateFlagFullHistory"
|
||||
kFSEventStreamCreateFlagFullHistory :: Word32
|
||||
|
||||
-- | When this is 'On' all events since the beginning of time are reported.
|
||||
@ -532,7 +532,7 @@ getEventId :: Event -> Word64
|
||||
getEventId Event{..} = eventId
|
||||
|
||||
foreign import ccall safe
|
||||
"CoreServices/CoreServices.h FSEventStreamEventFlagEventIdsWrapped"
|
||||
"FSEventStreamEventFlagEventIdsWrapped"
|
||||
kFSEventStreamEventFlagEventIdsWrapped :: Word32
|
||||
|
||||
-- | Determine whether the event id has wrapped. This is impossible on any
|
||||
@ -567,7 +567,7 @@ getFlag mask Event{..} = eventFlags .&. mask /= 0
|
||||
-------------------------------------------------------------------------------
|
||||
|
||||
foreign import ccall safe
|
||||
"CoreServices/CoreServices.h FSEventStreamEventFlagMustScanSubDirs"
|
||||
"FSEventStreamEventFlagMustScanSubDirs"
|
||||
kFSEventStreamEventFlagMustScanSubDirs :: Word32
|
||||
|
||||
-- | Apple documentation says that "If an event in a directory occurs at about
|
||||
@ -588,7 +588,7 @@ isMustScanSubdirs :: Event -> Bool
|
||||
isMustScanSubdirs = getFlag kFSEventStreamEventFlagMustScanSubDirs
|
||||
|
||||
foreign import ccall safe
|
||||
"CoreServices/CoreServices.h FSEventStreamEventFlagKernelDropped"
|
||||
"FSEventStreamEventFlagKernelDropped"
|
||||
kFSEventStreamEventFlagKernelDropped :: Word32
|
||||
|
||||
-- | Did an event get dropped due to a kernel processing issue? Set only when
|
||||
@ -602,7 +602,7 @@ isKernelDropped :: Event -> Bool
|
||||
isKernelDropped = getFlag kFSEventStreamEventFlagKernelDropped
|
||||
|
||||
foreign import ccall safe
|
||||
"CoreServices/CoreServices.h FSEventStreamEventFlagUserDropped"
|
||||
"FSEventStreamEventFlagUserDropped"
|
||||
kFSEventStreamEventFlagUserDropped :: Word32
|
||||
|
||||
-- | Did an event get dropped due to a user process issue? Set only when
|
||||
@ -620,7 +620,7 @@ isUserDropped = getFlag kFSEventStreamEventFlagUserDropped
|
||||
-------------------------------------------------------------------------------
|
||||
|
||||
foreign import ccall safe
|
||||
"CoreServices/CoreServices.h FSEventStreamEventFlagHistoryDone"
|
||||
"FSEventStreamEventFlagHistoryDone"
|
||||
kFSEventStreamEventFlagHistoryDone :: Word32
|
||||
|
||||
-- | Determine whether the event is a history done marker event. A history done
|
||||
@ -640,7 +640,7 @@ isHistoryDone = getFlag kFSEventStreamEventFlagHistoryDone
|
||||
-------------------------------------------------------------------------------
|
||||
|
||||
foreign import ccall safe
|
||||
"CoreServices/CoreServices.h FSEventStreamEventFlagRootChanged"
|
||||
"FSEventStreamEventFlagRootChanged"
|
||||
kFSEventStreamEventFlagRootChanged :: Word32
|
||||
|
||||
-- | Determine whether the event indicates a change of path of the monitored
|
||||
@ -663,7 +663,7 @@ isRootChanged = getFlag kFSEventStreamEventFlagRootChanged
|
||||
-------------------------------------------------------------------------------
|
||||
|
||||
foreign import ccall safe
|
||||
"CoreServices/CoreServices.h FSEventStreamEventFlagMount"
|
||||
"FSEventStreamEventFlagMount"
|
||||
kFSEventStreamEventFlagMount :: Word32
|
||||
|
||||
-- | Determine whether the event is a mount event. A mount event is generated
|
||||
@ -677,7 +677,7 @@ isMount :: Event -> Bool
|
||||
isMount = getFlag kFSEventStreamEventFlagMount
|
||||
|
||||
foreign import ccall safe
|
||||
"CoreServices/CoreServices.h FSEventStreamEventFlagUnmount"
|
||||
"FSEventStreamEventFlagUnmount"
|
||||
kFSEventStreamEventFlagUnmount :: Word32
|
||||
|
||||
-- | Determine whether the event is an unmount event. An unmount event is
|
||||
@ -695,7 +695,7 @@ isUnmount = getFlag kFSEventStreamEventFlagUnmount
|
||||
-------------------------------------------------------------------------------
|
||||
|
||||
foreign import ccall safe
|
||||
"CoreServices/CoreServices.h FSEventStreamEventFlagItemChangeOwner"
|
||||
"FSEventStreamEventFlagItemChangeOwner"
|
||||
kFSEventStreamEventFlagItemChangeOwner :: Word32
|
||||
|
||||
-- | Determine whether the event is ownership, group, permissions or ACL change
|
||||
@ -716,7 +716,7 @@ isOwnerGroupModeChanged :: Event -> Bool
|
||||
isOwnerGroupModeChanged = getFlag kFSEventStreamEventFlagItemChangeOwner
|
||||
|
||||
foreign import ccall safe
|
||||
"CoreServices/CoreServices.h FSEventStreamEventFlagItemInodeMetaMod"
|
||||
"FSEventStreamEventFlagItemInodeMetaMod"
|
||||
kFSEventStreamEventFlagItemInodeMetaMod :: Word32
|
||||
|
||||
-- | Determine whether the event indicates inode metadata change for an object
|
||||
@ -737,7 +737,7 @@ isInodeAttrsChanged :: Event -> Bool
|
||||
isInodeAttrsChanged = getFlag kFSEventStreamEventFlagItemInodeMetaMod
|
||||
|
||||
foreign import ccall safe
|
||||
"CoreServices/CoreServices.h FSEventStreamEventFlagItemFinderInfoMod"
|
||||
"FSEventStreamEventFlagItemFinderInfoMod"
|
||||
kFSEventStreamEventFlagItemFinderInfoMod :: Word32
|
||||
|
||||
-- | Determine whether the event indicates finder information metadata change
|
||||
@ -753,7 +753,7 @@ isFinderInfoChanged :: Event -> Bool
|
||||
isFinderInfoChanged = getFlag kFSEventStreamEventFlagItemFinderInfoMod
|
||||
|
||||
foreign import ccall safe
|
||||
"CoreServices/CoreServices.h FSEventStreamEventFlagItemXattrMod"
|
||||
"FSEventStreamEventFlagItemXattrMod"
|
||||
kFSEventStreamEventFlagItemXattrMod :: Word32
|
||||
|
||||
-- | Determine whether the event indicates extended attributes metadata change
|
||||
@ -775,7 +775,7 @@ isXAttrsChanged = getFlag kFSEventStreamEventFlagItemXattrMod
|
||||
-------------------------------------------------------------------------------
|
||||
|
||||
foreign import ccall safe
|
||||
"CoreServices/CoreServices.h FSEventStreamEventFlagItemCreated"
|
||||
"FSEventStreamEventFlagItemCreated"
|
||||
kFSEventStreamEventFlagItemCreated :: Word32
|
||||
|
||||
-- | Determine whether the event indicates creation of an object within the
|
||||
@ -805,7 +805,7 @@ isCreated :: Event -> Bool
|
||||
isCreated = getFlag kFSEventStreamEventFlagItemCreated
|
||||
|
||||
foreign import ccall safe
|
||||
"CoreServices/CoreServices.h FSEventStreamEventFlagItemRemoved"
|
||||
"FSEventStreamEventFlagItemRemoved"
|
||||
kFSEventStreamEventFlagItemRemoved :: Word32
|
||||
|
||||
-- | Determine whether the event indicates deletion of an object within the
|
||||
@ -823,7 +823,7 @@ isDeleted :: Event -> Bool
|
||||
isDeleted = getFlag kFSEventStreamEventFlagItemRemoved
|
||||
|
||||
foreign import ccall safe
|
||||
"CoreServices/CoreServices.h FSEventStreamEventFlagItemRenamed"
|
||||
"FSEventStreamEventFlagItemRenamed"
|
||||
kFSEventStreamEventFlagItemRenamed :: Word32
|
||||
|
||||
-- | Determine whether the event indicates rename of an object within the
|
||||
@ -842,7 +842,7 @@ isMoved :: Event -> Bool
|
||||
isMoved = getFlag kFSEventStreamEventFlagItemRenamed
|
||||
|
||||
foreign import ccall safe
|
||||
"CoreServices/CoreServices.h FSEventStreamEventFlagItemModified"
|
||||
"FSEventStreamEventFlagItemModified"
|
||||
kFSEventStreamEventFlagItemModified :: Word32
|
||||
|
||||
-- | Determine whether the event indicates modification of an object within the
|
||||
@ -859,7 +859,7 @@ isModified = getFlag kFSEventStreamEventFlagItemModified
|
||||
|
||||
#if __MAC_OS_X_VERSION_MIN_REQUIRED >= 101300
|
||||
foreign import ccall safe
|
||||
"CoreServices/CoreServices.h FSEventStreamEventFlagItemCloned"
|
||||
"FSEventStreamEventFlagItemCloned"
|
||||
kFSEventStreamEventFlagItemCloned :: Word32
|
||||
|
||||
-- | Determine whether the event indicates cloning of an object within the
|
||||
@ -880,7 +880,7 @@ isCloned = getFlag kFSEventStreamEventFlagItemCloned
|
||||
-------------------------------------------------------------------------------
|
||||
|
||||
foreign import ccall safe
|
||||
"CoreServices/CoreServices.h FSEventStreamEventFlagItemIsDir"
|
||||
"FSEventStreamEventFlagItemIsDir"
|
||||
kFSEventStreamEventFlagItemIsDir :: Word32
|
||||
|
||||
-- | Determine whether the event is for a directory path.
|
||||
@ -895,7 +895,7 @@ isDir :: Event -> Bool
|
||||
isDir = getFlag kFSEventStreamEventFlagItemIsDir
|
||||
|
||||
foreign import ccall safe
|
||||
"CoreServices/CoreServices.h FSEventStreamEventFlagItemIsFile"
|
||||
"FSEventStreamEventFlagItemIsFile"
|
||||
kFSEventStreamEventFlagItemIsFile :: Word32
|
||||
|
||||
-- | Determine whether the event is for a file path.
|
||||
@ -910,7 +910,7 @@ isFile :: Event -> Bool
|
||||
isFile = getFlag kFSEventStreamEventFlagItemIsFile
|
||||
|
||||
foreign import ccall safe
|
||||
"CoreServices/CoreServices.h FSEventStreamEventFlagItemIsSymlink"
|
||||
"FSEventStreamEventFlagItemIsSymlink"
|
||||
kFSEventStreamEventFlagItemIsSymlink :: Word32
|
||||
|
||||
-- | Determine whether the event is for a symbolic link path.
|
||||
@ -926,7 +926,7 @@ isSymLink = getFlag kFSEventStreamEventFlagItemIsSymlink
|
||||
|
||||
#if __MAC_OS_X_VERSION_MIN_REQUIRED >= 101000
|
||||
foreign import ccall safe
|
||||
"CoreServices/CoreServices.h FSEventStreamEventFlagItemIsHardlink"
|
||||
"FSEventStreamEventFlagItemIsHardlink"
|
||||
kFSEventStreamEventFlagItemIsHardlink :: Word32
|
||||
|
||||
-- | Determine whether the event is for a file with more than one hard link.
|
||||
@ -945,7 +945,7 @@ isHardLink :: Event -> Bool
|
||||
isHardLink = getFlag kFSEventStreamEventFlagItemIsHardlink
|
||||
|
||||
foreign import ccall safe
|
||||
"CoreServices/CoreServices.h FSEventStreamEventFlagItemIsLastHardlink"
|
||||
"FSEventStreamEventFlagItemIsLastHardlink"
|
||||
kFSEventStreamEventFlagItemIsLastHardlink :: Word32
|
||||
|
||||
-- | Determine whether the event is for a hard link path with only one hard
|
||||
|
Loading…
Reference in New Issue
Block a user