diff options
author | Joey Hess <joey@kitenet.net> | 2012-01-15 13:26:17 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2012-01-15 13:49:32 -0400 |
commit | 81856c3175fb011f4c9559a5be55c51ec6ad71cf (patch) | |
tree | 36822dd5ef61e2556b5c82f4d12f35488aca6a69 /configure.hs | |
parent | 0eed604446ce09e375b8f409fc77d98df9459c23 (diff) |
add a configure check for StatFS
This way, the build log will indicate whether StatFS can be relied on.
I've tested all the failing architectures now, and on all of them,
the StatFS code now returns Nothing, rather than Just nonsense.
Also, if annex.diskreserve is set on a platform where StatFS is not
working, git-annex will complain.
Also, the Makefile was missing the sources target used when building with
cabal.
Diffstat (limited to 'configure.hs')
-rw-r--r-- | configure.hs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/configure.hs b/configure.hs index 3b3626dd2..772df3e38 100644 --- a/configure.hs +++ b/configure.hs @@ -2,9 +2,11 @@ import System.Directory import Data.List +import Data.Maybe import System.Cmd.Utils import Build.TestConfig +import Utility.StatFS tests :: [TestCase] tests = @@ -21,6 +23,7 @@ tests = , TestCase "wget" $ testCmd "wget" "wget --version >/dev/null" , TestCase "bup" $ testCmd "bup" "bup --version >/dev/null" , TestCase "gpg" $ testCmd "gpg" "gpg --version >/dev/null" + , TestCase "StatFS" testStatFS ] ++ shaTestCases [1, 256, 512, 224, 384] shaTestCases :: [Int] -> [TestCase] @@ -63,6 +66,11 @@ getGitVersion = do let version = last $ words $ head $ lines s return $ Config "gitversion" (StringConfig version) +testStatFS :: Test +testStatFS = do + s <- getFileSystemStats "." + return $ Config "statfs_sane" $ BoolConfig $ isJust s + {- Set up cabal file with version. -} cabalSetup :: IO () cabalSetup = do |