diff options
| author | Joachim Breitner <mail@joachim-breitner.de> | 2016-03-23 13:38:34 +0100 |
|---|---|---|
| committer | Joachim Breitner <mail@joachim-breitner.de> | 2016-03-29 16:53:14 +0200 |
| commit | c8138c8505cd5f7f1b9ef33580a443a5c2c4f928 (patch) | |
| tree | e27ff0e0a761a89dcbf49422281ca0a36e155cac /testsuite/tests/perf | |
| parent | e6e17a095f68509d60b06202e49daaf275b7c320 (diff) | |
| download | haskell-c8138c8505cd5f7f1b9ef33580a443a5c2c4f928.tar.gz | |
Do not print DmdType in Core output
too verbose, and usualy preceded by Str= anyways.
Diffstat (limited to 'testsuite/tests/perf')
| -rw-r--r-- | testsuite/tests/perf/should_run/T4267.hs | 4 | ||||
| -rw-r--r-- | testsuite/tests/perf/should_run/T5949.hs | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/testsuite/tests/perf/should_run/T4267.hs b/testsuite/tests/perf/should_run/T4267.hs index 9c97afb212..1bd80c69d9 100644 --- a/testsuite/tests/perf/should_run/T4267.hs +++ b/testsuite/tests/perf/should_run/T4267.hs @@ -9,7 +9,7 @@ Bad: Rec { go_r1us :: 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 = \ (z_aeS :: GHC.Types.Int) (ds_dmD :: Main.Tree GHC.Types.Int) -> case ds_dmD of _ { @@ -29,7 +29,7 @@ Good: Rec { $wgo_r2fS :: 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 = \ (ww_s2eZ :: GHC.Prim.Int#) (w_s2eW :: Main.Tree GHC.Types.Int) -> case w_s2eW of _ [Occ=Dead] { diff --git a/testsuite/tests/perf/should_run/T5949.hs b/testsuite/tests/perf/should_run/T5949.hs index 0fcfb63f38..a633aa05f5 100644 --- a/testsuite/tests/perf/should_run/T5949.hs +++ b/testsuite/tests/perf/should_run/T5949.hs @@ -9,7 +9,7 @@ Rec { $we_r1z8 :: (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 = \ (w_s1yf :: (GHC.Types.Int, GHC.Types.Int)) (ww_s1yi :: GHC.Prim.Int#) -> @@ -30,7 +30,7 @@ $we_r2qK -> GHC.Types.Int -> GHC.Prim.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 = \ (ww_s2pS :: GHC.Types.Int) (ww1_s2pT :: GHC.Types.Int) |