Skip to content

Instantly share code, notes, and snippets.

View jhickner's full-sized avatar

Jason Hickner jhickner

  • Formation / VaryWell / Kite & Lightning
  • Seattle
View GitHub Profile
import Control.Proxy
import Control.Proxy.TCP
main :: IO ()
main = serve (Host "0.0.0.0") "8000" $ \(socket,_) ->
runProxy $ socketReadS 4096 socket >-> socketWriteD socket
import qualified Data.Map as M
type Name = String
data Action = MadeShot | MissedShot | Rebound deriving (Show, Eq)
data Event = Event Name Action
type Players = M.Map Name (Int, Int, Int)
aggregate :: [Event] -> Players
aggregate = M.fromListWith f . map toPair
where

Keybase proof

I hereby claim:

  • I am jhickner on github.
  • I am jhickner (https://keybase.io/jhickner) on keybase.
  • I have a public key whose fingerprint is 4AC8 00C2 FAA3 3025 2AC6 D679 6F29 F8DA E3AE 5667

To claim this, I am signing this object:

@jhickner
jhickner / build-ghc-arm.sh
Last active August 29, 2015 14:18 — forked from bgamari/build-ghc-arm.sh
updated for rpi 2
#!/bin/bash -e
bindir=`pwd`/bin-tmp
mkdir -p $bindir
export PATH=$bindir:$PATH
function use_ld() {
rm -f $bindir/ld
ln -s $1 $bindir/ld
echo "Using $1 for ld"
}
@jhickner
jhickner / surfingkeys-config.js
Last active November 15, 2018 19:56
SurfingKeys Config
settings.modeAfterYank = "Normal";
settings.scrollStepSize = 140;
settings.showModeStatus = true;
settings.focusAfterClosed = "left";
settings.newTabPosition = "last";
iunmap(":");
addSearchAliasX('h', "Hackage", "https://www.google.com/search?q=hackage+", 's');
map("<Shift-ArrowRight>", "R");