[commit: directory] master: Fix System.Directory build on Windows (a73b30e)

[Ian Lynagh]

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 <igloo at earth.li>
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