Skip to content

Instantly share code, notes, and snippets.

Adam Wespiser adamwespiser

Block or report user

Report or block adamwespiser

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
View IxMonadT.hs
{- stack script
--resolver lts-14.20
{-# Language RebindableSyntax
, ScopedTypeVariables
, FlexibleInstances
, NoMonomorphismRestriction
, OverloadedStrings
, InstanceSigs
adamwespiser / core-dump.hs
Last active Jan 21, 2020
Dive into core ghc 8.6 Conversion
View core-dump.hs
{- stack script
--package "base mtl time ghc ghc-paths haskeline containers"
--resolver lts-14.20
module Main where
-- Compiler
import GHC
import DynFlags
adamwespiser / .tmux.conf
Created Jan 6, 2020
Tmux Config + Session Script
View .tmux.conf
# set auto-reload of this config
bind r source-file ~/.tmux.conf \; display "Reloaded ~/.tmux.conf"
# set default tmux bash version ... move to fish?
set -g default-shell /usr/local/bin/bash
# set colors to 256
set -g default-terminal "screen-256color" # colors!
# start with window 1 (instead of 0)
adamwespiser / updateSite.hs
Created Dec 18, 2019
Build script for blog, Haskell version
View updateSite.hs
#!/usr/bin/env stack
{- stack script
--resolver lts-14.17
--package turtle
--package text
--package foldl
--package async
View freshfox_macos
#!/bin/sh -e
alias firefox=/Applications/
mkdir -p -- "$DIR"
TEMP="$(mktemp -d -- "$DIR/firefox-XXXXXX")"
trap "rm -rf -- '$TEMP'" INT TERM EXIT
firefox -profile "$TEMP" -no-remote "$@"
View conf intervals for point-wise prediction
# create fake data on gambling. Does prob win depend on bid size?
mydat <- data.frame(
adamwespiser / log-reg-posterior.R
Created Jan 31, 2018
Bayesian Log Reg: What is the difference between the expected pr(y==1| model) and pr(pr==1| model)[calc w/ expectation of beta] ?
View log-reg-posterior.R
options(mc.cores = parallel::detectCores())
rstan_options(auto_write = TRUE)
seed_sim = 1234
# set up data
N = 4000

Keybase proof

I hereby claim:

  • I am adamwespiser on github.
  • I am adamwespiser ( on keybase.
  • I have a public key ASDvVfiszzMDEZN4nTBPDJakWg9yqyuwpGloZCblP3xQigo

To claim this, I am signing this object:

adamwespiser / free-mtl-notes
Last active Feb 4, 2018
A comparison of performance between Free Monad and mtl transformers
View free-mtl-notes
Objective: A comparison of performance between Free Monad and mtl transformers
Free f a = { unFree :: f (Free f a) }
# construction of free monad via individual functions
You can’t perform that action at this time.