Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
2143dce7
Commit
2143dce7
authored
Jan 13, 2015
by
Andrey Mokhov
Browse files
Implement new build rule: buildPackageLibrary.
parent
efb59728
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/Package/Library.hs
0 → 100644
View file @
2143dce7
{-# LANGUAGE NoImplicitPrelude #-}
module
Package.Library
(
buildPackageLibrary
)
where
import
Package.Base
{- "/usr/bin/ar" q
libraries/deepseq/dist-install/build/libHSdeeps_FT5iVCELxOr62eHY0nbvnU.a
@libraries/deepseq/dist-install/build/libHSdeeps_FT5iVCELxOr62eHY0nbvnU.a.contents
-}
-- "$$(XARGS)" $$(XARGS_OPTS) "$$($1_$2_AR)" $$($1_$2_AR_OPTS) $$($1_$2_EXTRA_AR_ARGS) $$@ < $$@.contents
-- AR_OPTS = $(SRC_AR_OPTS) $(WAY$(_way)_AR_OPTS) $(EXTRA_AR_OPTS)
buildPackageLibrary
::
Package
->
TodoItem
->
Rules
()
buildPackageLibrary
(
Package
_
path
_
)
(
stage
,
dist
,
_
)
=
let
buildDir
=
path
</>
dist
</>
"build"
pkgData
=
path
</>
dist
</>
"package-data.mk"
in
(
buildDir
<//>
"*a"
)
%>
\
out
->
do
let
way
=
detectWay
$
tail
$
takeExtension
out
need
[
"shake/src/Package/Library.hs"
]
depObjs
<-
pkgDepObjects
path
dist
way
need
depObjs
libObjs
<-
pkgLibObjects
path
dist
stage
way
terseRun
Ar
$
arArgs
<+>
out
<+>
libObjs
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