[commit: ghc] wip/generics-propeq: shorten lines (ff9c557)

[git at git.haskell.org]

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

On branch  : wip/generics-propeq
Link       : http://ghc.haskell.org/trac/ghc/changeset/ff9c5570395bcacf8963149b3a8475f5644ce694/ghc

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

commit ff9c5570395bcacf8963149b3a8475f5644ce694
Author: Gabor Greif <ggreif at gmail.com>
Date:   Sun Jun 29 14:44:10 2014 +0200

    shorten lines


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

ff9c5570395bcacf8963149b3a8475f5644ce694
 compiler/typecheck/TcGenGenerics.lhs | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/compiler/typecheck/TcGenGenerics.lhs b/compiler/typecheck/TcGenGenerics.lhs
index a711eb5..8b72430 100644
--- a/compiler/typecheck/TcGenGenerics.lhs
+++ b/compiler/typecheck/TcGenGenerics.lhs
@@ -90,13 +90,17 @@ genGenericMetaTyCons tc mod =
 
       d_tycon  <- tcLookupTyCon datTyConName
       let d_type = mkTyConApp d_tycon $ map (LitTy . StrTyLit)
-                    [moduleNameFS . moduleName $ mod, occNameFS . nameOccName $ tc_name]
+                    [moduleNameFS . moduleName $ mod,
+                     occNameFS . nameOccName $ tc_name]
       let c_names = map getName tc_cons
       s_names <- forM (zip [0..] tc_arits) $ \(m,a) -> forM [0..a-1] $ \n ->
                     newGlobalBinder mod (s_occ m n) loc
 
       c_tycon  <- tcLookupTyCon constrTyConName
-      let metaCTys = map (\name -> mkTyConApp c_tycon [d_type, LitTy . StrTyLit . occNameFS . nameOccName $ name]) c_names
+      let metaCTys = map (\name -> mkTyConApp c_tycon
+                                    [d_type, LitTy . StrTyLit . occNameFS
+                                                   . nameOccName $ name])
+                         c_names
           metaSTyCons = map (map (mkTyCon [])) s_names
 
           metaDts = MetaTyCons d_type metaCTys metaSTyCons