diff options
| author |  Ian Lynagh <igloo@earth.li> | 2007-04-04 00:36:25 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2007-04-04 00:36:25 +0000 |
| commit | 9d6c0795ddb0df2ef08685e03ae4d749b478e029 (patch) | |
| tree | 7607d0335f188e9778d5a3de8242662b003220e9 /System/Posix/Directory.hsc | |
| parent | 77917bd30b9ff5677745de40191d81d7381be638 (diff) | |
Fix C/Haskell type mismatches
Diffstat (limited to 'System/Posix/Directory.hsc')
| -rw-r--r-- | System/Posix/Directory.hsc | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/System/Posix/Directory.hsc b/System/Posix/Directory.hsc index 3139e98..7c2f53b 100644 --- a/System/Posix/Directory.hsc +++ b/System/Posix/Directory.hsc @@ -98,14 +98,14 @@ closeDirStream :: DirStream -> IO () closeDirStream (DirStream dirp) = do throwErrnoIfMinus1_ "closeDirStream" (c_closedir dirp) -newtype DirStreamOffset = DirStreamOffset CLong +newtype DirStreamOffset = DirStreamOffset COff seekDirStream :: DirStream -> DirStreamOffset -> IO () seekDirStream (DirStream dirp) (DirStreamOffset off) = c_seekdir dirp off foreign import ccall unsafe "seekdir" - c_seekdir :: Ptr CDir -> CLong -> IO () + c_seekdir :: Ptr CDir -> COff -> IO () tellDirStream :: DirStream -> IO DirStreamOffset tellDirStream (DirStream dirp) = do @@ -113,7 +113,7 @@ tellDirStream (DirStream dirp) = do return (DirStreamOffset off) foreign import ccall unsafe "telldir" - c_telldir :: Ptr CDir -> IO CLong + c_telldir :: Ptr CDir -> IO COff {- Renamings of functionality provided via Directory interface, |