Repository : ssh://darcs.haskell.org//srv/darcs/packages/directory On branch : master
http://hackage.haskell.org/trac/ghc/changeset/a73b30e1b9d6d45fc44a4269535697018ec4881a >--------------------------------------------------------------- commit a73b30e1b9d6d45fc44a4269535697018ec4881a Author: Ian Lynagh <[email protected]> Date: Sat Jan 14 18:23:30 2012 +0000 Fix System.Directory build on Windows >--------------------------------------------------------------- System/Directory.hs | 6 +----- 1 files changed, 1 insertions(+), 5 deletions(-) diff --git a/System/Directory.hs b/System/Directory.hs index d6e84eb..1819508 100644 --- a/System/Directory.hs +++ b/System/Directory.hs @@ -106,9 +106,7 @@ import Foreign.C {-# CFILES cbits/directory.c #-} import Data.Time -#ifndef mingw32_HOST_OS import Data.Time.Clock.POSIX -#endif #ifdef __GLASGOW_HASKELL__ @@ -1024,9 +1022,7 @@ withFileOrSymlinkStatus loc name f = do modificationTime :: Ptr CStat -> IO UTCTime modificationTime stat = do mtime <- st_mtime stat - let dbl_time :: Double - dbl_time = realToFrac (mtime :: CTime) - return (TOD (round dbl_time) 0) + return $ posixSecondsToUTCTime $ realToFrac (mtime :: CTime) isDirectory :: Ptr CStat -> IO Bool isDirectory stat = do _______________________________________________ Cvs-libraries mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-libraries
