Simplify
authorGabor Greif <ggreif@gmail.com>
Wed, 17 Sep 2014 04:40:32 +0000 (06:40 +0200)
committerGabor Greif <ggreif@gmail.com>
Wed, 17 Sep 2014 09:30:40 +0000 (11:30 +0200)
compiler/prelude/TysWiredIn.lhs

index 4586b90..b4ada73 100644 (file)
@@ -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