sizes 2.1.1 → 2.1.2

raw patch · 3 files changed

+4/−58 lines, 3 files

Files

Main.hs +2/−2
Stat.hs +0/−54
sizes.cabal +2/−2

Main.hs view

@@ -33,10 +33,10 @@ default (Integer, Text)  version :: String-version = "2.1.1"+version = "2.1.2"  copyright :: String-copyright = "2012"+copyright = "2013"  sizesSummary :: String sizesSummary = "sizes v" ++ version ++ ", (C) John Wiegley " ++ copyright

− Stat.hs

@@ -1,54 +0,0 @@-{-# 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

sizes.cabal view

@@ -1,6 +1,6 @@ Name: sizes -Version:  2.1.1+Version:  2.1.2 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 Stat.hs Stat.hsc HsStat.h HsStat.c+Extra-Source-Files: README.md Stat.hsc HsStat.h HsStat.c  Executable sizes     Main-is:       Main.hs