summaryrefslogtreecommitdiff
path: root/configure.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-01-15 13:26:17 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-01-15 13:49:32 -0400
commit81856c3175fb011f4c9559a5be55c51ec6ad71cf (patch)
tree36822dd5ef61e2556b5c82f4d12f35488aca6a69 /configure.hs
parent0eed604446ce09e375b8f409fc77d98df9459c23 (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.hs8
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