safer-file-handles 0.2 → 0.2.0.1

raw patch · 2 files changed

+25/−8 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• System/IO/SaferFileHandles.hs +24/−7
• safer-file-handles.cabal +1/−1

@@ -255,16 +255,19 @@                  , BufferMode(..)                  , HandlePosn                  , SeekMode(..)+#if MIN_VERSION_base(4,2,0) && !defined(__NHC__) && !defined(__HUGS__)                  , TextEncoding                  , latin1                  , utf8, utf8_bom                  , utf16, utf16le, utf16be                  , utf32, utf32le, utf32be                  , localeEncoding+                  , Newline(..)                  , nativeNewline                  , NewlineMode(..)                  , noNewlineTranslation, universalNewlineMode, nativeNewlineMode+#endif                  ) import qualified System.IO as SIO @@ -844,15 +847,16 @@  genOpenTempFile ∷ MonadCatchIO pr                 ⇒ Binary-                → DefaultPermissions                 → FilePath                 → Template                 → RegionT s pr (FilePath, RegionalFileHandle RW (RegionT s pr))-genOpenTempFile binary defaultPerms filePath template = do+genOpenTempFile binary filePath template = do   rh@(internalHandle → FileHandle (Just fp) _) ← open $ TempFile binary                                                                  filePath                                                                  template-                                                                 defaultPerms+#if MIN_VERSION_base(4,2,0)+                                                                 False+#endif   return (fp, RegionalFileHandle rh)  -- | Open a temporary file yielding a regional handle to it paired with the@@ -862,7 +866,7 @@              ⇒ FilePath              → Template              → RegionT s pr (FilePath, RegionalFileHandle RW (RegionT s pr))-openTempFile = genOpenTempFile False False+openTempFile = genOpenTempFile False  -- | Open a temporary file in binary mode yielding a regional handle to it -- paired with the generated file path. This provides a safer replacement for@@ -872,9 +876,22 @@   ⇒ FilePath   → Template   → RegionT s pr (FilePath, RegionalFileHandle RW (RegionT s pr))-openBinaryTempFile = genOpenTempFile True False+openBinaryTempFile = genOpenTempFile True  #if MIN_VERSION_base(4,2,0)+genOpenTempFileWithDefaultPermissions ∷+    MonadCatchIO pr+  ⇒ Binary+  → FilePath+  → Template+  → RegionT s pr (FilePath, RegionalFileHandle RW (RegionT s pr))+genOpenTempFileWithDefaultPermissions binary filePath template = do+  rh@(internalHandle → FileHandle (Just fp) _) ← open $ TempFile binary+                                                                 filePath+                                                                 template+                                                                 True+  return (fp, RegionalFileHandle rh)+ -- | Open a temporary file with default permissions yielding a regional handle -- to it paired with the generated file path. This provides a safer replacement -- for @System.IO.@'SIO.openTempFileWithDefaultPermissions'.@@ -883,7 +900,7 @@   ⇒ FilePath   → Template   → RegionT s pr (FilePath, RegionalFileHandle RW (RegionT s pr))-openTempFileWithDefaultPermissions = genOpenTempFile False True+openTempFileWithDefaultPermissions = genOpenTempFileWithDefaultPermissions False  -- | Open a temporary file in binary mode with default permissions yielding a -- regional handle to it paired with the generated file path. This provides a@@ -894,7 +911,7 @@   ⇒ FilePath   → Template   → RegionT s pr (FilePath, RegionalFileHandle RW (RegionT s pr))-openBinaryTempFileWithDefaultPermissions = genOpenTempFile True True+openBinaryTempFileWithDefaultPermissions = genOpenTempFileWithDefaultPermissions True #endif  

@@ -1,5 +1,5 @@ name:          safer-file-handles-version:       0.2+version:       0.2.0.1 cabal-version: >=1.6 build-type:    Simple license:       BSD3