TrevorBasinger

module Test where

import Data.Foldable (traverse_)
import Control.Monad.Eff
import Control.Monad.State
import Control.Monad.State.Class
import Control.Monad.State.Trans

import Control.Monad.Reader
import Control.Monad.Reader.Class

TrevorBasinger

module Main where

import Control.Monad.Eff

import Data.Either
import Data.Foreign
import Data.Function

import Debug.Trace

TrevorBasinger

require ('./globals')(global); // Mixed in Ramda to global here
var Task = require ('data.future'),
    M    = require ('control.monads'),
    State = require ('fantasy-states'),
    Reader = require ('fantasy-readers'),
    Tuple2 = require ('fantasy-tuples').Tuple2,
    Maybe = require ('data.maybe'),

    ST  = State.StateT (Task),
    App = Reader.ReaderT (ST);

TrevorBasinger

var
    Future    = require ('data.future'),
    Evernote  = require ('evernote').Evernote,
    R         = require ('ramda'),
    M         = require ('control.monads'),

    chain     = R.chain,
    curry     = R.curry,
    compose   = R.compose,
    eq        = R.eq,

TrevorBasinger

/**
 * @kinseybasinger
 * @chapter3
 */
import java.util.Scanner;
public class Salary
{

  public static void main(String[] args)
  {

TrevorBasinger

var Future = require ('data.future'),
    exec   = require ('child_process').exec,
    fs     = require ('fs');

module.exports = function (config, app) {
  var pdf = require ('../../../lib/pdfserver'),
      db  = require ('../../../lib/db')(config),

//    insertFile :: Connection -> FilePath -> Hash -> Future FileId
      insertFile = curry (function (db, filePath, hash) {

TrevorBasinger

//(c) Jeremy Branecky, Price Edwards & Company 2006
//
//WorkflowManager
//
//Used to set the starting state and role for an invoice
//
//public Members:
//  Function GetPossibleStates(PropertyHMY) dataset - gets all possible states
//    for property with hmy = PropertyHMY
//  Function GetStartingState(invoice) integer - gets the starting state for

TrevorBasinger

module Main where

import Debug.Trace
import Control.Monad.Aff
import Control.Monad.Eff
import Control.Monad.Eff.Class (liftEff)
import Control.Monad.Eff.Exception (message)
import Control.Monad.Cont.Trans
import Control.Monad.Reader.Class
import Control.Monad.Reader.Trans

TrevorBasinger

set-environment DOCKER_CERT_PATH $DOCKER_CERT_PATH
set-environment DOCKER_HOST $DOCKER_HOST
set-environment DOCKER_TLS_VERIFY $DOCKER_TLS_VERIFY

# set prefix key to ctrl+a until I have time to adapt
unbind C-b
set -g prefix C-s

# send the prefix to client inside window (ala nested sessions)
bind-key S send-prefix

TrevorBasinger

/* jshint laxbreak: true, laxcomma: true */

/* Create a view using the following:
 * create view {{resource}}_view as
 * select * from {{resource}} r1
 * where r1.inserted_at = (select r2.inserted_at from {{resource}} r2
 *                         where r1.internalid = r2.internalid
 *                         order by CAST(r2.inserted_at as UNSIGNED) desc limit 1);
 *
 */