nhibberd

Keybase proof

I hereby claim:

• I am nhibberd on github.
• I am nhibberd (https://keybase.io/nhibberd) on keybase.
• I have a public key ASA95degZnKt62IM7HXW3gGkJmBrQLudIsu2r8dz6xBWGQo

To claim this, I am signing this object:

nhibberd

#!/bin/sh -eu

TEMPLATE_DIR=${TEMPLATE_DIR:-/tmp}

: ${ROOT:=/etc/config}
: ${ENV:=$(cat /etc/config/env)}
: ${REGION:=$(cat /etc/config/region)}
: ${SUBNET:=$(cat /etc/config/subnet)}
: ${PREFIX:?"s3 location"}

nhibberd

Install GHC 8.0.1 (Linux)

Note: The extra environment variables are only required during the build/install phase.

$ wget https://downloads.haskell.org/~ghc/8.0.1/ghc-8.0.1-x86_64-deb8-linux.tar.xz
$ tar ghc-8.0.1-x86_64-deb8-linux.tar.xz
$ cd ghc-8.0.1
$ export CONF_CC_OPTS_STAGE2=-fno-PIE
$ export CONF_GCC_LINKER_OPTS_STAGE2=-no-pie

nhibberd

lookupEnv :: IO (Maybe String)

lookupEnvT :: MaybeT IO String

foo :: IO (Maybe (String, String))
foo = do
  a <- lookupEnv "yay"
  b <- lookupEnv "yay"
  pure $ do 
    aa <- a

nhibberd

Version

#if MIN_VERSION_process(1,2,0)
#if MIN_VERSION_base(4,7,0)

Host os

#if defined(darwin_HOST_OS)
#if defined(linux_HOST_OS)

nhibberd

case class TestingTemporaries(buffer: java.util.concurrent.ConcurrentLinkedQueue[LocalPath])

object TestingTemporaries {
  val registered: java.util.concurrent.atomic.AtomicReference[TestingTemporaries] =
    new java.util.concurrent.atomic.AtomicReference[TestingTemporaries]


  def localPath: RIO[LocalPath] = ResultT.io {
    if (registered.compareAndSet(null, TestingTemporaries(new java.util.concurrent.ConcurrentLinkedQueue)))
      Runtime.getRuntime.addShutdownHook(new Thread(new Runnable {

nhibberd

Generate ctags for scala project

Add ctags plugin to sbt

~/.sbt//plugins/plugins.sbt

addSbtPlugin("net.ceedubs" %% "sbt-ctags" % "0.1.0")

Loading scala sources with ctags

~/.ctags

nhibberd

## case-insensitive (uppercase from lowercase) completion
zstyle ':completion:*' matcher-list 'm:{a-z}={A-Z}'
## case-insensitive (all) completion
#zstyle ':completion:*' matcher-list 'm:{a-zA-Z}={A-Za-z}'
## case-insensitive,partial-word and then substring completion
#zstyle ':completion:*' matcher-list 'm:{a-z}={A-Z}' 'r:|[._-]=* r:|=*' 'l:|=* r:|=*'

nhibberd

CREATE TABLE test (
  id SERIAL PRIMARY KEY,
  test TEXT,
  status CHARACTER VARYING (20) DEFAULT 'queued'
);

CREATE OR REPLACE RULE "new_test" AS
  ON INSERT TO test
  DO NOTIFY "new_test";

nhibberd

data Test =
  Test {
    _id :: Text
  , _data :: Text
  } deriving (Show, Eq)

makeLenses ''Test

z :: Test -> Text
z a =