[commit: ghc] master: Formatting wibble in GhcMake.hs (6490ea6)

[David Terei]

Repository : ssh://darcs.haskell.org//srv/darcs/ghc

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/6490ea6da6c0e86c3ef2c18ee2ad39e1716a7dcd

>---------------------------------------------------------------

commit 6490ea6da6c0e86c3ef2c18ee2ad39e1716a7dcd
Author: David Terei <davidterei at gmail.com>
Date:   Mon Apr 25 19:16:18 2011 -0700

    Formatting wibble in GhcMake.hs

>---------------------------------------------------------------

 compiler/main/GhcMake.hs |    9 +++------
 1 files changed, 3 insertions(+), 6 deletions(-)

diff --git a/compiler/main/GhcMake.hs b/compiler/main/GhcMake.hs
index 0d41435..ab65894 100644
--- a/compiler/main/GhcMake.hs
+++ b/compiler/main/GhcMake.hs
@@ -1405,17 +1405,14 @@ preprocessFile hsc_env src_fn mb_phase Nothing
 preprocessFile hsc_env src_fn mb_phase (Just (buf, _time))
   = do
         let dflags = hsc_dflags hsc_env
-	-- case we bypass the preprocessing stage?
-	let 
-	    local_opts = getOptions dflags buf src_fn
-	--
+	let local_opts = getOptions dflags buf src_fn
+
 	(dflags', leftovers, warns)
             <- parseDynamicNoPackageFlags dflags local_opts
         checkProcessArgsResult leftovers
         handleFlagWarnings dflags' warns
 
-	let
-	    needs_preprocessing
+	let needs_preprocessing
 		| Just (Unlit _) <- mb_phase    = True
 	        | Nothing <- mb_phase, Unlit _ <- startPhase src_fn  = True
 		  -- note: local_opts is only required if there's no Unlit phase