[commit: ghc] master: Simplify (74f0e15)

[git at git.haskell.org]

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

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

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

commit 74f0e1515b1031eb116aad2b74ee8dece8bfc4c0
Author: Gabor Greif <ggreif at gmail.com>
Date:   Wed Sep 17 06:40:32 2014 +0200

    Simplify


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

74f0e1515b1031eb116aad2b74ee8dece8bfc4c0
 compiler/prelude/TysWiredIn.lhs | 22 ++++++++++------------
 1 file changed, 10 insertions(+), 12 deletions(-)

diff --git a/compiler/prelude/TysWiredIn.lhs b/compiler/prelude/TysWiredIn.lhs
index 4586b90..b4ada73 100644
--- a/compiler/prelude/TysWiredIn.lhs
+++ b/compiler/prelude/TysWiredIn.lhs
@@ -261,18 +261,16 @@ pcNonRecDataTyCon = pcTyCon False NonRecursive False
 -- Representational role!
 pcTyCon :: Bool -> RecFlag -> Bool -> Name -> Maybe CType -> [TyVar] -> [DataCon] -> TyCon
 pcTyCon is_enum is_rec is_prom name cType tyvars cons
-  = tycon
-  where
-    tycon = buildAlgTyCon name
-                tyvars
-                (map (const Representational) tyvars)
-                cType
-                []              -- No stupid theta
-                (DataTyCon cons is_enum)
-                is_rec
-                is_prom
-                False           -- Not in GADT syntax
-                NoParentTyCon
+  = buildAlgTyCon name
+        tyvars
+        (map (const Representational) tyvars)
+        cType
+        []              -- No stupid theta
+        (DataTyCon cons is_enum)
+        is_rec
+        is_prom
+        False           -- Not in GADT syntax
+        NoParentTyCon
 
 pcDataCon :: Name -> [TyVar] -> [Type] -> TyCon -> DataCon
 pcDataCon = pcDataConWithFixity False