[commit: ghc] master: Whitespace only in HeaderInfo (e381543)

[Ian Lynagh]

Repository : http://darcs.haskell.org/ghc.git/

On branch  : master

https://github.com/ghc/ghc/commit/e3815430d33ec2f912d8d864e06306d3ff952f9e

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

commit e3815430d33ec2f912d8d864e06306d3ff952f9e
Author: Ian Lynagh <ian at well-typed.com>
Date:   Sat Jun 22 00:22:38 2013 +0100

    Whitespace only in HeaderInfo

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

 compiler/main/HeaderInfo.hs | 53 ++++++++++++++++++++-------------------------
 1 file changed, 23 insertions(+), 30 deletions(-)

diff --git a/compiler/main/HeaderInfo.hs b/compiler/main/HeaderInfo.hs
index f7ae35f..2560db3 100644
--- a/compiler/main/HeaderInfo.hs
+++ b/compiler/main/HeaderInfo.hs
@@ -8,13 +8,6 @@
 --
 -----------------------------------------------------------------------------
 
-{-# OPTIONS -fno-warn-tabs #-}
--- The above warning supression flag is a temporary kludge.
--- While working on this module you are encouraged to remove it and
--- detab the module (please do the detabbing in a separate patch). See
---     http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#TabsvsSpaces
--- for details
-
 module HeaderInfo ( getImports
                   , mkPrelImports -- used by the renamer too
                   , getOptionsFromFile, getOptions
@@ -25,7 +18,7 @@ module HeaderInfo ( getImports
 
 import RdrName
 import HscTypes
-import Parser		( parseHeader )
+import Parser           ( parseHeader )
 import Lexer
 import FastString
 import HsSyn
@@ -39,7 +32,7 @@ import Util
 import Outputable
 import Pretty           ()
 import Maybes
-import Bag		( emptyBag, listToBag, unitBag )
+import Bag              ( emptyBag, listToBag, unitBag )
 import MonadUtils
 import Exception
 
@@ -74,21 +67,21 @@ getImports dflags buf filename source_filename = do
       if errorsFound dflags ms
         then throwIO $ mkSrcErr errs
         else
-	  case rdr_module of
-	    L _ (HsModule mb_mod _ imps _ _ _) ->
-	      let
+          case rdr_module of
+            L _ (HsModule mb_mod _ imps _ _ _) ->
+              let
                 main_loc = srcLocSpan (mkSrcLoc (mkFastString source_filename) 1 1)
-		mod = mb_mod `orElse` L main_loc mAIN_NAME
-	        (src_idecls, ord_idecls) = partition (ideclSource.unLoc) imps
+                mod = mb_mod `orElse` L main_loc mAIN_NAME
+                (src_idecls, ord_idecls) = partition (ideclSource.unLoc) imps
 
-		     -- GHC.Prim doesn't exist physically, so don't go looking for it.
-		ordinary_imps = filter ((/= moduleName gHC_PRIM) . unLoc . ideclName . unLoc) 
-					ord_idecls
+                     -- GHC.Prim doesn't exist physically, so don't go looking for it.
+                ordinary_imps = filter ((/= moduleName gHC_PRIM) . unLoc . ideclName . unLoc)
+                                       ord_idecls
 
                 implicit_prelude = xopt Opt_ImplicitPrelude dflags
                 implicit_imports = mkPrelImports (unLoc mod) main_loc implicit_prelude imps
-	      in
-	      return (src_idecls, implicit_imports ++ ordinary_imps, mod)
+              in
+              return (src_idecls, implicit_imports ++ ordinary_imps, mod)
 
 mkPrelImports :: ModuleName
               -> SrcSpan    -- Attribute the "import Prelude" to this location
@@ -110,18 +103,18 @@ mkPrelImports this_mod loc implicit_prelude import_decls
        = notNull [ () | L _ (ImportDecl { ideclName = mod
                                         , ideclPkgQual = Nothing })
                           <- import_decls
-	              , unLoc mod == pRELUDE_NAME ]
+                      , unLoc mod == pRELUDE_NAME ]
 
       preludeImportDecl :: LImportDecl RdrName
       preludeImportDecl
         = L loc $ ImportDecl { ideclName      = L loc pRELUDE_NAME,
-      		    	       ideclPkgQual   = Nothing,
-      		    	       ideclSource    = False,
-      		    	       ideclSafe      = False,  -- Not a safe import
-      		    	       ideclQualified = False,
-      		    	       ideclImplicit  = True,	-- Implicit!
-      		    	       ideclAs        = Nothing,
-      		    	       ideclHiding    = Nothing  }
+                               ideclPkgQual   = Nothing,
+                               ideclSource    = False,
+                               ideclSafe      = False,  -- Not a safe import
+                               ideclQualified = False,
+                               ideclImplicit  = True,   -- Implicit!
+                               ideclAs        = Nothing,
+                               ideclHiding    = Nothing  }
 
 parseError :: DynFlags -> SrcSpan -> MsgDoc -> IO a
 parseError dflags span err = throwOneError $ mkPlainErrMsg dflags span err
@@ -138,7 +131,7 @@ getOptionsFromFile :: DynFlags
                    -> IO [Located String] -- ^ Parsed options, if any.
 getOptionsFromFile dflags filename
     = Exception.bracket
-	      (openBinaryFile filename ReadMode)
+              (openBinaryFile filename ReadMode)
               (hClose)
               (\handle -> do
                   opts <- fmap (getOptions' dflags)
@@ -313,8 +306,8 @@ unsupportedExtnError dflags loc unsup =
 optionsErrorMsgs :: DynFlags -> [String] -> [Located String] -> FilePath -> Messages
 optionsErrorMsgs dflags unhandled_flags flags_lines _filename
   = (emptyBag, listToBag (map mkMsg unhandled_flags_lines))
-  where	unhandled_flags_lines = [ L l f | f <- unhandled_flags, 
-					  L l f' <- flags_lines, f == f' ]
+  where unhandled_flags_lines = [ L l f | f <- unhandled_flags,
+                                          L l f' <- flags_lines, f == f' ]
         mkMsg (L flagSpan flag) =
             ErrUtils.mkPlainErrMsg dflags flagSpan $
                     text "unknown flag in  {-# OPTIONS_GHC #-} pragma:" <+> text flag