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
2cf37ff9
Commit
2cf37ff9
authored
Jan 27, 2005
by
simonmar
Browse files
[project @ 2005-01-27 14:38:29 by simonmar]
Fix explicit layout
parent
0287b1b5
Changes
1
Hide whitespace changes
Inline
Side-by-side
ghc/compiler/main/DriverMkDepend.hs
View file @
2cf37ff9
-----------------------------------------------------------------------------
-- $Id: DriverMkDepend.hs,v 1.3
7
2005/01/27 1
0:44
:2
7
simon
pj
Exp $
-- $Id: DriverMkDepend.hs,v 1.3
8
2005/01/27 1
4:38
:2
9
simon
mar
Exp $
--
-- GHC Driver
--
...
...
@@ -273,13 +273,14 @@ insertSuffixes file_name extras
endMkDependHS
::
DynFlags
->
MkDepFiles
->
IO
()
endMkDependHS
dflags
(
MkDep
{
mkd_make_file
=
make_file
,
mkd_make_hdl
=
makefile_hdl
,
mkd_tmp_file
=
tmp_file
,
mkd_tmp_hdl
=
tmp_hdl
})
endMkDependHS
dflags
(
MkDep
{
mkd_make_file
=
make_file
,
mkd_make_hdl
=
makefile_hdl
,
mkd_tmp_file
=
tmp_file
,
mkd_tmp_hdl
=
tmp_hdl
})
=
do
{
-- write the magic marker into the tmp file
hPutStrLn
tmp_hdl
depEndMarker
;
case
makefile_hdl
of
Nothing
->
return
()
;
case
makefile_hdl
of
{
Nothing
->
return
()
;
Just
hdl
->
do
{
-- slurp the rest of the original makefile and copy it into the output
...
...
@@ -302,7 +303,7 @@ endMkDependHS dflags (MkDep { mkd_make_file = make_file, mkd_make_hdl = makefil
-- Copy the new makefile in place
;
SysTools
.
copy
dflags
"Installing new makefile"
tmp_file
make_file
}}
}}
}
-----------------------------------------------------------------
...
...
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