hunk ./include/HsDirectory.h 15
+
+// On Solaris we have to make sure _FILE_OFFSET_BITS is defined 
+// before including <sys/stat.h> below, because that header
+// will try and define it if it isn't already.
+#include "HsFFI.h"
+
hunk ./System/Directory.hs 206
-  let is_dir = Posix.fileMode stat .&. Posix.directoryMode /= 0
+  let is_dir = Posix.isDirectory stat
hunk ./System/Directory.hs 376
-              if Posix.fileMode stat .&. Posix.directoryMode /= 0 
+              if Posix.isDirectory stat
hunk ./System/Directory.hs 621
-   let is_dir = Posix.fileMode stat .&. Posix.directoryMode /= 0
+   let is_dir = Posix.isDirectory stat
hunk ./System/Directory.hs 901
-       return (Posix.fileMode stat .&. Posix.directoryMode /= 0))
+       return (Posix.isDirectory stat))
hunk ./System/Directory.hs 915
-       return (Posix.fileMode stat .&. Posix.directoryMode == 0))
+       return (not (Posix.isDirectory stat)))
hunk ./directory.cabal 2
-version:	1.0.1.0
+version:	1.0.1.1
hunk ./directory.cabal 35
-                   filepath >= 1.1 && < 1.2
+                   filepath >= 1.1 && < 1.3
hunk ./directory.cabal 33
-    build-depends: base >= 4.1 && < 4.3,
+    build-depends: base >= 4.1 && < 4.4,
hunk ./System/Directory.hs 688
-    do c_realpath pInPath pOutPath
+    do throwErrnoPathIfNull "canonicalizePath" fpath $ c_realpath pInPath pOutPath
hunk ./directory.cabal 2
-version:	1.0.1.1
+version:	1.0.1.2
hunk ./directory.cabal 33
-    build-depends: base >= 4.1 && < 4.4,
+    build-depends: base >= 4.2 && < 4.4,
hunk ./System/Directory.hs 939
-  let realToInteger = round . realToFrac :: Real a => a -> Integer
-  return (TOD (realToInteger (Posix.modificationTime stat)) 0)
+  let mod_time :: Posix.EpochTime 
+      mod_time = Posix.modificationTime stat
+      dbl_time :: Double
+      dbl_time = realToFrac mod_time
+  return (TOD (round dbl_time) 0)
hunk ./System/Directory.hs 945
-
+   -- For info
+   -- round :: (RealFrac a, Integral b => a -> b
+   -- realToFrac :: (Real a, Fractional b) => a -> b
hunk ./System/Directory.hs 971
-    let realToInteger = round . realToFrac :: Real a => a -> Integer
-    return (TOD (realToInteger (mtime :: CTime)) 0)
+    let dbl_time :: Double
+        dbl_time = realToFrac (mtime :: CTime)
+    return (TOD (round dbl_time) 0)
hunk ./System/Directory.hs 58
-    , Permissions(
-	Permissions,
-	readable,		-- :: Permissions -> Bool
-	writable,		-- :: Permissions -> Bool
-	executable,		-- :: Permissions -> Bool
-	searchable		-- :: Permissions -> Bool
-      )
+    , Permissions
+    , readable          -- :: Permissions -> Bool
+    , writable          -- :: Permissions -> Bool
+    , executable        -- :: Permissions -> Bool
+    , searchable        -- :: Permissions -> Bool
+    , setOwnerReadable
+    , setOwnerWritable
+    , setOwnerExecutable
+    , setOwnerSearchable
hunk ./System/Directory.hs 166
+setOwnerReadable :: Bool -> Permissions -> Permissions
+setOwnerReadable b p = p { readable = b }
+
+setOwnerWritable :: Bool -> Permissions -> Permissions
+setOwnerWritable b p = p { writable = b }
+
+setOwnerExecutable :: Bool -> Permissions -> Permissions
+setOwnerExecutable b p = p { executable = b }
+
+setOwnerSearchable :: Bool -> Permissions -> Permissions
+setOwnerSearchable b p = p { searchable = b }
+
hunk ./System/Directory.hs 59
+    , emptyPermissions
hunk ./System/Directory.hs 167
+emptyPermissions :: Permissions
+emptyPermissions = Permissions {
+                       readable   = False,
+                       writable   = False,
+                       executable = False,
+                       searchable = False
+                   }
+
hunk ./System/Directory.hs 123
+#endif /* __GLASGOW_HASKELL__ */
+
hunk ./System/Directory.hs 201
+#ifdef __GLASGOW_HASKELL__
+