diff options
| m--------- | libraries/Cabal | 0 | ||||
| -rw-r--r-- | utils/ghc-cabal/Main.hs | 6 |
2 files changed, 3 insertions, 3 deletions
diff --git a/libraries/Cabal b/libraries/Cabal -Subproject 35f50ba6946fbfbff8aa5a9ff548f0d1f481dbd +Subproject 4e33454f5566c1ad3339c4bdf7444dff6c8fc21 diff --git a/utils/ghc-cabal/Main.hs b/utils/ghc-cabal/Main.hs index 6da7733cad..ad18f2e1fc 100644 --- a/utils/ghc-cabal/Main.hs +++ b/utils/ghc-cabal/Main.hs @@ -167,7 +167,7 @@ doCopy directory distDir (installDirTemplates lbi) progs = withPrograms lbi stripProgram' = stripProgram { - programFindLocation = \_ _ -> return (Just strip) } + programFindLocation = \_ _ -> return (Just (strip,[])) } progs' <- configureProgram verbosity stripProgram' progs let lbi' = lbi { @@ -216,12 +216,12 @@ doRegister directory distDir ghc ghcpkg topdir ghcpkgconf = topdir </> "package.conf.d" ghcProgram' = ghcProgram { programPostConf = \_ cp -> return cp { programDefaultArgs = ["-B" ++ topdir] }, - programFindLocation = \_ _ -> return (Just ghc) } + programFindLocation = \_ _ -> return (Just (ghc,[])) } ghcPkgProgram' = ghcPkgProgram { programPostConf = \_ cp -> return cp { programDefaultArgs = ["--global-package-db", ghcpkgconf] ++ ["--force" | not (null myDestDir) ] }, - programFindLocation = \_ _ -> return (Just ghcpkg) } + programFindLocation = \_ _ -> return (Just (ghcpkg,[])) } configurePrograms ps conf = foldM (flip (configureProgram verbosity)) conf ps progs' <- configurePrograms [ghcProgram', ghcPkgProgram'] progs |