diff options
Diffstat (limited to 'community-testing/haskell-tar/0001-update-changed-time-code-for-ghc-7.6.1.patch')
-rw-r--r-- | community-testing/haskell-tar/0001-update-changed-time-code-for-ghc-7.6.1.patch | 50 |
1 files changed, 0 insertions, 50 deletions
diff --git a/community-testing/haskell-tar/0001-update-changed-time-code-for-ghc-7.6.1.patch b/community-testing/haskell-tar/0001-update-changed-time-code-for-ghc-7.6.1.patch deleted file mode 100644 index b8c2264bc..000000000 --- a/community-testing/haskell-tar/0001-update-changed-time-code-for-ghc-7.6.1.patch +++ /dev/null @@ -1,50 +0,0 @@ -From bd14edd6240c72baa22822338fc872e6827af680 Mon Sep 17 00:00:00 2001 -From: Thomas Dziedzic <gostrc@gmail.com> -Date: Tue, 11 Sep 2012 06:24:09 -0700 -Subject: [PATCH] update changed time code for ghc 7.6.1 - ---- - Codec/Archive/Tar/Pack.hs | 9 +++++---- - tar.cabal | 2 +- - 2 files changed, 6 insertions(+), 5 deletions(-) - -diff --git a/Codec/Archive/Tar/Pack.hs b/Codec/Archive/Tar/Pack.hs -index 8e43091..0af6103 100644 ---- a/Codec/Archive/Tar/Pack.hs -+++ b/Codec/Archive/Tar/Pack.hs -@@ -28,8 +28,8 @@ import qualified System.FilePath as FilePath.Native - import System.Directory - ( getDirectoryContents, doesDirectoryExist, getModificationTime - , Permissions(..), getPermissions ) --import System.Time -- ( ClockTime(..) ) -+import Data.Time.Clock.POSIX -+ ( utcTimeToPOSIXSeconds ) - import System.IO - ( IOMode(ReadMode), openBinaryFile, hFileSize ) - import System.IO.Unsafe (unsafeInterleaveIO) -@@ -170,5 +170,6 @@ recurseDirectories base (dir:dirs) = unsafeInterleaveIO $ do - - getModTime :: FilePath -> IO EpochTime - getModTime path = do -- (TOD s _) <- getModificationTime path -- return $! fromIntegral s -+ utcTime <- getModificationTime path -+ let s = truncate . utcTimeToPOSIXSeconds $ utcTime -+ return $! s -diff --git a/tar.cabal b/tar.cabal -index e748b07..d85b0da 100644 ---- a/tar.cabal -+++ b/tar.cabal -@@ -25,7 +25,7 @@ source-repository head - - library - build-depends: base >= 3 && < 5, filepath, -- directory, old-time, bytestring -+ directory, bytestring, time - - exposed-modules: - Codec.Archive.Tar --- -1.7.12 - |