diff --git a/Main.hs b/Main.hs
--- a/Main.hs
+++ b/Main.hs
@@ -33,7 +33,7 @@
 default (Integer, Text)
 
 version :: String
-version = "2.0.5"
+version = "2.0.6"
 
 copyright :: String
 copyright = "2012"
diff --git a/Stat.hs b/Stat.hs
new file mode 100644
--- /dev/null
+++ b/Stat.hs
@@ -0,0 +1,54 @@
+{-# LINE 1 "Stat.hsc" #-}
+{-# LANGUAGE ForeignFunctionInterface #-}
+{-# LINE 2 "Stat.hsc" #-}
+
+module Stat where
+
+import Foreign.C.String
+import Foreign.C.Types
+import Foreign.ForeignPtr
+import Foreign.Ptr
+import Foreign.Storable
+import System.IO.Unsafe
+import System.Posix.ByteString.FilePath
+import System.Posix.Internals ( CFilePath )
+import System.Posix.Types
+import Unsafe.Coerce
+
+
+{-# LINE 17 "Stat.hsc" #-}
+
+type CStat = ()
+newtype FileStatus = FileStatus (ForeignPtr CStat)
+
+statBlockSize :: FileOffset
+statBlockSize = (512)
+{-# LINE 23 "Stat.hsc" #-}
+
+fileBlockSize :: FileStatus -> FileOffset
+fileBlockSize (Stat.FileStatus stat) =
+  unsafePerformIO $ withForeignPtr stat $ ((\hsc_ptr -> peekByteOff hsc_ptr 104))
+{-# LINE 27 "Stat.hsc" #-}
+
+type CStatvfs = ()
+newtype FilesystemStatus = FilesystemStatus (ForeignPtr CStatvfs)
+
+-- jww (2012-10-18): This will
+foreign import ccall unsafe "HsBase.h __hscore_statvfs"
+   c_statvfs :: CFilePath -> Ptr CStatvfs -> IO CInt
+
+getFilesystemStatus :: RawFilePath -> IO Stat.FilesystemStatus
+getFilesystemStatus path = do
+  fp <- mallocForeignPtrBytes (64)
+{-# LINE 38 "Stat.hsc" #-}
+  withForeignPtr fp $ \p ->
+    withFilePath path $ \s ->
+      throwErrnoPathIfMinus1_ "getFilesystemStatus" path (c_statvfs s p)
+  return (FilesystemStatus fp)
+
+filesystemBlockSize :: FilesystemStatus -> CULong
+filesystemBlockSize (Stat.FilesystemStatus statvfs) =
+  unsafePerformIO $ withForeignPtr statvfs $ ((\hsc_ptr -> peekByteOff hsc_ptr 8))
+{-# LINE 46 "Stat.hsc" #-}
+
+-- Stat.hsc ends here
diff --git a/sizes.cabal b/sizes.cabal
--- a/sizes.cabal
+++ b/sizes.cabal
@@ -1,6 +1,6 @@
 Name: sizes
 
-Version:  2.0.5
+Version:  2.0.6
 Synopsis: Recursively show space (size and i-nodes) used in subdirectories
 
 Description: Recursively show space (size and i-nodes) used in subdirectories
@@ -14,7 +14,7 @@
 Build-type:         Simple
 Cabal-version:      >= 1.8
 
-Extra-Source-Files: README.md
+Extra-Source-Files: README.md Stat.hs Stat.hsc
 
 Executable sizes
     Main-is:       Main.hs