emanon-was

MySQL Operator for Kubernetes

Install using Manifest Files

kawasaki@k8s-1:~$ kubectl apply -f https://raw.githubusercontent.com/mysql/mysql-operator/trunk/deploy/deploy-crds.yaml
customresourcedefinition.apiextensions.k8s.io/innodbclusters.mysql.oracle.com created
customresourcedefinition.apiextensions.k8s.io/mysqlbackups.mysql.oracle.com created
customresourcedefinition.apiextensions.k8s.io/clusterkopfpeerings.zalando.org created

emanon-was

#!/usr/bin/env bash

source $SDKMAN_DIR/bin/sdkman-init.sh

if [ "$1" == 'exec' ]; then
    ${@:2};
else
    sdk $@;
fi

emanon-was

interface Static<T>

data class Target(val a: Int) {
    companion object : Static<Target>
}

interface From<T, U> {
    fun Static<T>.from(value: U) : T
}

emanon-was

import java.util.Optional;

public abstract class Result<T,E extends Throwable> {

    public static <T,E extends Throwable> Ok<T,E> ok(T a) { return new Ok(a); }
    public static <T,E extends Throwable> Err<T,E> err(E a) { return new Err(a); }

    public abstract T unwrap() throws E;
    public abstract boolean isOk();
    public abstract boolean isErr();

emanon-was

#
# Arguments
# ==============
# - DOCKER_IMAGE
# - DOCKER_TAG
# - AWS_ACCOUNT_ID
# - AWS_DEFAULT_REGION
#

docker.build:

emanon-was

TMPDIR ?= /tmp


.PHONY := encrypt decrypt cmk dependencies
.DEFAULT_GOAL := dependencies


encrypt: dependencies
	$(call exit_invalid_arguments,$(ENCRYPT_KEY),"$$USAGE_ENCRYPT")

emanon-was

fibonacci :: (Num a) => [a]
fibonacci = f 0 1
  where f x y = x : f y (x + y)

-- Prelude> fibonacci !! 45
-- 1134903170
-- (0.00 secs, 3131752 bytes)

emanon-was

startWith :: (Eq a) => [a] -> [a] -> Maybe [a]
startWith [] ys = Just ys
startWith xs [] = Nothing
startWith (x:xs) (y:ys)
  | x == y = startWith xs ys
  | otherwise = Nothing

split :: (Eq a) => [a] -> [a] -> [[a]]
split []  lst = [lst]
split sep lst = split' [] lst

emanon-was

{-# LANGUAGE FlexibleInstances    #-}
{-# LANGUAGE UndecidableInstances #-}
{-# LANGUAGE IncoherentInstances  #-}

class YesNo a where
  yesno :: a -> Bool

instance (Num a, Eq a) => YesNo a where
  yesno 0 = False
  yesno _ = True

emanon-was

myFoldr :: (a -> b -> b) -> b -> [a] -> b
myFoldr _ a [] = a
myFoldr f a (x:xs) = f x $ myFoldr f a xs

myFoldr1 :: (a -> a -> a) -> [a] -> a
myFoldr1 f (x:xs) = myFoldr f x xs

myFoldl :: (b -> a -> b) -> b -> [a] -> b
myFoldl _ a [] = a
myFoldl f a (x:xs) = myFoldl f (f a x) xs