bgamari

==================== Tidy Core ====================
2017-03-02 22:54:13.906807681 UTC

Result size of Tidy Core = {terms: 909, types: 1,015, coercions: 0}

-- RHS size: {terms: 1, types: 0, coercions: 0}
Test.program289 :: GHC.Prim.Addr#
[GblId,
 Caf=NoCafRefs,

bgamari

                commit_sha                |      commit_date       |          commit_title           | branch |                test_name                |    result_value_1    |    result_value_2    |         delta         |       rel_delta       
------------------------------------------+------------------------+---------------------------------+--------+-----------------------------------------+----------------------+----------------------+-----------------------+-----------------------
 30ee9102db2f16894912e19b9d16156824611bbb | 2016-03-11 07:20:16-05 | Make `catch` lazy in the action | master | compile-time/cichelli/Main              |    0.100000001490116 |    0.141000002622604 |    0.0410000011324883 |     0.410000005215406
 30ee9102db2f16894912e19b9d16156824611bbb | 2016-03-11 07:20:16-05 | Make `catch` lazy in the action | master | compile-allocs/minimax/Main             |             67202024 |             94382960 |              27180936 |     0.404466032154032
 30ee9102db2f16894912e19b9d16156824611

bgamari

#!/bin/bash -e

# e.g. git rev-set A..C X master gives you the union of all of these commits/ranges
for i in $@; do
    if echo "$i" | grep '\.\.' >/dev/null; then
        git rev-list $i
    else
        git rev-parse $i
    fi
done

bgamari

{
"program": "ghc-stage2",
"arguments": ["/home/ben/ghc/ghc-compare-2/inplace/lib/bin/ghc-stage2", "-B/home/ben/ghc/ghc-compare-2/inplace/lib", "-O", "src/Data/Tagged.hs", "-fforce-recomp"],
"rts_arguments": ["-pj"],
"total_time":        2.14,
"total_ticks": 2137,
"tick_interval": 1000,
"total_alloc":1425282368,
"cost_centres": [
{"id": 4621, "label": "IDLE", "module": "IDLE", "src_loc": "<built-in>", "is_caf": false}, {"id": 4620, "label": "PINNED", "module": "SYSTEM", "src_loc": "<built-in>", "is_caf": false}, {"id": 4619, "label": "DONT_CARE", "module": "MAIN", "src_loc": "<built-in>", "is_caf": false}, {"id": 4618, "label": "OVERHEAD_of", "module": "PROFILING", "src_loc": "<built-in>", "is_caf": false}, {"id": 4617, "label": "GC", "module": "GC", "src_loc": "<built-in>", "is_caf": false}, {"id": 4616, "label": "SYSTEM", "module": "SYSTEM", "src_loc": "<built-in>", "is_caf": false}, {"id": 4615, "label": "MAIN", "module": "MAIN", "src_loc": "<built-in>", "is_caf": false}, {"id": 4614, "label": "CAF", "modu

bgamari

diff --git a/rts/Linker.c b/rts/Linker.c
index 50f438afc2..33fdb2d723 100644
--- a/rts/Linker.c
+++ b/rts/Linker.c
@@ -4962,13 +4962,13 @@ static int getSectionKind_ELF( Elf_Shdr *hdr, int *is_bss )
         /* .rodata-style section */
         return SECTIONKIND_CODE_OR_RODATA;
     }
-#ifndef openbsd_HOST_OS
+#ifdef SHT_INIT_ARRAY

bgamari

Step 1[l:1,d:0] Wanted CallStack IP:
    [WD] $dIP_ajMr {0}:: ?callStack::GHC.Stack.Types.CallStack
Step 2[l:1,d:0] Kept as inert:
    [WD] $dIP_ak9Y {0}:: ?callStack::GHC.Stack.Types.CallStack
Step 3[l:1,d:0] Top react: Dict/Top (solved wanted):
    [WD] $dMonad_ajME {0}:: Monad IO
Step 4[l:1,d:0] Top react: Dict/Top (solved wanted):
    [WD] $dApplicative_ajMU {0}:: Applicative IO
Step 5[l:1,d:0] Top react: Dict/Top (solved wanted):
    [WD] $dTypeable_ajNi {0}:: Typeable (ComposeK Maybe Maybe Int)

bgamari

[1 of 1] Compiling T11480b          ( T11480b.hs, T11480b.o )
lookupCF
  Nat
  Just [runNat{runNat}]
  [rKl :-> [runNat{runNat}], rKy :-> [], rKC :-> [getY{getY}]]
lookupCF
  Y
  Just [getY{getY}]
  [rKl :-> [runNat{runNat}], rKy :-> [], rKC :-> [getY{getY}]]
Tc2 (src)

bgamari

{-# LANGUAGE RankNTypes #-}
{-# LANGUAGE KindSignatures #-}
{-# LANGUAGE TypeInType #-}

module Hi where

import Data.Kind

type SSyn = (S :: (forall k. k -> Type) -> Type)
data S (p :: forall k. k -> Type) = S

bgamari

{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE OverloadedStrings #-}

module ParseValidate
    ( parseLog
    , TestFailure(..)
    , ValidateLog(..)
    ) where

import Text.Trifecta

bgamari

-- This is a Shake script attempting to load GHC into GHCi
3
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE TypeFamilies #-}

import Control.DeepSeq
import Data.Foldable
import Data.Maybe
import Data.Monoid