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
fc040dbd
Commit
fc040dbd
authored
Feb 02, 2016
by
Andrey Mokhov
Browse files
Need touchy when calling ghc-stageN, N > 0, on Windows.
parent
be9a21c6
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/Settings/Builders/Ghc.hs
View file @
fc040dbd
...
...
@@ -21,6 +21,7 @@ ghcBuilderArgs = stagedBuilder Ghc ? do
output
<-
getOutput
stage
<-
getStage
way
<-
getWay
when
(
stage
>
Stage0
)
.
lift
$
needTouchy
let
buildObj
=
(
"//*."
++
osuf
way
)
?==
output
||
(
"//*."
++
obootsuf
way
)
?==
output
buildHi
=
(
"//*."
++
hisuf
way
)
?==
output
||
(
"//*."
++
hibootsuf
way
)
?==
output
buildProg
=
not
(
buildObj
||
buildHi
)
...
...
@@ -44,6 +45,9 @@ ghcBuilderArgs = stagedBuilder Ghc ? do
,
buildHi
?
append
[
"-fno-code"
,
"-fwrite-interface"
]
,
not
buildHi
?
mconcat
[
arg
"-o"
,
arg
=<<
getOutput
]
]
needTouchy
::
Action
()
needTouchy
=
whenM
windowsHost
$
need
[
fromJust
$
programPath
Stage0
touchy
]
splitObjectsArgs
::
Args
splitObjectsArgs
=
splitObjects
?
do
lift
$
need
[
ghcSplit
]
...
...
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