dplusic

// https://www.jetbrains.com/help/idea/data-extractors.html
// https://www.jetbrains.com/help/datagrip/data-extractors.html

/*
 * Available context bindings:
 *   COLUMNS     List<DataColumn>
 *   ROWS        Iterable<DataRow>
 *   OUT         { append() }
 *   FORMATTER   { format(row, col); formatValue(Object, col); getTypeName(Object, col); isStringLiteral(Object, col); }
 *   TRANSPOSED  Boolean

dplusic

const object_partial = <
    P,
    R,
    PP = Partial<P>,
    OP = Omit<P, keyof PP>,
>(
    f: (p: P) => R,
    pp: PP,
): ((op: OP) => R) =>
    (op: OP): R => f({ ...pp, ...op } as any)  // Is it possible to omit `any`?

dplusic

#!/usr/bin/env bash

# Usage: source ./kube-use-context.sh <CONTEXT_NAME>


BASEDIR="$(dirname "$(readlink -f "${BASH_SOURCE[0]}")")"

if [ "$#" -ne 1 ]; then
    echo "Usage: ${BASH_SOURCE[0]} <CONTEXT_NAME>"
    return

dplusic

#!/usr/bin/env bash
set -e

#
# Usage Example: ./k8s_configmap_cas.sh -n namespace configmap-name '{"key":"value1"}' '{"key":"value2"}'
#

NAMESPACE=
while getopts n: o; do
  case $o in

dplusic

@ECHO OFF 
SETLOCAL

SET BRANCH_NAME=%1
SET COMMIT_HASH=%2
SET REMOTE=%3

@ECHO ON

git branch -f %BRANCH_NAME% %COMMIT_HASH%

dplusic

interface Flying {
  fly(): this;
  isFlying: () => boolean;
  land(): this;
}

const flying = <O>(o: O) : O & Flying => {
  let isFlying = false;
  return Object.assign({}, o, {
    fly() {

dplusic

{-# LANGUAGE OverloadedStrings #-}
import Data.Conduit
import Data.Conduit.Network

main :: IO ()
main = runTCPServer (serverSettings 3001 "127.0.0.1") echo

echo :: AppData -> IO ()
echo app = appSource app $$ appSink app

dplusic

require('net').createServer(s => s.on('data', s.write)).listen(4243);

dplusic

module Main where

import Control.Concurrent
import Control.Exception
import Control.Monad (when)
import Control.Monad.Fix (fix)
import Network.Socket
import System.IO

main :: IO ()

dplusic

$(& hindent; $HindentExitCode=$LastExitCode) | stylish-haskell
$Host.SetShouldExit($HindentExitCode -Or $LastExitCode)