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:              2011.6.11
+Version:              2011.10.12
 Build-type:           Simple
 Synopsis:             air-extra
 Description:          An alternative Haskell Prelude library, extra helpers
@@ -10,12 +10,10 @@
 Cabal-version:        >= 1.2
 category:             Development
 license-file:         LICENSE
-homepage:             http://github.com/nfjinjing/air-extra
+homepage:             https://github.com/nfjinjing/air-extra
 data-files:           readme.md, changelog.md, known-issues.md
 
 library
-  ghc-options: -Wall
-
       
   build-depends:  
                   base >= 4 && < 5
diff --git a/src/Air/Extra.hs b/src/Air/Extra.hs
--- a/src/Air/Extra.hs
+++ b/src/Air/Extra.hs
@@ -103,18 +103,18 @@
 ls s = getDirectoryContents s ^ (\\ [".", ".."])
 
 file_size :: String -> IO Integer
-file_size path = withFile (path.u2b) ReadMode hFileSize
+file_size path = withFile path ReadMode hFileSize
 
 file_mtime :: String -> IO UTCTime
 file_mtime path = 
-  getModificationTime (path.u2b) ^ seconds ^ from_i ^ posixSecondsToUTCTime
+  getModificationTime path ^ seconds ^ from_i ^ posixSecondsToUTCTime
   where seconds (TOD s _) = s
 
 read_binary_file :: String -> IO String
 read_binary_file path = path.u2b.B.readFile ^ B.unpack
 
 get_permissions :: String -> IO Permissions
-get_permissions path = getPermissions (path.u2b) 
+get_permissions path = getPermissions path
 
 get_current_directory :: IO String
 get_current_directory = getCurrentDirectory ^ b2u