solidsnack

def files_root
  root = Chef::Config[:cookbook_path]
  cookbook = self.cookbook_name
  variant = self.recipe_name
  "#{root}/#{cookbook}/files/#{variant}"
end
##  Root of our file repository for this variant of the cookbook.
FILES = files_root

solidsnack

--  Eval in Haskell.

import Data.Word

import Language.Haskell.Interpreter
import Language.Haskell.Interpreter.Server

solidsnack

#!/bin/bash

function hosts_fetch {
  mkdir -p ./tmp
  dig heroku.com > ./tmp/dig.list
}

function hosts {
  sed -n '/^;; ANSWER SECTION:$/,/^$/ {
            /^heroku\.com\..*[^.0-9]\([.0-9]*\)$/ {

solidsnack

!/bin/bash
set -o nounset -o errexit -o pipefail
countArgs () { echo $#; }
arr=()
countArgs "${arr[@]:0}"

solidsnack

#!/bin/bash
set -o nounset -o errexit -o pipefail
countArgs () { echo $#; }
arr=()
countArgs "${arr[@]:0}"

solidsnack

module Prox.Parse where

import Control.Monad
import Data.ByteString
import Data.Word
--import Network.Socket.ByteString

import Data.Attoparsec
import Data.Attoparsec.Binary

solidsnack

for line in "echo start" "exec cat" "echo end"
do
  echo "$line"
  sleep 0.01
done | sh
## Prints:
# start
# echo end

for line in "echo start" "exec cat" "echo end"

solidsnack

-- Postgres DOMAIN and CHECK for LDH domain names.

-- Derived from RFCs 1035 and 1123.
CREATE EXTENSION IF NOT EXISTS citext;
CREATE DOMAIN dns AS citext
DEFAULT '.'
CHECK ( VALUE ~ '(?xi)
                 ^(    [a-z0-9]([a-z0-9-]{0,61}[a-z0-9])?
                   ([.][a-z0-9]([a-z0-9-]{0,61}[a-z0-9])?){0,126})?
                  [.]?$'

solidsnack

ssh-rsa AAAAB3NzaC1yc2EAAAADAQABAAABAQCY07XfJr3b/NkjICGB7z6RMd2aXDfc/GktOAyOBnlMcvN/7uxWqSbc+jAw1jFHhuCL8Y0JgJuMFoa+uKZeQadR/+SUgr65cDyNywI6OLRXW9Bm3HuVP2J9zamRZXFErduyB36tVTOL4TqpMTi3lBzoNNzi4On3+KzSuC+GwgM9Q9L03PqxHGu3GK3/hyrx/4vMeh5hUuGU//8jyeRNC4kxICcqB2tGwJ6BXp7zQXNjgpU3E2Cw0X/O5TSOa1A5dU0U4kx/xUmdWrlvCSuXo5T9hm9RM+LBg5tDdLI5G/m3i1USFhdrJWLWNyvbk+fOkfdtfOHgG37fhmFIYUnUQlcj

solidsnack

{-# LANGUAGE OverloadedStrings
           , ScopedTypeVariables
           , ParallelListComp
           , TupleSections #-}

module CoBash where

import           Control.Applicative
import           Control.Concurrent
import           Control.Concurrent.MVar