Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Open sidebar
jberryman
GHC
Commits
8464822f
Commit
8464822f
authored
Jul 05, 2009
by
Ian Lynagh
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Follow Cabal changes
parent
682eb177
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
11 additions
and
7 deletions
+11
-7
utils/ghc-cabal/ghc-cabal.hs
utils/ghc-cabal/ghc-cabal.hs
+11
-7
No files found.
utils/ghc-cabal/ghc-cabal.hs
View file @
8464822f
...
...
@@ -9,16 +9,14 @@ import Distribution.Simple
import
Distribution.Simple.Configure
import
Distribution.Simple.LocalBuildInfo
import
Distribution.Simple.Program
import
Distribution.Simple.Utils
(
defaultPackageDesc
)
import
Distribution.Simple.Utils
(
defaultPackageDesc
,
writeFileAtomic
)
import
Distribution.Simple.Build
(
writeAutogenFiles
)
import
Distribution.Simple.Register
(
writeInstalledConfig
)
import
Distribution.Simple.Register
import
Distribution.Simple.PackageIndex
import
Distribution.Text
import
Distribution.Verbosity
import
qualified
Distribution.InstalledPackageInfo
as
Installed
(
InstalledPackageInfo_
(
..
)
)
import
qualified
Distribution.Simple.PackageIndex
as
PackageIndex
(
topologicalOrder
,
lookupPackageName
,
insert
)
import
Control.Monad
import
Data.Maybe
...
...
@@ -182,9 +180,15 @@ generate config_args distdir directory
writeAutogenFiles
verbosity
pd
lbi
-- generate inplace-pkg-config
when
(
isJust
$
library
pd
)
$
writeInstalledConfig
distdir
pd
lbi
True
(
distdir
</>
"inplace-pkg-config"
)
case
(
library
pd
,
libraryConfig
lbi
)
of
(
Nothing
,
Nothing
)
->
return
()
(
Just
lib
,
Just
clbi
)
->
do
cwd
<-
getCurrentDirectory
let
installedPkgInfo
=
inplaceInstalledPackageInfo
cwd
distdir
pd
lib
lbi
clbi
content
=
Installed
.
showInstalledPackageInfo
installedPkgInfo
++
"
\n
"
writeFileAtomic
(
distdir
</>
"inplace-pkg-config"
)
content
_
->
error
"Inconsistent lib components; can't happen?"
let
libBiModules
lib
=
(
libBuildInfo
lib
,
libModules
lib
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment