@@ -17,8 +17,7 @@ main = defaultMainWithHooks hk
1717 where
1818 hk = simpleUserHooks { buildHook = \pd lbi uh bf -> do
1919 -- let ccProg = Program "gcc" undefined undefined undefined
20− let hcProg = Program "ghc" undefined undefined undefined
21− mConf = lookupProgram hcProg (withPrograms lbi)
20+ let mConf = lookupProgram ghcProgram (withPrograms lbi)
2221 err = error "Could not determine C compiler"
2322 cc = locationPath . programLocation . maybe err id $ mConf
2423 b <- canUseRDRAND cc