projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
0287b1b
)
[project @ 2005-01-27 14:38:29 by simonmar]
author
simonmar
<unknown>
Thu, 27 Jan 2005 14:38:29 +0000
(14:38 +0000)
committer
simonmar
<unknown>
Thu, 27 Jan 2005 14:38:29 +0000
(14:38 +0000)
Fix explicit layout
ghc/compiler/main/DriverMkDepend.hs
patch
|
blob
|
history
diff --git
a/ghc/compiler/main/DriverMkDepend.hs
b/ghc/compiler/main/DriverMkDepend.hs
index
7d13a70
..
a303deb
100644
(file)
--- a/
ghc/compiler/main/DriverMkDepend.hs
+++ b/
ghc/compiler/main/DriverMkDepend.hs
@@
-1,5
+1,5
@@
-----------------------------------------------------------------------------
-----------------------------------------------------------------------------
--- $Id: DriverMkDepend.hs,v 1.37 2005/01/27 10:44:27 simonpj Exp $
+-- $Id: DriverMkDepend.hs,v 1.38 2005/01/27 14:38:29 simonmar Exp $
--
-- GHC Driver
--
--
-- GHC Driver
--
@@
-273,13
+273,14
@@
insertSuffixes file_name extras
endMkDependHS :: DynFlags -> MkDepFiles -> IO ()
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
= 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
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
-- Copy the new makefile in place
; SysTools.copy dflags "Installing new makefile" tmp_file make_file
- }}
+ }}}
-----------------------------------------------------------------
-----------------------------------------------------------------