Skip to content

Instantly share code, notes, and snippets.

packageOverrides = super: {
haskellPackages = super.haskellPackages.override {
overrides = {
some-pkg = pkgs.haskell.lib.overrideCabal super.some-pkg (orig: {
src = fetchFromGithub {};
});
};
};
#! /usr/bin/env nix-shell
#! nix-shell -i racket -p racket
#lang racket
(require racket/pretty)
(define (pretty-write-all)
(define next (read))
@jb55
jb55 / Main.hs
Last active March 17, 2018 16:44
#!/usr/bin/env stack
{- stack script --nix --resolver lts-10.9
--package streaming
--package amazonka
--package amazonka-s3
--package amazonka-core
--package bytestring
--package resourcet
--package conduit
--package conduit-combinators
@jb55
jb55 / test.csv
Last active February 14, 2018 20:20
name age interest age2 age3
bill 29 bitcoin 29 29
vanessa 33 wine 33 33
@jb55
jb55 / output
Last active December 19, 2017 20:54
Simple functional testing with bash
1..4
ok 1 - scalar division
ok 2 - scalar multiplication
not ok 3 - multiply 1 BTC to the smallest unit
#
# got '0 msat', expected '1 msat'
#
ok 4 - lots of msats
@jb55
jb55 / pdfnow
Last active November 25, 2019 16:47
#!/usr/bin/env bash
PANDOC="pandoc --variable urlcolor=cyan"
usage () {
printf "usage: pdfnow file.md OR <file.md pdfnow markdown\n" >&2
exit 1
}
[ $# -eq 0 ] && usage
#!/usr/bin/env bash
howlong() {
mins=$(($1 * 10))
target=$(date -u -d "now + $mins minutes" -Iseconds)
targetp=$(date -d $target '+%F %R %Z')
ddiff=$(datediff -f "%dd %Hh %0Mm @ $targetp" "now" "$target")
printf "%s\n" "$ddiff"
}
@jb55
jb55 / fees.sh
Last active October 23, 2017 16:29
#!/usr/bin/env bash
getprice () {
# replace with your preferred exchange
curl -sL 'https://api.quadrigacx.com/v2/ticker' | jq -r .last
}
n=${1:-100}
size=${2:-226}
price=${3:-$(getprice)}
@jb55
jb55 / enum.h
Last active October 22, 2017 08:33
enum opcode_token
{
// push value
_OP_0=1,
_OP_FALSE,
_OP_PUSHDATA1,
_OP_PUSHDATA2,
_OP_PUSHDATA4,
_OP_1NEGATE,
_OP_RESERVED,
#!/usr/bin/env bash
set -e
access_token=$GITHUB_ACCESS_TOKEN
api() {
curl -sL -H "Authorization: token $access_token" "$@"
}