Skip to content

Instantly share code, notes, and snippets.


Neil Mitchell ndmitchell

View GitHub Profile
View Values.hs
setValues state key file val = modifyVar_ state $ \vals -> do
-- Force to make sure the old HashMap is not retained
evaluate val
let v = fmap toDyn val
_ <- evaluate v
let k = (file, Key key)
weak <- case HMap.lookup k vals of
Nothing -> pure Nothing
Just v -> do
ndmitchell / Benchmark.hs
Last active May 25, 2020
Ghcide benchmark
View Benchmark.hs
-- Copyright (c) 2019 The DAML Authors. All rights reserved.
-- SPDX-License-Identifier: Apache-2.0
{-# LANGUAGE AllowAmbiguousTypes #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE PatternSynonyms #-}
module Benchmark(main) where
import Control.Applicative.Combinators
ndmitchell /
Created Apr 28, 2020
Various forms of interpreter
use std::time::Instant;
enum Expr {
Add(Box<Expr>, Box<Expr>),
Assign(usize, Box<Expr>),
Then(Box<Expr>, Box<Expr>),
View gist:c295d07fff2b671115c898ad95fe9d25
1.23s 1.19s 1.22s 1.18s 1.23s = 1.21s
1.23s 1.22s 1.21s 1.22s 1.24s = 1.22s
shake.cmd fsatrace
1.27s 1.24s 1.25s 1.22s 1.34s = 1.26s
shake.cmd traced
1.33s 1.28s 1.27s 1.24s 1.26s = 1.27s
cc -g -std=c99 -Wall -O2 -fomit-frame-pointer -fno-stack-protector -D_GNU_SOURCE -D_DEFAULT_SOURCE=1 -c -o src/fsatrace.o src/fsatrace.c
Sat Feb 22 17:03 2020 Time and Allocation Profiling Report (Final)
rattle-benchmark +RTS -p -RTS make clean commands.txt
total time = 0.07 secs (73 ticks @ 1000 us, 1 processor)
total alloc = 26,502,832 bytes (excludes profiling overheads)
try_ Control.Exception.Extra src/Control/Exception/Extra.hs:127:1-10 19.2 5.5
View gist:3b0ac88c49ac1233efb7d94bfb1527c6
Version 2.1.3, Git revision 0fa51b9925decd937e4a993ad90cb686f88fa282 (7739 commits) x86_64 hpack-0.31.2
2019-09-20 10:43:18.048133: [debug] Checking for project config at: C:\Neil\filepath\stack.yaml
2019-09-20 10:43:18.049133: [debug] Loading project config file stack.yaml
2019-09-20 10:43:18.055129: [debug] SELECT COUNT(*) FROM "last_performed" WHERE ("action"=?) AND ("timestamp">=?); [PersistInt64 1,PersistUTCTime 2019-09-19 09:43:18.0551299 UTC]
2019-09-20 10:43:18.056129: [debug] Using package location completions from a lock file
2019-09-20 10:43:18.183056: [debug] Asking for a supported GHC version
2019-09-20 10:43:18.189047: [debug] Installed tools:
- msys2-20150512
- ghc-8.6.5
- ghc-8.6.4
View Stack.hs
{-# LANGUAGE TemplateHaskell #-}
-- | Try performing a Stack-like install.
module Test.Example.Stack(main) where
import Development.Rattle
import Development.Shake.FilePath
import System.IO.Extra
import Language.Haskell.TH
import qualified Data.ByteString as BS
ndmitchell / hoogle.html
Created May 21, 2019
Hoogle with the XSS vulnerability
View hoogle.html
<head profile="">
<meta http-equiv="Content-Type" content="text/html; charset=utf8" />
<title>'"><marquee style - Hoogle</title>
<meta name="robots" content="index" />
<link type="text/css" rel="stylesheet" href="" />
<link rel="stylesheet" type="text/css" href="" />
<link type="image/png" rel="icon" href="" />
This file has been truncated, but you can view the full file.
Fri May 17 17:24 2019 Time and Allocation Profiling Report (Final)
demo +RTS -p -RTS
total time = 0.82 secs (824 ticks @ 1000 us, 1 processor)
total alloc = 736,329,896 bytes (excludes profiling overheads)
View index.html
This is a test
You can’t perform that action at this time.