X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=System%2FDirectory.hs;h=90de6fa503ffa9404aeadbd18a8f8bfda86971b7;hb=a2a70b9bf60672c72b35654105402cf21238b6f4;hp=9b7048079027f47ad3a687528c885dc3e3f48c2f;hpb=567080c906535534628b1ab83a4a4425dcd4bb5e;p=haskell-directory.git

diff --git a/System/Directory.hs b/System/Directory.hs
index 9b70480..90de6fa 100644
--- a/System/Directory.hs
+++ b/System/Directory.hs
@@ -862,9 +862,9 @@ fileNameEndClean name =
       i  = (length name) - 1
       ec = name !! i
 
-foreign import ccall unsafe "__hscore_R_OK" r_OK :: CMode
-foreign import ccall unsafe "__hscore_W_OK" w_OK :: CMode
-foreign import ccall unsafe "__hscore_X_OK" x_OK :: CMode
+foreign import ccall unsafe "__hscore_R_OK" r_OK :: CInt
+foreign import ccall unsafe "__hscore_W_OK" w_OK :: CInt
+foreign import ccall unsafe "__hscore_X_OK" x_OK :: CInt
 
 foreign import ccall unsafe "__hscore_S_IRUSR" s_IRUSR :: CMode
 foreign import ccall unsafe "__hscore_S_IWUSR" s_IWUSR :: CMode