Skip to content

Instantly share code, notes, and snippets.

Avatar

Matthew Pickering mpickering

229 followers · 17 following
  • Well Typed LLP
  • Sheffield, UK
View GitHub Profile
@mpickering
mpickering / out-newer
Created February 23, 2023 09:05
View out-newer
This file has been truncated, but you can view the full file.
Found GHC 9.6.0.20230221, commit 9a7478066983cbc819f3a9bb103b1fab308eebc1.
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
@mpickering
mpickering / out
Last active February 22, 2023 10:01
View out
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
@mpickering
mpickering / out
Created February 22, 2023 10:00
View out
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
@mpickering
mpickering / DocsInHiFileTH.hs
Created February 10, 2023 09:30
View DocsInHiFileTH.hs
{-# 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
@mpickering
mpickering / BenchShort.hs
Created February 8, 2023 10:20
View BenchShort.hs
{-# 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 #-}
@mpickering
mpickering / bench.sh
Created February 8, 2023 09:50
View bench.sh
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"
@mpickering
mpickering / scanr-bad
Created February 7, 2023 13:40
View scanr-bad
-- 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)
@mpickering
mpickering / BenchShort.dump-simpl
Created February 7, 2023 13:18
View BenchShort.dump-simpl
==================== 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,
@mpickering
mpickering / BenchShort.dump-simpl
Created February 7, 2023 13:15
View BenchShort.dump-simpl
==================== 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,
@mpickering
mpickering / 9.4
Created February 3, 2023 12:32
View 9.4
-- 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)