Charles Strahan cstrahan

NixOS contributor. OSS enthusiast. Prefers hacking in Rust.

cstrahan / nixos-infect

Created March 21, 2016 03:19 — forked from elitak/nixos-infect

	#! /usr/bin/env bash

	# WARNING NB This script wipes out the targeted host's root filesystem when it
	# runs to completion. Any errors halt execution. set -x is used to help debug,
	# as often a failed run leaves the system in an inconsistent state, requiring a
	# rebuild (in DigitalOcean panel: Droplet Settings -> "Destroy" -> "Rebuild
	# from original").
	#
	# TO USE:
	# - Add any custom config you want (see notes below)

cstrahan / VGG_ILSVRC_19_layers_train_val.prototxt

Created March 22, 2016 00:10 — forked from graphific/VGG_ILSVRC_19_layers_train_val.prototxt

	VGG_ILSVRC_19_layers_train_val.prototxt
	name: "VGG_ILSVRC_19_layers"
	layers {
	name: "data"
	type: DATA
	include {
	phase: TRAIN
	}
	transform_param {
	crop_size: 224

cstrahan / redis-mini.nix

Created April 17, 2016 18:56 — forked from sigma/redis-mini.nix

	{ pkgs ? import <nixpkgs> {} }:

	with pkgs;
	let

	su_exec = pkgs.stdenv.mkDerivation {
	name = "su-exec-0.2";
	src = fetchurl {
	url = https://github.com/ncopa/su-exec/archive/v0.2.tar.gz;
	sha256 = "09ayhm4w7ahvwk6wpjimvgv8lx89qx31znkywqmypkp6rpccnjpc";

cstrahan / DeepStrict.hs

Created May 16, 2016 22:59 — forked from bgamari/DeepStrict.hs

	{-# LANGUAGE ScopedTypeVariables #-}
	{-# LANGUAGE DataKinds #-}
	{-# LANGUAGE KindSignatures #-}
	{-# LANGUAGE TypeOperators #-}
	{-# LANGUAGE FlexibleContexts #-}
	{-# LANGUAGE FlexibleInstances #-}
	{-# LANGUAGE TypeSynonymInstances #-}
	{-# LANGUAGE UndecidableInstances #-}
	{-# LANGUAGE TypeFamilies #-}
	{-# LANGUAGE PolyKinds #-}

cstrahan / packages.el

Created June 3, 2016 02:55 — forked from dysinger/packages.el

Private spacemacs layer to try out Chris Done's Intero mode for haskell

	;; 1. place this in ~/.emacs.d/private/intero/packages.el

	;; 2. add intero, syntax-checking and auto-completion to your
	;; ~/.spacemacs layer configuration & remove the haskell layer
	;; if you were using that before

	;; 3. make sure you have stack installed http://haskellstack.org

	;; 4. fire up emacs & open up a stack project's source files

cstrahan / benchcompose.hs

Created June 13, 2016 20:18 — forked from michaelt/benchcompose.hs

benchmark prelude compositions following the pattern of john weigley's https://github.com/jwiegley/streaming-tests

	{-#LANGUAGE BangPatterns #-}
	module Main (main) where

	import Data.Conduit as C
	import qualified Data.Conduit.Combinators as C

	import Pipes as P
	import qualified Pipes.Prelude as P

	import qualified Streaming.Prelude as Str

cstrahan / machinesbench.hs

Created June 13, 2016 20:26 — forked from twanvl/machinesbench.hs

Machines benchmark modified to include vector stream fusion. Addapted from https://gist.github.com/michaelt/f19bef01423b17f29ffd, which is in turn based on https://github.com/ekmett/machines/blob/master/benchmarks/Benchmarks.hs

	{-#LANGUAGE NoMonomorphismRestriction #-}
	module Main (main) where

	import Control.Monad (void)
	import Control.Monad.Identity
	import Criterion.Main
	import qualified Data.Conduit as C
	import qualified Data.Conduit.Combinators as CC
	import qualified Data.Conduit.List as C
	import qualified Data.Machine as M

cstrahan / gist.md

Last active September 16, 2016 05:00 — forked from honza/gist.md

Clojure vs Haskell

Haskell vs Clojure

The JSON data is in the following format

{
    "Genesis": {
        "1": {
            "1": "In the beginning..." ,
            "2": "..."

cstrahan / Modern FP with mtl.hs

Created September 27, 2016 18:39 — forked from ocharles/Modern FP with mtl.hs

	{-# LANGUAGE GeneralizedNewtypeDeriving #-}

	import Control.Monad.IO.Class
	import Control.Monad.Trans.Class
	import Prelude hiding (log)

	--------------------------------------------------------------------------------
	-- The API for cloud files.
	class Monad m => MonadCloud m where
	saveFile :: Path -> Bytes -> m ()

cstrahan / Printf.hs

Created October 3, 2016 10:29 — forked from gergoerdi/Printf.hs

	{-# LANGUAGE GADTs, TypeInType, DataKinds, TypeFamilies #-}
	{-# LANGUAGE TypeOperators #-}
	{-# LANGUAGE TypeApplications #-}

	import GHC.TypeLits
	import GHC.Types
	import Data.Singletons
	import Data.Singletons.Prelude

	data Format = Lit Symbol \| Str \| Shown Type