mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

tweak

Browse source
This commit is contained in:
Joey Hess 2010-11-18 14:07:22 -04:00
parent 161823d6ea
commit 0996403377
1 changed files with 7 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
configure.hs
View file

@ -9,6 +9,12 @@ type Test = IO Bool
data TestDesc = TestDesc String String Test data TestDesc = TestDesc String String Test
data Config = Config String Bool data Config = Config String Bool
instance Show Config where
show (Config key value) = unlines $ [
key ++ " :: Bool"
, key ++ " = " ++ show value
]
tests :: [TestDesc] tests :: [TestDesc]
tests = [ tests = [
TestDesc "cp -a" "cp_a" $ testCp "-a" TestDesc "cp -a" "cp_a" $ testCp "-a"
@ -44,7 +50,7 @@ testEnd r = putStrLn $ " " ++ (show r)
writeSysConfig :: [Config] -> IO () writeSysConfig :: [Config] -> IO ()
writeSysConfig config = do writeSysConfig config = do
writeFile "SysConfig.hs" $ unlines $ header ++ vars config ++ footer writeFile "SysConfig.hs" $ unlines $ header ++ map show config ++ footer
where where
header = [ header = [
"{- Automatically generated by configure. -}" "{- Automatically generated by configure. -}"
@ -52,13 +58,6 @@ writeSysConfig config = do
, "" , ""
] ]
footer = [] footer = []
vars [] = []
vars (c:cs) = showvar c ++ vars cs
showvar (Config name val) = [
name ++ " :: Bool"
, name ++ " = " ++ show val
, ""
]
runTests :: [TestDesc] -> IO [Config] runTests :: [TestDesc] -> IO [Config]
runTests [] = return [] runTests [] = return []