[commit: ghc] wip/T11970: Formatting (5cfe5f4)

[git at git.haskell.org]

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

On branch  : wip/T11970
Link       : http://ghc.haskell.org/trac/ghc/changeset/5cfe5f405b06459bd5d630e59aa3e4fa8351f7ba/ghc

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

commit 5cfe5f405b06459bd5d630e59aa3e4fa8351f7ba
Author: Matthew Pickering <matthewtpickering at gmail.com>
Date:   Tue May 24 11:22:22 2016 +0100

    Formatting


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

5cfe5f405b06459bd5d630e59aa3e4fa8351f7ba
 compiler/rename/RnNames.hs       | 3 ++-
 compiler/typecheck/TcRnDriver.hs | 7 ++++---
 2 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/compiler/rename/RnNames.hs b/compiler/rename/RnNames.hs
index c8eb5eb..2434bd9 100644
--- a/compiler/rename/RnNames.hs
+++ b/compiler/rename/RnNames.hs
@@ -1104,7 +1104,8 @@ lookupChildrenExport parent rdr_items =
   do
     let
 
-        doOne :: Located RdrName -> RnM (Either (Located Name) [Located FieldLabel])
+        doOne :: Located RdrName
+              -> RnM (Either (Located Name) [Located FieldLabel])
         doOne n = do
 
           let bareName = unLoc n
diff --git a/compiler/typecheck/TcRnDriver.hs b/compiler/typecheck/TcRnDriver.hs
index d55b5d6..ff0f70b 100644
--- a/compiler/typecheck/TcRnDriver.hs
+++ b/compiler/typecheck/TcRnDriver.hs
@@ -2350,9 +2350,10 @@ tc_export_with n ns fls = do
   let data_cons = [(c,  dataConTyCon c)
                         | AConLike (RealDataCon c) <- things ]
       ps        = [(psErr p,p) | AConLike (PatSynCon p) <- things]
-      ps_sels   = [(selErr i,p) | AnId i <- things
-                        , isId i
-                        , RecSelId {sel_tycon = RecSelPatSyn p} <- [idDetails i]]
+      ps_sels   = [(selErr i,p)
+                    | AnId i <- things
+                    , isId i
+                    , RecSelId {sel_tycon = RecSelPatSyn p} <- [idDetails i]]
 
   let actual_res_ty =
           mkTyConApp ty_con (mkTyVarTys (tyConTyVars ty_con))