easy-file 0.2.1 → 0.2.2

raw patch · 2 files changed

+19/−13 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

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

@@ -12,6 +12,7 @@ import Control.Exception import System.Win32.File import System.Win32.Time+import System.Win32.Types (HANDLE) #else import System.Posix.Files import System.Posix.Types@@ -118,6 +119,16 @@ ----------------------------------------------------------------  #if defined(mingw32_HOST_OS) || defined(__MINGW32__)+-- Open a file or directory for getting the file metadata.+withFileForInfo :: FilePath -> (HANDLE -> IO a) -> IO a+withFileForInfo file = bracket setup teardown+  where+    setup = createFile file 0 fILE_SHARE_READ Nothing+                       oPEN_EXISTING fILE_FLAG_BACKUP_SEMANTICS Nothing+    teardown = closeHandle+#endif++#if defined(mingw32_HOST_OS) || defined(__MINGW32__) creationTime :: (UTCTime,UTCTime,UTCTime) -> UTCTime creationTime (ctime,_,_) = ctime @@ -128,13 +139,11 @@ writeTime (_,_,wtime) = wtime  fileTime :: FilePath -> IO (UTCTime,UTCTime,UTCTime)-fileTime file = do-    fh <- createFile file gENERIC_READ fILE_SHARE_READ Nothing oPEN_EXISTING fILE_ATTRIBUTE_NORMAL Nothing-    (ctime,atime,mtime) <- getFileTime fh-    closeHandle fh-    return (filetimeToUTCTime ctime-           ,filetimeToUTCTime atime-           ,filetimeToUTCTime mtime)+fileTime file = withFileForInfo file $ \fh -> do+  (ctime,atime,mtime) <- getFileTime fh+  return (filetimeToUTCTime ctime+         ,filetimeToUTCTime atime+         ,filetimeToUTCTime mtime)  {-   http://support.microsoft.com/kb/167296/en-us@@ -155,11 +164,8 @@ -- | Getting the size of the file. getFileSize :: FilePath -> IO Word64 #if defined(mingw32_HOST_OS) || defined(__MINGW32__)-getFileSize file = bracket setup teardown body-  where-    setup = createFile file gENERIC_READ fILE_SHARE_READ Nothing oPEN_EXISTING fILE_ATTRIBUTE_NORMAL Nothing-    teardown = closeHandle-    body fh = fromIntegral . bhfiSize <$> getFileInformationByHandle fh+getFileSize file = withFileForInfo file $ \fh ->+  fromIntegral . bhfiSize <$> getFileInformationByHandle fh #else getFileSize file = fromIntegral . fileSize <$> getFileStatus file #endif

@@ -1,5 +1,5 @@ Name:                   easy-file-Version:                0.2.1+Version:                0.2.2 Author:                 Kazu Yamamoto <kazu@iij.ad.jp> Maintainer:             Kazu Yamamoto <kazu@iij.ad.jp> License:                BSD3