air-extra 2011.6.11 → 2011.10.12
raw patch · 2 files changed
+5/−7 lines, 2 files
Files
- air-extra.cabal +2/−4
- src/Air/Extra.hs +3/−3
air-extra.cabal view
@@ -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
src/Air/Extra.hs view
@@ -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