X-Git-Url: http://git.cielonegro.org/gitweb.cgi?a=blobdiff_plain;f=Bindings%2FCoreServices%2FCarbonCore%2FFiles.hsc;fp=Bindings%2FCoreServices%2FCarbonCore%2FFiles.hsc;h=0a8f481d33899f147ed5af043afc83f8a27580dd;hb=eef5c86f6f74abc3d6b9c8e411db4a96db83844d;hp=df6bdcd0b108a20689fcbff498847bba1330b07c;hpb=ed2941f64f93598e37ea6a6de95d5b3ca32c3d54;p=bindings-CarbonCore.git

diff --git a/Bindings/CoreServices/CarbonCore/Files.hsc b/Bindings/CoreServices/CarbonCore/Files.hsc
index df6bdcd..0a8f481 100644
--- a/Bindings/CoreServices/CarbonCore/Files.hsc
+++ b/Bindings/CoreServices/CarbonCore/Files.hsc
@@ -6,6 +6,8 @@ module Bindings.CoreServices.CarbonCore.Files where
 #strict_import
 import Bindings.CoreServices.CarbonCore.Finder
 import Bindings.CoreServices.CarbonCore.MacTypes
+import Bindings.CoreServices.CarbonCore.OSUtils
+import System.Posix.Types
 
 #starttype struct HFSUniStr255
 #  field       length , <UInt16>
@@ -1603,8 +1605,9 @@ import Bindings.CoreServices.CarbonCore.MacTypes
 #ccall FSFileSecuritySetOwnerUUID   , <FSFileSecurityRef> -> Ptr <CFUUIDBytes> -> IO <OSStatus>
 #ccall FSFileSecurityGetGroupUUID   , <FSFileSecurityRef> -> Ptr <CFUUIDBytes> -> IO <OSStatus>
 #ccall FSFileSecuritySetGroupUUID   , <FSFileSecurityRef> -> Ptr <CFUUIDBytes> -> IO <OSStatus>
-#ccall FSFileSecurityCopyAccessControlList, <FSFileSecurityRef> -> <acl_t> -> IO <OSStatus>
-#ccall FSFileSecuritySetAccessControlList , <FSFileSecurityRef> -> <acl_t> -> IO <OSStatus>
+-- FIXME: acl_t
+-- #ccall FSFileSecurityCopyAccessControlList, <FSFileSecurityRef> -> CACL -> IO <OSStatus>
+-- #ccall FSFileSecuritySetAccessControlList , <FSFileSecurityRef> -> CACL -> IO <OSStatus>
 #ccall FSFileSecurityGetOwner       , <FSFileSecurityRef> -> Ptr <UInt32> -> IO <OSStatus>
 #ccall FSFileSecuritySetOwner       , <FSFileSecurityRef> -> <UInt32> -> IO <OSStatus>
 #ccall FSFileSecurityGetGroup       , <FSFileSecurityRef> -> Ptr <UInt32> -> IO <OSStatus>