[commit: ghc] master: nativeGen: detabify/dewhitespace PPC/RegInfo (e6a32cc)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/e6a32cc4734258e416e852427d1d94082de19814/ghc

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

commit e6a32cc4734258e416e852427d1d94082de19814
Author: Austin Seipp <austin at well-typed.com>
Date:   Fri Jul 18 22:24:40 2014 -0500

    nativeGen: detabify/dewhitespace PPC/RegInfo
    
    Signed-off-by: Austin Seipp <austin at well-typed.com>


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

e6a32cc4734258e416e852427d1d94082de19814
 compiler/nativeGen/PPC/RegInfo.hs | 21 ++++++---------------
 1 file changed, 6 insertions(+), 15 deletions(-)

diff --git a/compiler/nativeGen/PPC/RegInfo.hs b/compiler/nativeGen/PPC/RegInfo.hs
index bffa9ea..c4724d4 100644
--- a/compiler/nativeGen/PPC/RegInfo.hs
+++ b/compiler/nativeGen/PPC/RegInfo.hs
@@ -7,20 +7,12 @@
 -- (c) The University of Glasgow 1996-2004
 --
 -----------------------------------------------------------------------------
-
-{-# OPTIONS_GHC -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://ghc.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#TabsvsSpaces
--- for details
-
 module PPC.RegInfo (
         JumpDest( DestBlockId ), getJumpDestBlockId,
-	canShortcut, 
-	shortcutJump, 
+        canShortcut,
+        shortcutJump,
 
-	shortcutStatics
+        shortcutStatics
 )
 
 where
@@ -71,13 +63,12 @@ shortcutStatic _ other_static
         = other_static
 
 shortBlockId
-	:: (BlockId -> Maybe JumpDest)
-	-> BlockId
-	-> CLabel
+        :: (BlockId -> Maybe JumpDest)
+        -> BlockId
+        -> CLabel
 
 shortBlockId fn blockid =
    case fn blockid of
       Nothing -> mkAsmTempLabel uq
       Just (DestBlockId blockid')  -> shortBlockId fn blockid'
    where uq = getUnique blockid
-