bitc

#!/bin/sh

# init_darcs_in_git.sh
#
# This is a script that initializes a darcs repository that can be used for
# managing private files in a git repository that should not be tracked by git
#
# The system is a simple hack, but it works quite elegantly in practice, darcs
# and git do not get in each others way.
#

bitc

#!/bin/bash

set -e

OUTPUT_PIPE=`mktemp -u`
STDOUT_SYNC=`mktemp -u`
STDERR_SYNC=`mktemp -u`
mkfifo $OUTPUT_PIPE $STDOUT_SYNC $STDERR_SYNC

exec > >(tee -a $OUTPUT_PIPE ; echo > $STDOUT_SYNC)

bitc

#!/bin/sh

set -e

if [ ! -f *.cabal ]
then
  echo "You must run this script from the project root directory (where the .cabal file is)"
	exit 2
fi

bitc

How I configure Mac OS X Keyboard

Start Synergy Client on login

"System Preferences" -> "Users & Groups" -> "Login Options" -> Enable "Automatic Login"

Create the following script as ~/start_synergy.sh:

#!/bin/sh

bitc

#!/bin/sh
HOST=192.168.0.1
PORT=32000
(echo 'window.location.reload()' | nc $HOST $PORT) > /dev/null 2>&1 &
echo 'Browser Reload'

bitc

#!/usr/bin/env ruby

# Requires that Google Chrome be started with:
#     $ chromium-browser --remote-debugging-port=9222

# Uses this library: https://github.com/fgalassi/chrome-remote-debug

require 'rubygems'
require 'chrome_remote_debug'

bitc

#!/bin/sh

# This script assumes that Build.hs is the only build script (it should not
# import any other local files)

set -e

if [ ! _shake/build -nt Build.hs ]; then
	mkdir -p _shake || exit 1
	ghc --make Build.hs -rtsopts -with-rtsopts=-I0 -outputdir=_shake -o _shake/build || exit 1

bitc

# All build snippets are based on Ubuntu trusty:

containers:
  build:
    setup:
    - !Ubuntu trusty
    - !UbuntuUniverse


    # ------------------------------------------------------------------------

bitc

# vim: ts=2 sw=2 sts=2 et:

containers:
  dev:
    setup:
    - !Ubuntu trusty

    - !BuildDeps [software-properties-common]
    - !Sh |
       add-apt-repository -y ppa:hvr/ghc

bitc

import Data.IORef
import Test.QuickCheck
import Test.QuickCheck.Monadic

data Queue a = Queue (IORef [a])

empty :: IO (Queue a)
empty = do
    ref <- newIORef []
    return (Queue ref)