Commit c8138c85 authored by Joachim Breitner's avatar Joachim Breitner

Do not print DmdType in Core output

too verbose, and usualy preceded by Str= anyways.
parent e6e17a09
...@@ -1239,8 +1239,7 @@ bothDmdType (DmdType fv1 ds1 r1) (fv2, t2) ...@@ -1239,8 +1239,7 @@ bothDmdType (DmdType fv1 ds1 r1) (fv2, t2)
instance Outputable DmdType where instance Outputable DmdType where
ppr (DmdType fv ds res) ppr (DmdType fv ds res)
= hsep [text "DmdType", = hsep [hcat (map ppr ds) <> ppr res,
hcat (map ppr ds) <> ppr res,
if null fv_elts then empty if null fv_elts then empty
else braces (fsep (map pp_elt fv_elts))] else braces (fsep (map pp_elt fv_elts))]
where where
......
...@@ -6,7 +6,7 @@ Result size of Tidy Core = {terms: 36, types: 30, coercions: 1} ...@@ -6,7 +6,7 @@ Result size of Tidy Core = {terms: 36, types: 30, coercions: 1}
T2431.$WRefl [InlPrag=INLINE] :: forall a. a :~: a T2431.$WRefl [InlPrag=INLINE] :: forall a. a :~: a
[GblId[DataConWrapper], [GblId[DataConWrapper],
Caf=NoCafRefs, Caf=NoCafRefs,
Str=DmdType m, Str=m,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True, Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True, WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=0,unsat_ok=False,boring_ok=False) Guidance=ALWAYS_IF(arity=0,unsat_ok=False,boring_ok=False)
...@@ -18,32 +18,32 @@ T2431.$WRefl = ...@@ -18,32 +18,32 @@ T2431.$WRefl =
-- RHS size: {terms: 4, types: 8, coercions: 0} -- RHS size: {terms: 4, types: 8, coercions: 0}
absurd :: forall a. Int :~: Bool -> a absurd :: forall a. Int :~: Bool -> a
[GblId, Arity=1, Caf=NoCafRefs, Str=DmdType <L,U>x] [GblId, Arity=1, Caf=NoCafRefs, Str=<L,U>x]
absurd = \ (@ a) (x :: Int :~: Bool) -> case x of _ [Occ=Dead] { } absurd = \ (@ a) (x :: Int :~: Bool) -> case x of _ [Occ=Dead] { }
-- RHS size: {terms: 2, types: 0, coercions: 0} -- RHS size: {terms: 2, types: 0, coercions: 0}
$trModule1 :: GHC.Types.TrName $trModule1 :: GHC.Types.TrName
[GblId, Caf=NoCafRefs, Str=DmdType] [GblId, Caf=NoCafRefs]
$trModule1 = GHC.Types.TrNameS "main"# $trModule1 = GHC.Types.TrNameS "main"#
-- RHS size: {terms: 2, types: 0, coercions: 0} -- RHS size: {terms: 2, types: 0, coercions: 0}
$trModule2 :: GHC.Types.TrName $trModule2 :: GHC.Types.TrName
[GblId, Caf=NoCafRefs, Str=DmdType] [GblId, Caf=NoCafRefs]
$trModule2 = GHC.Types.TrNameS "T2431"# $trModule2 = GHC.Types.TrNameS "T2431"#
-- RHS size: {terms: 3, types: 0, coercions: 0} -- RHS size: {terms: 3, types: 0, coercions: 0}
T2431.$trModule :: GHC.Types.Module T2431.$trModule :: GHC.Types.Module
[GblId, Caf=NoCafRefs, Str=DmdType] [GblId, Caf=NoCafRefs]
T2431.$trModule = GHC.Types.Module $trModule1 $trModule2 T2431.$trModule = GHC.Types.Module $trModule1 $trModule2
-- RHS size: {terms: 2, types: 0, coercions: 0} -- RHS size: {terms: 2, types: 0, coercions: 0}
$tc'Refl1 :: GHC.Types.TrName $tc'Refl1 :: GHC.Types.TrName
[GblId, Caf=NoCafRefs, Str=DmdType] [GblId, Caf=NoCafRefs]
$tc'Refl1 = GHC.Types.TrNameS "'Refl"# $tc'Refl1 = GHC.Types.TrNameS "'Refl"#
-- RHS size: {terms: 5, types: 0, coercions: 0} -- RHS size: {terms: 5, types: 0, coercions: 0}
T2431.$tc'Refl :: GHC.Types.TyCon T2431.$tc'Refl :: GHC.Types.TyCon
[GblId, Caf=NoCafRefs, Str=DmdType] [GblId, Caf=NoCafRefs]
T2431.$tc'Refl = T2431.$tc'Refl =
GHC.Types.TyCon GHC.Types.TyCon
15026191172322750497## 15026191172322750497##
...@@ -53,12 +53,12 @@ T2431.$tc'Refl = ...@@ -53,12 +53,12 @@ T2431.$tc'Refl =
-- RHS size: {terms: 2, types: 0, coercions: 0} -- RHS size: {terms: 2, types: 0, coercions: 0}
$tc:~:1 :: GHC.Types.TrName $tc:~:1 :: GHC.Types.TrName
[GblId, Caf=NoCafRefs, Str=DmdType] [GblId, Caf=NoCafRefs]
$tc:~:1 = GHC.Types.TrNameS ":~:"# $tc:~:1 = GHC.Types.TrNameS ":~:"#
-- RHS size: {terms: 5, types: 0, coercions: 0} -- RHS size: {terms: 5, types: 0, coercions: 0}
T2431.$tc:~: :: GHC.Types.TyCon T2431.$tc:~: :: GHC.Types.TyCon
[GblId, Caf=NoCafRefs, Str=DmdType] [GblId, Caf=NoCafRefs]
T2431.$tc:~: = T2431.$tc:~: =
GHC.Types.TyCon GHC.Types.TyCon
9759653149176674453## 9759653149176674453##
......
...@@ -46,7 +46,7 @@ $s$wsFoldr1_szbtK ...@@ -46,7 +46,7 @@ $s$wsFoldr1_szbtK
(Let1627448493XsSym4 x_azbOM m_azbFg ipv_szbwN ipv_szbwO)) (Let1627448493XsSym4 x_azbOM m_azbFg ipv_szbwN ipv_szbwO))
[LclId, [LclId,
Arity=4, Arity=4,
Str=DmdType <L,U><L,U><L,U><C(S(C(S))),C(U(1*C1(U)))>] Str=<L,U><L,U><L,U><C(S(C(S))),C(U(1*C1(U)))>]
$s$wsFoldr1_szbtK = $s$wsFoldr1_szbtK =
\ (@ (m_azbFg :: a_afdP_azbON)) \ (@ (m_azbFg :: a_afdP_azbON))
(@ (x_azbOM :: TyFun (@ (x_azbOM :: TyFun
......
...@@ -8,7 +8,7 @@ module Roman where ...@@ -8,7 +8,7 @@ module Roman where
-- Compare: -- Compare:
-- --
-- $s$wgo_s1CN :: Int# -> Int -> Int# -- $s$wgo_s1CN :: Int# -> Int -> Int#
-- [LclId, Arity=2, Str=DmdType <L,U><L,U>] -- [LclId, Arity=2, Str=<L,U><L,U>]
-- $s$wgo_s1CN = -- $s$wgo_s1CN =
-- \ (sc_s1CI :: Int#) (sc_s1CJ :: Int) -> -- \ (sc_s1CI :: Int#) (sc_s1CJ :: Int) ->
-- case tagToEnum# @ Bool (<=# sc_s1CI 0#) of _ [Occ=Dead] { -- case tagToEnum# @ Bool (<=# sc_s1CI 0#) of _ [Occ=Dead] {
...@@ -20,7 +20,7 @@ module Roman where ...@@ -20,7 +20,7 @@ module Roman where
-- vs -- vs
-- --
-- $s$wgo_s18mTj :: Int -> Int# -> Int# -- $s$wgo_s18mTj :: Int -> Int# -> Int#
-- [LclId, Arity=2, Str=DmdType <L,U><L,U>] -- [LclId, Arity=2, Str=<L,U><L,U>]
-- $s$wgo_s18mTj = -- $s$wgo_s18mTj =
-- \ (sc_s18mTn :: Int) (sc_s18mTo :: Int#) -> -- \ (sc_s18mTn :: Int) (sc_s18mTo :: Int#) ->
-- case tagToEnum# @ Bool (<=# sc_s18mTo 0#) of _ [Occ=Dead] { -- case tagToEnum# @ Bool (<=# sc_s18mTo 0#) of _ [Occ=Dead] {
......
...@@ -6,7 +6,7 @@ Result size of Tidy Core = {terms: 32, types: 17, coercions: 0} ...@@ -6,7 +6,7 @@ Result size of Tidy Core = {terms: 32, types: 17, coercions: 0}
T7116.$trModule2 :: GHC.Types.TrName T7116.$trModule2 :: GHC.Types.TrName
[GblId, [GblId,
Caf=NoCafRefs, Caf=NoCafRefs,
Str=DmdType m1, Str=m1,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True, Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 30 20}] WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 30 20}]
T7116.$trModule2 = GHC.Types.TrNameS "main"# T7116.$trModule2 = GHC.Types.TrNameS "main"#
...@@ -15,7 +15,7 @@ T7116.$trModule2 = GHC.Types.TrNameS "main"# ...@@ -15,7 +15,7 @@ T7116.$trModule2 = GHC.Types.TrNameS "main"#
T7116.$trModule1 :: GHC.Types.TrName T7116.$trModule1 :: GHC.Types.TrName
[GblId, [GblId,
Caf=NoCafRefs, Caf=NoCafRefs,
Str=DmdType m1, Str=m1,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True, Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 40 20}] WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 40 20}]
T7116.$trModule1 = GHC.Types.TrNameS "T7116"# T7116.$trModule1 = GHC.Types.TrNameS "T7116"#
...@@ -24,7 +24,7 @@ T7116.$trModule1 = GHC.Types.TrNameS "T7116"# ...@@ -24,7 +24,7 @@ T7116.$trModule1 = GHC.Types.TrNameS "T7116"#
T7116.$trModule :: GHC.Types.Module T7116.$trModule :: GHC.Types.Module
[GblId, [GblId,
Caf=NoCafRefs, Caf=NoCafRefs,
Str=DmdType m, Str=m,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True, Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 10 30}] WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 10 30}]
T7116.$trModule = T7116.$trModule =
...@@ -35,7 +35,7 @@ dr :: Double -> Double ...@@ -35,7 +35,7 @@ dr :: Double -> Double
[GblId, [GblId,
Arity=1, Arity=1,
Caf=NoCafRefs, Caf=NoCafRefs,
Str=DmdType <S(S),1*U(U)>m, Str=<S(S),1*U(U)>m,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True, Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True, WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False) Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False)
...@@ -54,7 +54,7 @@ dl :: Double -> Double ...@@ -54,7 +54,7 @@ dl :: Double -> Double
[GblId, [GblId,
Arity=1, Arity=1,
Caf=NoCafRefs, Caf=NoCafRefs,
Str=DmdType <S(S),1*U(U)>m, Str=<S(S),1*U(U)>m,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True, Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True, WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False) Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False)
...@@ -69,7 +69,7 @@ fr :: Float -> Float ...@@ -69,7 +69,7 @@ fr :: Float -> Float
[GblId, [GblId,
Arity=1, Arity=1,
Caf=NoCafRefs, Caf=NoCafRefs,
Str=DmdType <S(S),1*U(U)>m, Str=<S(S),1*U(U)>m,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True, Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True, WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False) Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False)
...@@ -88,7 +88,7 @@ fl :: Float -> Float ...@@ -88,7 +88,7 @@ fl :: Float -> Float
[GblId, [GblId,
Arity=1, Arity=1,
Caf=NoCafRefs, Caf=NoCafRefs,
Str=DmdType <S(S),1*U(U)>m, Str=<S(S),1*U(U)>m,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True, Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True, WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False) Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False)
......
...@@ -9,7 +9,7 @@ Bad: ...@@ -9,7 +9,7 @@ Bad:
Rec { Rec {
go_r1us go_r1us
:: GHC.Types.Int -> Main.Tree GHC.Types.Int -> GHC.Types.Int :: GHC.Types.Int -> Main.Tree GHC.Types.Int -> GHC.Types.Int
[GblId, Arity=2, Caf=NoCafRefs, Str=DmdType SS] [GblId, Arity=2, Caf=NoCafRefs, Str=SS]
go_r1us = go_r1us =
\ (z_aeS :: GHC.Types.Int) (ds_dmD :: Main.Tree GHC.Types.Int) -> \ (z_aeS :: GHC.Types.Int) (ds_dmD :: Main.Tree GHC.Types.Int) ->
case ds_dmD of _ { case ds_dmD of _ {
...@@ -29,7 +29,7 @@ Good: ...@@ -29,7 +29,7 @@ Good:
Rec { Rec {
$wgo_r2fS $wgo_r2fS
:: GHC.Prim.Int# -> Main.Tree GHC.Types.Int -> GHC.Prim.Int# :: GHC.Prim.Int# -> Main.Tree GHC.Types.Int -> GHC.Prim.Int#
[GblId, Arity=2, Caf=NoCafRefs, Str=DmdType <L,U><S,1*U>] [GblId, Arity=2, Caf=NoCafRefs, Str=<L,U><S,1*U>]
$wgo_r2fS = $wgo_r2fS =
\ (ww_s2eZ :: GHC.Prim.Int#) (w_s2eW :: Main.Tree GHC.Types.Int) -> \ (ww_s2eZ :: GHC.Prim.Int#) (w_s2eW :: Main.Tree GHC.Types.Int) ->
case w_s2eW of _ [Occ=Dead] { case w_s2eW of _ [Occ=Dead] {
......
...@@ -9,7 +9,7 @@ Rec { ...@@ -9,7 +9,7 @@ Rec {
$we_r1z8 $we_r1z8
:: (GHC.Types.Int, GHC.Types.Int) :: (GHC.Types.Int, GHC.Types.Int)
-> GHC.Prim.Int# -> (# GHC.Types.Int, GHC.Types.Int #) -> GHC.Prim.Int# -> (# GHC.Types.Int, GHC.Types.Int #)
[GblId, Arity=2, Caf=NoCafRefs, Str=DmdType S(AA)L] [GblId, Arity=2, Caf=NoCafRefs, Str=S(AA)L]
$we_r1z8 = $we_r1z8 =
\ (w_s1yf :: (GHC.Types.Int, GHC.Types.Int)) \ (w_s1yf :: (GHC.Types.Int, GHC.Types.Int))
(ww_s1yi :: GHC.Prim.Int#) -> (ww_s1yi :: GHC.Prim.Int#) ->
...@@ -30,7 +30,7 @@ $we_r2qK ...@@ -30,7 +30,7 @@ $we_r2qK
-> GHC.Types.Int -> GHC.Types.Int
-> GHC.Prim.Int# -> GHC.Prim.Int#
-> (# GHC.Types.Int, GHC.Types.Int #) -> (# GHC.Types.Int, GHC.Types.Int #)
[GblId, Arity=3, Caf=NoCafRefs, Str=DmdType <L,U><L,U><L,U>] [GblId, Arity=3, Caf=NoCafRefs, Str=<L,U><L,U><L,U>]
$we_r2qK = $we_r2qK =
\ (ww_s2pS :: GHC.Types.Int) \ (ww_s2pS :: GHC.Types.Int)
(ww1_s2pT :: GHC.Types.Int) (ww1_s2pT :: GHC.Types.Int)
......
...@@ -4,12 +4,12 @@ Result size of Tidy Core = {terms: 51, types: 20, coercions: 5} ...@@ -4,12 +4,12 @@ Result size of Tidy Core = {terms: 51, types: 20, coercions: 5}
-- RHS size: {terms: 2, types: 2, coercions: 0} -- RHS size: {terms: 2, types: 2, coercions: 0}
convert1 :: Wrap Age -> Wrap Age convert1 :: Wrap Age -> Wrap Age
[GblId, Arity=1, Caf=NoCafRefs, Str=DmdType] [GblId, Arity=1, Caf=NoCafRefs]
convert1 = \ (ds :: Wrap Age) -> ds convert1 = \ (ds :: Wrap Age) -> ds
-- RHS size: {terms: 1, types: 0, coercions: 5} -- RHS size: {terms: 1, types: 0, coercions: 5}
convert :: Wrap Age -> Int convert :: Wrap Age -> Int
[GblId, Arity=1, Caf=NoCafRefs, Str=DmdType] [GblId, Arity=1, Caf=NoCafRefs]
convert = convert =
convert1 convert1
`cast` (<Wrap Age>_R -> Roles13.N:Wrap[0] Roles13.N:Age[0] `cast` (<Wrap Age>_R -> Roles13.N:Wrap[0] Roles13.N:Age[0]
...@@ -17,27 +17,27 @@ convert = ...@@ -17,27 +17,27 @@ convert =
-- RHS size: {terms: 2, types: 0, coercions: 0} -- RHS size: {terms: 2, types: 0, coercions: 0}
$trModule1 :: GHC.Types.TrName $trModule1 :: GHC.Types.TrName
[GblId, Caf=NoCafRefs, Str=DmdType] [GblId, Caf=NoCafRefs]
$trModule1 = GHC.Types.TrNameS "main"# $trModule1 = GHC.Types.TrNameS "main"#
-- RHS size: {terms: 2, types: 0, coercions: 0} -- RHS size: {terms: 2, types: 0, coercions: 0}
$trModule2 :: GHC.Types.TrName $trModule2 :: GHC.Types.TrName
[GblId, Caf=NoCafRefs, Str=DmdType] [GblId, Caf=NoCafRefs]
$trModule2 = GHC.Types.TrNameS "Roles13"# $trModule2 = GHC.Types.TrNameS "Roles13"#
-- RHS size: {terms: 3, types: 0, coercions: 0} -- RHS size: {terms: 3, types: 0, coercions: 0}
Roles13.$trModule :: GHC.Types.Module Roles13.$trModule :: GHC.Types.Module
[GblId, Caf=NoCafRefs, Str=DmdType] [GblId, Caf=NoCafRefs]
Roles13.$trModule = GHC.Types.Module $trModule1 $trModule2 Roles13.$trModule = GHC.Types.Module $trModule1 $trModule2
-- RHS size: {terms: 2, types: 0, coercions: 0} -- RHS size: {terms: 2, types: 0, coercions: 0}
$tc'MkAge1 :: GHC.Types.TrName $tc'MkAge1 :: GHC.Types.TrName
[GblId, Caf=NoCafRefs, Str=DmdType] [GblId, Caf=NoCafRefs]
$tc'MkAge1 = GHC.Types.TrNameS "'MkAge"# $tc'MkAge1 = GHC.Types.TrNameS "'MkAge"#
-- RHS size: {terms: 5, types: 0, coercions: 0} -- RHS size: {terms: 5, types: 0, coercions: 0}
Roles13.$tc'MkAge :: GHC.Types.TyCon Roles13.$tc'MkAge :: GHC.Types.TyCon
[GblId, Caf=NoCafRefs, Str=DmdType] [GblId, Caf=NoCafRefs]
Roles13.$tc'MkAge = Roles13.$tc'MkAge =
GHC.Types.TyCon GHC.Types.TyCon
1226019810264079099## 1226019810264079099##
...@@ -47,12 +47,12 @@ Roles13.$tc'MkAge = ...@@ -47,12 +47,12 @@ Roles13.$tc'MkAge =
-- RHS size: {terms: 2, types: 0, coercions: 0} -- RHS size: {terms: 2, types: 0, coercions: 0}
$tcAge1 :: GHC.Types.TrName $tcAge1 :: GHC.Types.TrName
[GblId, Caf=NoCafRefs, Str=DmdType] [GblId, Caf=NoCafRefs]
$tcAge1 = GHC.Types.TrNameS "Age"# $tcAge1 = GHC.Types.TrNameS "Age"#
-- RHS size: {terms: 5, types: 0, coercions: 0} -- RHS size: {terms: 5, types: 0, coercions: 0}
Roles13.$tcAge :: GHC.Types.TyCon Roles13.$tcAge :: GHC.Types.TyCon
[GblId, Caf=NoCafRefs, Str=DmdType] [GblId, Caf=NoCafRefs]
Roles13.$tcAge = Roles13.$tcAge =
GHC.Types.TyCon GHC.Types.TyCon
18304088376370610314## 18304088376370610314##
...@@ -62,12 +62,12 @@ Roles13.$tcAge = ...@@ -62,12 +62,12 @@ Roles13.$tcAge =
-- RHS size: {terms: 2, types: 0, coercions: 0} -- RHS size: {terms: 2, types: 0, coercions: 0}
$tc'MkWrap1 :: GHC.Types.TrName $tc'MkWrap1 :: GHC.Types.TrName
[GblId, Caf=NoCafRefs, Str=DmdType] [GblId, Caf=NoCafRefs]
$tc'MkWrap1 = GHC.Types.TrNameS "'MkWrap"# $tc'MkWrap1 = GHC.Types.TrNameS "'MkWrap"#
-- RHS size: {terms: 5, types: 0, coercions: 0} -- RHS size: {terms: 5, types: 0, coercions: 0}
Roles13.$tc'MkWrap :: GHC.Types.TyCon Roles13.$tc'MkWrap :: GHC.Types.TyCon
[GblId, Caf=NoCafRefs, Str=DmdType] [GblId, Caf=NoCafRefs]
Roles13.$tc'MkWrap = Roles13.$tc'MkWrap =
GHC.Types.TyCon GHC.Types.TyCon
12402878715225676312## 12402878715225676312##
...@@ -77,12 +77,12 @@ Roles13.$tc'MkWrap = ...@@ -77,12 +77,12 @@ Roles13.$tc'MkWrap =
-- RHS size: {terms: 2, types: 0, coercions: 0} -- RHS size: {terms: 2, types: 0, coercions: 0}
$tcWrap1 :: GHC.Types.TrName $tcWrap1 :: GHC.Types.TrName
[GblId, Caf=NoCafRefs, Str=DmdType] [GblId, Caf=NoCafRefs]
$tcWrap1 = GHC.Types.TrNameS "Wrap"# $tcWrap1 = GHC.Types.TrNameS "Wrap"#
-- RHS size: {terms: 5, types: 0, coercions: 0} -- RHS size: {terms: 5, types: 0, coercions: 0}
Roles13.$tcWrap :: GHC.Types.TyCon Roles13.$tcWrap :: GHC.Types.TyCon
[GblId, Caf=NoCafRefs, Str=DmdType] [GblId, Caf=NoCafRefs]
Roles13.$tcWrap = Roles13.$tcWrap =
GHC.Types.TyCon GHC.Types.TyCon
5278920226786541118## 5278920226786541118##
......
...@@ -65,7 +65,6 @@ AbsBinds [a] [] ...@@ -65,7 +65,6 @@ AbsBinds [a] []
Exported types: T8958.$fRepresentationala [InlPrag=[ALWAYS] CONLIKE] Exported types: T8958.$fRepresentationala [InlPrag=[ALWAYS] CONLIKE]
:: forall a. Representational a :: forall a. Representational a
[LclIdX[DFunId], [LclIdX[DFunId],
Str=DmdType,
Unf=DFun: \ (@ a[ssk]) -> T8958.C:Representational TYPE: a[ssk]] Unf=DFun: \ (@ a[ssk]) -> T8958.C:Representational TYPE: a[ssk]]
Binds: $dRepresentational = T8958.C:Representational @ a Binds: $dRepresentational = T8958.C:Representational @ a
Evidence: [EvBinds{}]} Evidence: [EvBinds{}]}
...@@ -75,7 +74,6 @@ AbsBinds [a] [] ...@@ -75,7 +74,6 @@ AbsBinds [a] []
Exported types: T8958.$fNominala [InlPrag=[ALWAYS] CONLIKE] Exported types: T8958.$fNominala [InlPrag=[ALWAYS] CONLIKE]
:: forall a. Nominal a :: forall a. Nominal a
[LclIdX[DFunId], [LclIdX[DFunId],
Str=DmdType,
Unf=DFun: \ (@ a[ssk]) -> T8958.C:Nominal TYPE: a[ssk]] Unf=DFun: \ (@ a[ssk]) -> T8958.C:Nominal TYPE: a[ssk]]
Binds: $dNominal = T8958.C:Nominal @ a Binds: $dNominal = T8958.C:Nominal @ a
Evidence: [EvBinds{}]} Evidence: [EvBinds{}]}
......
...@@ -6,7 +6,7 @@ Result size of Tidy Core = {terms: 32, types: 13, coercions: 0} ...@@ -6,7 +6,7 @@ Result size of Tidy Core = {terms: 32, types: 13, coercions: 0}
T3717.$trModule2 :: GHC.Types.TrName T3717.$trModule2 :: GHC.Types.TrName
[GblId, [GblId,
Caf=NoCafRefs, Caf=NoCafRefs,
Str=DmdType m1, Str=m1,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True, Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 30 20}] WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 30 20}]
T3717.$trModule2 = GHC.Types.TrNameS "main"# T3717.$trModule2 = GHC.Types.TrNameS "main"#
...@@ -15,7 +15,7 @@ T3717.$trModule2 = GHC.Types.TrNameS "main"# ...@@ -15,7 +15,7 @@ T3717.$trModule2 = GHC.Types.TrNameS "main"#
T3717.$trModule1 :: GHC.Types.TrName T3717.$trModule1 :: GHC.Types.TrName
[GblId, [GblId,
Caf=NoCafRefs, Caf=NoCafRefs,
Str=DmdType m1, Str=m1,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True, Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 40 20}] WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 40 20}]
T3717.$trModule1 = GHC.Types.TrNameS "T3717"# T3717.$trModule1 = GHC.Types.TrNameS "T3717"#
...@@ -24,7 +24,7 @@ T3717.$trModule1 = GHC.Types.TrNameS "T3717"# ...@@ -24,7 +24,7 @@ T3717.$trModule1 = GHC.Types.TrNameS "T3717"#
T3717.$trModule :: GHC.Types.Module T3717.$trModule :: GHC.Types.Module
[GblId, [GblId,
Caf=NoCafRefs, Caf=NoCafRefs,
Str=DmdType m, Str=m,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True, Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 10 30}] WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 10 30}]
T3717.$trModule = T3717.$trModule =
...@@ -34,7 +34,7 @@ Rec { ...@@ -34,7 +34,7 @@ Rec {
-- RHS size: {terms: 10, types: 2, coercions: 0} -- RHS size: {terms: 10, types: 2, coercions: 0}
T3717.$wfoo [InlPrag=[0], Occ=LoopBreaker] T3717.$wfoo [InlPrag=[0], Occ=LoopBreaker]
:: GHC.Prim.Int# -> GHC.Prim.Int# :: GHC.Prim.Int# -> GHC.Prim.Int#
[GblId, Arity=1, Caf=NoCafRefs, Str=DmdType <S,1*U>] [GblId, Arity=1, Caf=NoCafRefs, Str=<S,1*U>]
T3717.$wfoo = T3717.$wfoo =
\ (ww :: GHC.Prim.Int#) -> \ (ww :: GHC.Prim.Int#) ->
case ww of ds { case ww of ds {
...@@ -48,7 +48,7 @@ foo [InlPrag=INLINE[0]] :: Int -> Int ...@@ -48,7 +48,7 @@ foo [InlPrag=INLINE[0]] :: Int -> Int
[GblId, [GblId,
Arity=1, Arity=1,
Caf=NoCafRefs, Caf=NoCafRefs,
Str=DmdType <S(S),1*U(1*U)>m, Str=<S(S),1*U(1*U)>m,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True, Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True, WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False) Guidance=ALWAYS_IF(arity=1,unsat_ok=True,boring_ok=False)
......
...@@ -5,7 +5,7 @@ Result size of Tidy Core = {terms: 36, types: 14, coercions: 0} ...@@ -5,7 +5,7 @@ Result size of Tidy Core = {terms: 36, types: 14, coercions: 0}
Rec { Rec {
-- RHS size: {terms: 10, types: 2, coercions: 0} -- RHS size: {terms: 10, types: 2, coercions: 0}
$wxs :: GHC.Prim.Int# -> () $wxs :: GHC.Prim.Int# -> ()
[GblId, Arity=1, Caf=NoCafRefs, Str=DmdType <S,1*U>] [GblId, Arity=1, Caf=NoCafRefs, Str=<S,1*U>]
$wxs = $wxs =
\ (ww :: GHC.Prim.Int#) -> \ (ww :: GHC.Prim.Int#) ->
case ww of ds1 { case ww of ds1 {
...@@ -16,7 +16,7 @@ end Rec } ...@@ -16,7 +16,7 @@ end Rec }
-- RHS size: {terms: 14, types: 5, coercions: 0} -- RHS size: {terms: 14, types: 5, coercions: 0}
foo [InlPrag=NOINLINE] :: Int -> () foo [InlPrag=NOINLINE] :: Int -> ()
[GblId, Arity=1, Caf=NoCafRefs, Str=DmdType <S(S),1*U(U)>] [GblId, Arity=1, Caf=NoCafRefs, Str=<S(S),1*U(U)>]
foo = foo =
\ (n :: Int) -> \ (n :: Int) ->
case n of _ [Occ=Dead] { GHC.Types.I# y -> case n of _ [Occ=Dead] { GHC.Types.I# y ->
...@@ -31,7 +31,7 @@ foo = ...@@ -31,7 +31,7 @@ foo =
T3772.$trModule1 :: GHC.Types.TrName T3772.$trModule1 :: GHC.Types.TrName
[GblId, [GblId,
Caf=NoCafRefs, Caf=NoCafRefs,
Str=DmdType m1, Str=m1,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True, Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 40 20}] WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 40 20}]
T3772.$trModule1 = GHC.Types.TrNameS "T3772"# T3772.$trModule1 = GHC.Types.TrNameS "T3772"#
...@@ -40,7 +40,7 @@ T3772.$trModule1 = GHC.Types.TrNameS "T3772"# ...@@ -40,7 +40,7 @@ T3772.$trModule1 = GHC.Types.TrNameS "T3772"#
T3772.$trModule2 :: GHC.Types.TrName T3772.$trModule2 :: GHC.Types.TrName
[GblId, [GblId,
Caf=NoCafRefs, Caf=NoCafRefs,
Str=DmdType m1, Str=m1,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True, Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 30 20}] WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 30 20}]
T3772.$trModule2 = GHC.Types.TrNameS "main"# T3772.$trModule2 = GHC.Types.TrNameS "main"#
...@@ -49,7 +49,7 @@ T3772.$trModule2 = GHC.Types.TrNameS "main"# ...@@ -49,7 +49,7 @@ T3772.$trModule2 = GHC.Types.TrNameS "main"#
T3772.$trModule :: GHC.Types.Module T3772.$trModule :: GHC.Types.Module
[GblId, [GblId,
Caf=NoCafRefs, Caf=NoCafRefs,
Str=DmdType m, Str=m,
Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True, Unf=Unf{Src=<vanilla>, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 10 30}] WorkFree=True, Expandable=True, Guidance=IF_ARGS [] 10 30}]
T3772.$trModule = T3772.$trModule =
......
...@@ -4,17 +4,17 @@ T4398.hs:6:11: warning: ...@@ -4,17 +4,17 @@ T4398.hs:6:11: warning:
Orig bndrs: [a, $dOrd, x, y] Orig bndrs: [a, $dOrd, x, y]
Orig lhs: let { Orig lhs: let {
$dEq :: Eq a $dEq :: Eq a
[LclId, Str=DmdType] [LclId]
$dEq = GHC.Classes.$p1Ord @ a $dOrd } in $dEq = GHC.Classes.$p1Ord @ a $dOrd } in
f @ a f @ a
((\ ($dOrd :: Ord a) -> ((\ ($dOrd :: Ord a) ->
let { let {
$dEq :: Eq a $dEq :: Eq a
[LclId, Str=DmdType] [LclId]
$dEq = GHC.Classes.$p1Ord @ a $dOrd } in $dEq = GHC.Classes.$p1Ord @ a $dOrd } in
let { let {
$dEq :: Eq a $dEq :: Eq a
[LclId, Str=DmdType] [LclId]