diff --git a/air-extra.cabal b/air-extra.cabal
--- a/air-extra.cabal
+++ b/air-extra.cabal
@@ -1,5 +1,5 @@
 Name:                 air-extra
-Version:              2012.5.15
+Version:              2012.12.18
 Build-type:           Simple
 Synopsis:             air-extra
 Description:          An alternative Haskell Prelude library, extra helpers
@@ -12,6 +12,7 @@
 license-file:         LICENSE
 homepage:             https://github.com/nfjinjing/air-extra
 data-files:           readme.md, changelog.md, known-issues.md
+tested-with:          GHC==7.6.1
 
 library
       
diff --git a/src/Air/Extra.hs b/src/Air/Extra.hs
--- a/src/Air/Extra.hs
+++ b/src/Air/Extra.hs
@@ -106,9 +106,8 @@
 file_size path = withFile path ReadMode hFileSize
 
 file_mtime :: String -> IO UTCTime
-file_mtime path = 
-  getModificationTime path ^ seconds ^ from_i ^ posixSecondsToUTCTime
-  where seconds (TOD s _) = s
+file_mtime = getModificationTime
+
 
 read_binary_file :: String -> IO String
 read_binary_file path = path.u2b.B.readFile ^ B.unpack