A-M baby

Task/File-modification-time/Haskell/file-modification-time-1.hs

@@ -0,0 +1,9 @@
+import System.Posix.Files
+import System.Posix.Time
+
+do status <- getFileStatus filename
+   let atime = accessTime status
+       mtime = modificationTime status -- seconds since the epoch
+   curTime <- epochTime
+   setFileTimes filename atime curTime -- keep atime unchanged
+                                       -- set mtime to current time

Task/File-modification-time/Haskell/file-modification-time-2.hs

@@ -0,0 +1,6 @@
+import System.Directory
+import System.Time
+
+do ct <- getModificationTime filename
+   cal <- toCalendarTime ct
+   putStrLn (calendarTimeToString cal)