[commit: ghc] master: PrelInfo: Fix style (90df91a)

[git at git.haskell.org]

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

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

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

commit 90df91a067ec6a2fccc4b740cb3006e6ff3258cf
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Thu Oct 13 20:42:59 2016 -0400

    PrelInfo: Fix style


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

90df91a067ec6a2fccc4b740cb3006e6ff3258cf
 compiler/prelude/PrelInfo.hs | 25 ++++++++++++-------------
 1 file changed, 12 insertions(+), 13 deletions(-)

diff --git a/compiler/prelude/PrelInfo.hs b/compiler/prelude/PrelInfo.hs
index 59a9980..b9eb9da 100644
--- a/compiler/prelude/PrelInfo.hs
+++ b/compiler/prelude/PrelInfo.hs
@@ -101,11 +101,10 @@ Note [About wired-in things]
 -}
 
 
+-- | This list is used to ensure that when you say "Prelude.map" in your source
+-- code, or in an interface file, you get a Name with the correct known key (See
+-- Note [Known-key names] in PrelNames)
 knownKeyNames :: [Name]
--- This list is used to ensure that when you say "Prelude.map"
---  in your source code, or in an interface file,
--- you get a Name with the correct known key
--- (See Note [Known-key names] in PrelNames)
 knownKeyNames
   | debugIsOn
   , Just badNamesStr <- knownKeyNamesOkay all_names
@@ -119,18 +118,18 @@ knownKeyNames
   where
     all_names =
       concat [ wired_tycon_kk_names funTyCon
-            , concatMap wired_tycon_kk_names primTyCons
+             , concatMap wired_tycon_kk_names primTyCons
 
-            , concatMap wired_tycon_kk_names wiredInTyCons
-              -- Does not include tuples
+             , concatMap wired_tycon_kk_names wiredInTyCons
+               -- Does not include tuples
 
-            , concatMap wired_tycon_kk_names typeNatTyCons
+             , concatMap wired_tycon_kk_names typeNatTyCons
 
-            , map idName wiredInIds
-            , map (idName . primOpId) allThePrimOps
-            , basicKnownKeyNames
-            , templateHaskellNames
-            ]
+             , map idName wiredInIds
+             , map (idName . primOpId) allThePrimOps
+             , basicKnownKeyNames
+             , templateHaskellNames
+             ]
     -- All of the names associated with a wired-in TyCon.
     -- This includes the TyCon itself, its DataCons and promoted TyCons.
     wired_tycon_kk_names :: TyCon -> [Name]