sordina

#!/bin/bash

set -e

# source $HOME/.google/api_keys

USER="$1"

if [ ! "$USER" ]
then

sordina

{-# Language MultiParamTypeClasses, FunctionalDependencies #-}

module Sort

  ( windowSort
  , Windowed(..)
  )

where

sordina

{-# LANGUAGE DeriveFunctor #-}
{-# LANGUAGE GADTs #-}
{-# LANGUAGE KindSignatures #-}
{-# LANGUAGE DataKinds #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE TypeOperators #-}

import Control.Monad

{-

sordina

-- Sampler V2

import Data.Time.Clock.POSIX
import Control.Monad
import System.Environment
import System.IO
import System.Exit
import Text.Read

sordina

#!/bin/bash

if [ -f .dockername ]
then
	N=$(cat .dockername)
else
	N=$(basename $(pwd))-$$
	echo $N > .dockername
fi

sordina

#!/bin/bash

SUBREDDIT=${SUBREDDIT-"$1"}
OUTDIR=${OUTDIR-"/tmp/subreddit-posts/$SUBREDDIT/$$"}
OUTALL="${OUTDIR}/postset-all.json"

if [ ! "$SUBREDDIT" ]
then
	echo "Must Define SUBREDDIT"
	exit 1

sordina

#!/usr/bin/env python

import matplotlib as plt
import pandas as pd
import sys
import os

outname = "/tmp/plot-columns-{}.png".format(os.getpid())
infile  = None

sordina

{-# LANGUAGE FlexibleContexts #-}

import Lens.Micro
import Lens.Micro.Mtl
import Lens.Micro.Internal
import Control.Applicative

loebl :: Each s a (a -> b) b => s -> a
loebl x = go where go = over each ($ go) x

sordina

#!/bin/sh

set -e

# Options with defaults

SCRIPT_ARGS="$*"
MIGRATION_DIR=${MIGRATION_DIR-'migrations'}
MIGRATION_TABLE=${MIGRATION_TABLE-'migrations'}
MIGRATION_COMMAND=${MIGRATION_COMMAND-'psql'}

sordina

-- Clustering algorithm v2

destroy _     E     = E
destroy 1 (L _)     = E
destroy _ (L x)     = L x
destroy n x@(N l r) | count x == n = E
                    | count x  > n = N (destroy n l) (destroy n r)
                    | otherwise    = x

search _ E          = []