Skip to content

Instantly share code, notes, and snippets.

View mpickering's full-sized avatar

Matthew Pickering mpickering

263 followers · 17 following
  • Well Typed LLP
  • Sheffield, UK
View GitHub Profile
@mpickering
mpickering / network.py
Created September 4, 2024 08:44
import networkx as nx
g = nx.drawing.nx_agraph.read_dot("/home/matt/ghc-clean/deps-2.dot")
#g.remove_edge("GHC.Iface.Type", "GHC.Tc.Utils.TcType")
#g.remove_edge("GHC.Core.Type", "GHC.Tc.Utils.TcType")
#g.remove_edge("GHC.Types.Var", "GHC.Tc.Utils.TcType")
# FFI stuff checking DynFlags
#g.remove_edge("GHC.Tc.Utils.TcType", "GHC.Driver.Session")
# Because of TcLclEnv import
@mpickering
mpickering / Pat3.hs
Created August 30, 2024 09:03
{-# LANGUAGE TemplateHaskellQuotes #-}
{-# LANGUAGE GADTs #-}
module Pat3 where
import qualified Language.Haskell.TH as TH (Code, Q,)
import qualified Language.Haskell.TH.Syntax as TH (Lift(..))
import Data.Functor.Identity
type Code = TH.Code TH.Q
@mpickering
mpickering / Pat3.hs
Created August 29, 2024 12:20
{-# LANGUAGE TemplateHaskellQuotes #-}
{-# LANGUAGE GADTs #-}
module Pat3 where
import qualified Language.Haskell.TH as TH (Code, Q,)
import qualified Language.Haskell.TH.Syntax as TH (Lift(..))
import Data.Functor.Identity
type Code = TH.Code TH.Q
@mpickering
mpickering / pat_staged.hs
Created August 29, 2024 11:04
{-# LANGUAGE GADTs #-}
{-# LANGUAGE TemplateHaskellQuotes #-}
module Pat where
import qualified Language.Haskell.TH as TH (Code, Q,)
import qualified Language.Haskell.TH.Syntax as TH (Lift(..))
-- Step 1: Unstaged interpreter
@mpickering
mpickering / out
Created August 16, 2024 13:39
CondNode {condTreeData =
ProjectConfig {projectPackages =
["server","server/lib/*/*.cabal","server/forks/*/*.cabal"], projectPackagesOptional =
[], projectPackagesRepo =
[SourceRepositoryPackage {srpType =
KnownRepoType Git, srpLocation =
"https://github.com/agrafix/Spock", srpTag =
Just "40d028bfea0e94ca7096c719cd024ca47a46e559", srpBranch =
Nothing, srpSubdir =
["Spock-core"], srpCommand =
@mpickering
mpickering / TestParser.hs
Created August 16, 2024 13:12
module Main where
import Distribution.Client.ProjectConfig
import Distribution.Client.HttpUtils
import Distribution.Client.DistDirLayout
import Distribution.Client.RebuildMonad
import System.Environment
main = do
[root] <- getArgs
@mpickering
mpickering / packages
Created August 16, 2024 11:04
abstract-deque
abstract-deque-tests
abstract-par
AC-Angle
acc
ace
acid-state
action-permutations
active
ad
@mpickering
mpickering / CHANGELOG.md
Created August 1, 2024 16:32

Revision history for test

0.1.0.0 -- YYYY-mm-dd

  • First version. Released on an unsuspecting world.
@mpickering
mpickering / bad-out
Created July 15, 2024 10:43
Read the interface file T16875.hi
loadHiBootInterface T16875
Reading [boot] interface for main:T16875;
reason: Need the hi-boot interface for T16875 to compare against the Real Thing
readIFace T16875.hi-boot
Considering whether to load Prelude
Reading interface for base:Prelude;
reason: Prelude is implicitly imported
readIFace /home/matt/ghc-ticky/_build/stage1/lib/../lib/x86_64-linux-ghc-9.11.20240715/base-4.20.0.0-inplace/Prelude.hi
updating EPS
@mpickering
mpickering / gist:04e0ffc222ee9702eaed0e3558bc5f89
Created July 15, 2024 10:35
9c9
< readIFace /home/matt/ghc-ticky-new/_build/stage1/lib/../lib/x86_64-linux-ghc-9.11.20240713/base-4.20.0.0-inplace/Prelude.hi
---
> readIFace /home/matt/ghc-ticky/_build/stage1/lib/../lib/x86_64-linux-ghc-9.11.20240715/base-4.20.0.0-inplace/Prelude.hi
14c14
< readIFace /home/matt/ghc-ticky-new/_build/stage1/lib/../lib/x86_64-linux-ghc-9.11.20240713/base-4.20.0.0-inplace/Control/Applicative.hi
---
> readIFace /home/matt/ghc-ticky/_build/stage1/lib/../lib/x86_64-linux-ghc-9.11.20240715/base-4.20.0.0-inplace/Control/Applicative.hi
25c25
< readIFace /home/matt/ghc-ticky-new/_build/stage1/lib/../lib/x86_64-linux-ghc-9.11.20240713/base-4.20.0.0-inplace/Control/Monad.hi