From 2cf37ff932f52b68c73b0d6107d872b692a4cbf4 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Thu, 27 Jan 2005 14:38:29 +0000
Subject: [PATCH] [project @ 2005-01-27 14:38:29 by simonmar] Fix explicit
 layout

---
 ghc/compiler/main/DriverMkDepend.hs |   13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/ghc/compiler/main/DriverMkDepend.hs b/ghc/compiler/main/DriverMkDepend.hs
index 7d13a70..a303deb 100644
--- 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
 --
@@ -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
-	}}
+	}}}
 
 
 -----------------------------------------------------------------
-- 
1.7.10.4