import System.Posix.Files
import System.Posix.Time

do status <- getFileStatus filename
   let atime = accessTime status
       mtime = modificationTime status 
   curTime <- epochTime
   setFileTimes filename atime curTime