Skip to content

Instantly share code, notes, and snippets.

View tjweir's full-sized avatar

Tyler Weir tjweir

View GitHub Profile
sealed trait Interact[A]
case class Ask(prompt: String)
extends Interact[String]
case class Tell(msg: String)
extends Interact[Unit]
trait Monad[M[_]] {
def pure[A](a: A): M[A]
module GroupBy where
import Data.Map (Map)
import qualified Data.Map as Map
groupBy :: Ord b => (a -> b) -> [a] -> Map b [a]
groupBy f = foldr (\ v -> Map.insertWith (++) (f v) [v]) Map.empty
groupBy' :: Ord b => (a -> b) -> [a] -> Map b [a]
<html>
<body>
GET squawk:<br />
{{ squawk_get }}<br /><br />
POST squawk:<br />
{{ squawk_post }}<br /><br />
%% -*- erlang-indent-level: 4;indent-tabs-mode: nil -*-
%% ex: ts=4 sw=4 et
%% @author Kevin Smith <[email protected]>
%% @copyright 2011 Opscode, Inc.
-module(example).
-behaviour(gen_server).
-export([start_link/0]).
private object DBVendor extends Logger {
def apply(prefix: String) = {
List("driver", "url", "user", "password").flatMap(str => Props.get(prefix + ".db." + str)) match {
case driver :: url :: user :: password :: Nil =>
new DBVendor(driver, url, user, password, Props.get(prefix + ".db.ssl"), Props.get(prefix + ".db.sslfactory"))
case _ =>
throw new Exception("The database connection properties could not be found.")
}
}
}
@tjweir
tjweir / gist:7404161
Last active December 27, 2015 23:09 — forked from oisin/gist:6328241
# Get the 1.0.1 version of SSL
brew install openssl
./configure --disable-hipe --enable-smp-support --enable-threads --enable-kernel-poll --enable-darwin-64bit --with-ssl=/usr/local/opt/openssl
touch lib/wx/SKIP lib/odbc/SKIP
make -j8
sudo make install
private object DBVendor extends Logger {
def apply(prefix: String) = {
List("driver", "url", "user", "password").flatMap(str => Props.get(prefix + ".db." + str)) match {
case driver :: url :: user :: password :: Nil =>
new DBVendor(driver, url, user, password, Props.get(prefix + ".db.ssl"), Props.get(prefix + ".db.sslfactory"))
case _ =>
throw new Exception("The database connection properties could not be found.")
}
}
}
import scalaz.concurrent.Actor
import collection.mutable.ArrayBuffer
import java.util.Timer
/**
* Usage:
*
* <code>
* val buffer = BufferActor[String](onFlush = _ foreach (println(_), onError = println(_))
* buffer ! "Now we're talking!"
package trial.scalaz
package actors
import java.util.concurrent.CountDownLatch
import scalaz.Scalaz._
import scalaz.concurrent.Actor
sealed abstract class PingPong
case class Ping(sender: Actor[Pong]) extends PingPong
case class Pong(sender: Actor[Ping]) extends PingPong
@tjweir
tjweir / IntegTest.java
Created October 25, 2012 18:40 — forked from randysecrist/IntegTest.java
java client - secondary index integration test
import java.io.IOException;
import java.util.List;
import org.slf4j.Logger;
import org.slf4j.LoggerFactory;
import junit.framework.TestCase;
import com.basho.riak.client.IRiakObject;
import com.basho.riak.client.builders.RiakObjectBuilder;