Skip to content

Instantly share code, notes, and snippets.

View mpickering's full-sized avatar

Matthew Pickering mpickering

  • Well Typed LLP
  • Sheffield, UK
View GitHub Profile
@mpickering
mpickering / out
Last active February 22, 2023 10:01
This file has been truncated, but you can view the full file.
Found GHC 9.6.0.20230220, commit fba46a0385753a2e85b7434906ec885520d9ff7d.
Adding lens-5.2 to extra package set
Adding optics-0.4.2 to extra package set
Adding aeson-2.1.1.0 to extra package set
Adding criterion-1.6.0.0 to extra package set
Adding scotty-0.12.1 to extra package set
Adding generic-lens-2.2.1.0 to extra package set
Adding microstache-1.0.2.3 to extra package set
Adding singletons-base-3.1 to extra package set
Adding servant-0.19.1 to extra package set
This file has been truncated, but you can view the full file.
Found GHC 9.6.0.20230220, commit fba46a0385753a2e85b7434906ec885520d9ff7d.
Adding lens-5.2 to extra package set
Adding optics-0.4.2 to extra package set
Adding aeson-2.1.1.0 to extra package set
Adding criterion-1.6.0.0 to extra package set
Adding scotty-0.12.1 to extra package set
Adding generic-lens-2.2.1.0 to extra package set
Adding microstache-1.0.2.3 to extra package set
Adding singletons-base-3.1 to extra package set
Adding servant-0.19.1 to extra package set
{-# LANGUAGE TemplateHaskell, FlexibleInstances, TypeFamilies, DataKinds #-}
{-# LANGUAGE MultiParamTypeClasses, StandaloneKindSignatures, PolyKinds #-}
{-# LANGUAGE PatternSynonyms #-}
-- |This is the module header
module DocInHiFilesTH where
import Language.Haskell.TH
import Language.Haskell.TH.Syntax
import DocsInHiFileTHExternal
{-# LANGUAGE BangPatterns #-}
{-# LANGUAGE PackageImports #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE MagicHash #-}
{-# LANGUAGE CPP #-}
{-# LANGUAGE OverloadedStrings #-}
{-# OPTIONS_GHC -dumpdir dumps/9.4 #-}
#if MIN_VERSION_GLASGOW_HASKELL(9,5,0,0)
{-# OPTIONS_GHC -dumpdir dumps/9.6 #-}
RUN="cabal --store-dir=speff-local run --constraint=unix==2.8.0.0 bytestring-bench --allow-newer=template-haskell,base"
$RUN -w ghc-9.4.4 -- --csv 9.4.4.csv --pattern="FindIndex"
#$RUN -w ghc-9.6.0.20230111 -- --baseline 9.4.4.csv --csv 9.6.0-alpha1.csv
#$RUN -w ghc-9.6.0.20230128 -- --baseline 9.4.4.csv --csv 9.6.0-alpha2.csv
#$RUN -w /home/matt/ghc-9.6/_perf/stage1/bin/ghc -- --baseline 9.4.4.csv --csv 9.6.0-alpha3.csv --pattern="FindIndex"
$RUN -w /home/matt/ghc-9.6-backports/_build/stage1/bin/ghc -- --baseline 9.4.4.csv --csv 9.6.0-alpha3.csv --pattern="FindIndex"
-- RHS size: {terms: 111, types: 79, coercions: 0, joins: 1/4}
scanr [InlPrag=INLINE (sat-args=2)]
:: (Word8 -> Word8 -> Word8) -> Word8 -> ByteString -> ByteString
[GblId,
Arity=3,
Str=<LC(S,C(1,L))><1L><1!P(L,L,L)>,
Unf=Unf{Src=StableUser, TopLvl=True,
Value=True, ConLike=True, WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=2,unsat_ok=False,boring_ok=False)
Tmpl= \ (f_advQ [Occ=OnceL1!] :: Word8 -> Word8 -> Word8)
==================== Tidy Core ====================
2023-02-07 11:26:44.154644059 UTC
Result size of Tidy Core
= {terms: 1,451, types: 1,335, coercions: 72, joins: 3/46}
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
BenchShort.benchShort12 :: ghc-prim:GHC.Prim.Addr#
[GblId,
==================== Tidy Core ====================
2023-02-07 11:26:52.430858373 UTC
Result size of Tidy Core
= {terms: 1,538, types: 1,409, coercions: 74, joins: 4/48}
-- RHS size: {terms: 1, types: 0, coercions: 0, joins: 0/0}
BenchShort.benchShort12 :: ghc-prim:GHC.Prim.Addr#
[GblId,
-- RHS size: {terms: 403, types: 480, coercions: 132, joins: 3/5}
primUnfoldrBounded [InlPrag=INLINE (sat-args=3)]
:: forall b a. BoundedPrim b -> (a -> Maybe (b, a)) -> a -> Builder
[GblId,
Arity=6,
Str=<M!P(L,LCL(C1(C1(!P(L,1L)))))><SCS(L)><L><LCL(C1(L))><1L><L>,
Unf=Unf{Src=InlineStable, TopLvl=True, Value=True, ConLike=True,
WorkFree=True, Expandable=True,
Guidance=ALWAYS_IF(arity=3,unsat_ok=False,boring_ok=False)
Tmpl= (\ (@b_a6mX)
-- RHS size: {terms: 447, types: 281, coercions: 0, joins: 4/9}
Benchmarks.Pure.$wfoo [InlPrag=[2]]
:: ghc-prim:GHC.Prim.ByteArray#
-> ghc-prim:GHC.Prim.Int#
-> ghc-prim:GHC.Prim.Int#
-> (# ghc-prim:GHC.Prim.ByteArray#, ghc-prim:GHC.Prim.Int#,
ghc-prim:GHC.Prim.Int# #)
[GblId, Arity=3, Str=<L><L><L>, Unf=OtherCon []]
Benchmarks.Pure.$wfoo
= \ (ww_s8Fy :: ghc-prim:GHC.Prim.ByteArray#)