easy-file 0.2.3 → 0.2.4

raw patch · 3 files changed

+14/−2 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• System/EasyFile.hs +1/−0
• System/EasyFile/Missing.hs +12/−1
• easy-file.cabal +1/−1

@@ -76,6 +76,7 @@   , getAccessTime   -- * Size   , getFileSize+  , setFileSize   -- * File\/directory information   , isSymlink   , getLinkCount

@@ -16,7 +16,7 @@ import System.Win32.Time import System.Win32.Types (HANDLE) #else-import System.Posix.Files+import System.Posix.Files as P import System.Posix.Types #endif @@ -170,4 +170,15 @@   fromIntegral . bhfiSize <$> getFileInformationByHandle fh #else getFileSize file = fromIntegral . fileSize <$> getFileStatus file+#endif++-- | Setting the size of the file.+setFileSize :: FilePath -> Word64 -> IO ()+#if defined(mingw32_HOST_OS) || defined(__MINGW32__)+setFileSize file siz = do+    hdl <- createFile file gENERIC_WRITE fILE_SHARE_NONE Nothing oPEN_EXISTING fILE_ATTRIBUTE_NORMAL Nothing+    _ <- setFilePointerEx hdl (fromIntegral siz) fILE_CURRENT+    setEndOfFile hdl+#else+setFileSize file siz = P.setFileSize file $ fromIntegral siz #endif

@@ -1,6 +1,6 @@ Cabal-Version:          >= 1.10 Name:                   easy-file-Version:                0.2.3+Version:                0.2.4 Author:                 Kazu Yamamoto <kazu@iij.ad.jp> Maintainer:             Kazu Yamamoto <kazu@iij.ad.jp> License:                BSD3