Remove the header file ref in ccall ffi

The header file name is insignificant to the compiler and may become outdated
and misleading.

src/Streamly/Internal/FileSystem/Event/Darwin.hs

@@ -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