Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
fd28d9aa
Commit
fd28d9aa
authored
Jan 13, 2015
by
Andrey Mokhov
Browse files
Add toStandard.
parent
d1ade7d5
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/Package/Compile.hs
View file @
fd28d9aa
...
...
@@ -31,8 +31,8 @@ suffixArgs way = arg ["-hisuf", hisuf way]
oRule
::
Package
->
TodoItem
->
Rules
()
oRule
(
Package
name
path
_
)
(
stage
,
dist
,
settings
)
=
let
buildDir
=
path
</>
dist
</>
"build"
pkgData
=
path
</>
dist
</>
"package-data.mk"
let
buildDir
=
toStandard
$
path
</>
dist
</>
"build"
pkgData
=
toStandard
$
path
</>
dist
</>
"package-data.mk"
depFile
=
buildDir
</>
name
<.>
"m"
in
(
buildDir
<//>
"*o"
)
%>
\
out
->
do
...
...
@@ -59,7 +59,7 @@ oRule (Package name path _) (stage, dist, settings) =
-- TODO: This rule looks hacky... combine it with the above?
hiRule
::
Package
->
TodoItem
->
Rules
()
hiRule
(
Package
name
path
_
)
(
stage
,
dist
,
settings
)
=
let
buildDir
=
path
</>
dist
</>
"build"
let
buildDir
=
toStandard
$
path
</>
dist
</>
"build"
in
(
buildDir
<//>
"*hi"
)
%>
\
out
->
do
let
way
=
detectWay
$
tail
$
takeExtension
out
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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