tweak

configure.hs

@@ -49,9 +49,9 @@ testEnd :: Bool -> IO ()
 testEnd r = putStrLn $ " " ++ (show r)
 
 writeSysConfig :: [Config] -> IO ()
-writeSysConfig config = do
-	writeFile "SysConfig.hs" $ unlines $ header ++ map show config ++ footer
+writeSysConfig config = writeFile "SysConfig.hs" body
 	where
+		body = unlines $ header ++ map show config ++ footer
 		header = [
 			  "{- Automatically generated by configure. -}"
 			, "module SysConfig where"
@@ -68,10 +68,18 @@ runTests ((TestDesc tname key t):ts) = do
 	rest <- runTests ts
 	return $ (Config key val):rest
 
-main :: IO ()
-main = do
+setup :: IO ()
+setup = do
 	createDirectoryIfMissing True tmpDir
 	writeFile testFile "test file contents"
-	config <- runTests tests
+
+cleanup :: IO ()
+cleanup = do
 	removeDirectoryRecursive tmpDir
+
+main :: IO ()
+main = do
+	setup
+	config <- runTests tests
 	writeSysConfig config
+	cleanup