grncdr

#!/usr/bin/env ruby
# frozen_string_literal: true

module Nop
  def nop(*methods)
    methods.each do |method|
      define_method(method) { |*_args| nil }
    end
  end
end

grncdr

const fetchMachine = Machine({
  id: 'Order',
  type: 'parallel',
  context: {
    has_bank_info: false
  },
  states: {
    payment: {
      initial: 'estimated',
      states: {

grncdr

const invoiceMachine = Machine({
  id: 'invoice',
  initial: 'open',
  states: {
    open: {
      on: {
        CLOSE: {
          target: 'closed',
          actions: [
            'open_next_invoice',

grncdr

#!/bin/sh

PATTERN="my-app-production"
RETENTION_IN_DAYS="30"

for group_name in $(aws logs describe-log-groups | jq -r '.logGroups[]|.logGroupName' | grep $PATTERN); do
  aws logs put-retention-policy --log-group-name $group_name --retention-in-days $RETENTION_IN_DAYS;
done

grncdr

#!/bin/bash

RETAINED_STASHES="0"
REMAINING_STASHES=$(git stash list | wc -l)

while true; do
  if [ "$REMAINING_STASHES" == "0" ]; then
    echo "All done"
    break
  fi

grncdr

Keybase proof

I hereby claim:

• I am grncdr on github.
• I am grncdr (https://keybase.io/grncdr) on keybase.
• I have a public key ASDwB6kzUc-wV7jvW5RtkoQvY9KyPtA5q-7TqkxwERwkEAo

To claim this, I am signing this object:

grncdr

DO $$
var rows = plv8.execute("select tablename, pg_get_serial_sequence(tablename, 'id') seqname from " +
  "(select tablename from pg_tables where schemaname = 'public' and tablename != 'schema_migrations') blah"
)

rows.forEach(function (row) {
    plv8.execute("select setval('" + row.seqname + "', (select max(id) from " + row.tablename + ")+1, false)")
})
$$ LANGUAGE plv8;

grncdr

#!/usr/bin/env node

const https = require('https')

const accessToken = 'ACCESS_TOKEN'
const bucket = 'BUCKET_KEY'
const testId = 'TEST_ID'

function formatLink (result) {
  const start = new Date(result.started_at * 1000).toISOString()

grncdr

function! LoadTsConfig()
  let search_depth = 20
  let dirname = fnamemodify(expand('%'), ":p:h")
  while search_depth > 0 && dirname != "/"
    let search_depth = search_depth - 1
    let filename = dirname . "/tsconfig.json"
    " while filename
    if filereadable(filename)
      let b:tsconfig_path = filename
      let tsconfig = jsondecode(join(readfile(filename)))

grncdr

#!/usr/bin/env perl
use strict;


sub main {
  my $keep = {};
  loop($keep);
}

sub loop {