@@ -1,4 +1,3 @@
1−import Control.Monad
21import Distribution.Simple
32import Distribution.Simple.LocalBuildInfo
43import Distribution.Simple.Setup
@@ -14,13 +13,10 @@ import System.Exit
1413main = defaultMainWithHooks hk
1514 where
1615 hk = simpleUserHooks { buildHook = \pd lbi uh bf -> do
17− let ccProg0 = Program "gcc" undefined undefined undefined
18− ccProg1 = Program "clang" undefined undefined undefined
19− f x = lookupProgram x (withPrograms lbi)
20− mConf = f ccProg0 `mplus` f ccProg1
16+ let ccProg = Program "gcc" undefined undefined undefined
17+ mConf = lookupProgram ccProg (withPrograms lbi)
2118 err = error "Could not determine C compiler"
2219 cc = locationPath . programLocation . maybe err id $ mConf
23− print (withPrograms lbi)
2420 b <- canUseRDRAND cc
2521 let newWithPrograms1 = userSpecifyArgs "gcc" cArgs (withPrograms lbi)
2622 newWithPrograms = userSpecifyArgs "ghc" cArgsHC newWithPrograms1
@@ -37,7 +33,6 @@ cArgsHC = map ("-optc" ++) cArgs
3733canUseRDRAND :: FilePath -> IO Bool
3834canUseRDRAND cc = do
3935 withTempDirectory normal "" "testRDRAND" $ \tmpDir -> do
40− -- withTempDirectory normal False "" "testRDRAND" $ \tmpDir -> do
4136 writeFile (tmpDir ++ "/testRDRAND.c")
4237 (unlines [ "#include <stdint.h>"
4338 , "int main() {"