diff options
author | Joey Hess <joey@kitenet.net> | 2012-03-22 17:09:54 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2012-03-22 17:32:47 -0400 |
commit | e38a839a80ae70eba13b6fd0e7ee08be8a62c513 (patch) | |
tree | c6f3faf1df29c0d9ddf7458554661ee4e50c9aed /configure.hs | |
parent | f1398b558316a936690a8f3b01493f498d15b659 (diff) |
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.
Diffstat (limited to 'configure.hs')
-rw-r--r-- | configure.hs | 21 |
1 files changed, 2 insertions, 19 deletions
diff --git a/configure.hs b/configure.hs index 6fdc5fcb0..15833e62a 100644 --- a/configure.hs +++ b/configure.hs @@ -1,23 +1,6 @@ {- configure program -} -import Data.Maybe - -import qualified Build.Configure as Configure -import Build.TestConfig -import Utility.StatFS - -tests :: [TestCase] -tests = [ TestCase "StatFS" testStatFS - ] ++ Configure.tests False - -{- This test cannot be included in Build.Configure due to needing - - Utility/StatFS.hs to be built, which it is not when "cabal configure" - - is run. -} -testStatFS :: Test -testStatFS = do - s <- getFileSystemStats "." - return $ Config "statfs_sanity_checked" $ - MaybeBoolConfig $ Just $ isJust s +import Build.Configure main :: IO () -main = Configure.run tests +main = run tests |