git-annex/Utility/DiskFree.hs

{- disk free space checking shim
 -
 - Copyright 2016 Joey Hess <id@joeyh.name>
 -
 - License: BSD-2-clause
 -}

{-# OPTIONS_GHC -fno-warn-tabs #-}
{-# LANGUAGE CPP #-}

module Utility.DiskFree (
	getDiskFree,
	getDiskSize
) where

import System.DiskSpace
import Utility.Applicative
import Utility.Exception

getDiskFree :: FilePath -> IO (Maybe Integer)
getDiskFree = catchMaybeIO . getAvailSpace

getDiskSize :: FilePath -> IO (Maybe Integer)
getDiskSize = fmap diskTotal <$$> catchMaybeIO . getDiskUsage
switch from homegrown code to disk-free-space According to https://github.com/redneb/disk-free-space/issues/3 , disk-free-space should be at least as portable as my homegrown code was. One change I noticed is, getDiskSize was not implemented for windows in the old code, and should work now. 2016-02-15 15:29:27 +00:00			`{- disk free space checking shim`
Rewrote free disk space checking code Moving the portability handling into a small C library cleans up things a lot, avoiding the pain of unpacking structs from inside haskell code. 2012-03-22 21:09:54 +00:00			`-`
switch from homegrown code to disk-free-space According to https://github.com/redneb/disk-free-space/issues/3 , disk-free-space should be at least as portable as my homegrown code was. One change I noticed is, getDiskSize was not implemented for windows in the old code, and should work now. 2016-02-15 15:29:27 +00:00			`- Copyright 2016 Joey Hess <id@joeyh.name>`
Rewrote free disk space checking code Moving the portability handling into a small C library cleans up things a lot, avoiding the pain of unpacking structs from inside haskell code. 2012-03-22 21:09:54 +00:00			`-`
relicense general utility library code to BSD Omitted a couple of files what have had significant contributions from others. 2014-05-10 14:01:27 +00:00			`- License: BSD-2-clause`
Rewrote free disk space checking code Moving the portability handling into a small C library cleans up things a lot, avoiding the pain of unpacking structs from inside haskell code. 2012-03-22 21:09:54 +00:00			`-}`

switch from homegrown code to disk-free-space According to https://github.com/redneb/disk-free-space/issues/3 , disk-free-space should be at least as portable as my homegrown code was. One change I noticed is, getDiskSize was not implemented for windows in the old code, and should work now. 2016-02-15 15:29:27 +00:00			`{-# OPTIONS_GHC -fno-warn-tabs #-}`
build without disk-free-space on android 2016-03-08 06:45:10 +00:00			`{-# LANGUAGE CPP #-}`
Rewrote free disk space checking code Moving the portability handling into a small C library cleans up things a lot, avoiding the pain of unpacking structs from inside haskell code. 2012-03-22 21:09:54 +00:00
add getDiskSize Couldn't find anything that exposed this for Windows. 2014-01-23 02:19:52 +00:00			`module Utility.DiskFree (`
			`getDiskFree,`
			`getDiskSize`
			`) where`
Rewrote free disk space checking code Moving the portability handling into a small C library cleans up things a lot, avoiding the pain of unpacking structs from inside haskell code. 2012-03-22 21:09:54 +00:00
switch from homegrown code to disk-free-space According to https://github.com/redneb/disk-free-space/issues/3 , disk-free-space should be at least as portable as my homegrown code was. One change I noticed is, getDiskSize was not implemented for windows in the old code, and should work now. 2016-02-15 15:29:27 +00:00			`import System.DiskSpace`
			`import Utility.Applicative`
			`import Utility.Exception`
windows disk free space checking 2013-12-10 05:18:04 +00:00
			`getDiskFree :: FilePath -> IO (Maybe Integer)`
switch from homegrown code to disk-free-space According to https://github.com/redneb/disk-free-space/issues/3 , disk-free-space should be at least as portable as my homegrown code was. One change I noticed is, getDiskSize was not implemented for windows in the old code, and should work now. 2016-02-15 15:29:27 +00:00			`getDiskFree = catchMaybeIO . getAvailSpace`
add getDiskSize Couldn't find anything that exposed this for Windows. 2014-01-23 02:19:52 +00:00
			`getDiskSize :: FilePath -> IO (Maybe Integer)`
switch from homegrown code to disk-free-space According to https://github.com/redneb/disk-free-space/issues/3 , disk-free-space should be at least as portable as my homegrown code was. One change I noticed is, getDiskSize was not implemented for windows in the old code, and should work now. 2016-02-15 15:29:27 +00:00			`getDiskSize = fmap diskTotal <$$> catchMaybeIO . getDiskUsage`