Skip to content

Instantly share code, notes, and snippets.

{
...
"containerDefinitions": [
{
...
"entryPoint": null,
"portMappings": [],
"command": null,
"linuxParameters": null,
"cpu": 0,
module NonEmpty exposing (NonEmpty, all, foldl, indexedMap, list, map, takeFromTail, toList)
import Fuzz exposing (Fuzzer)
-- Types
type alias NonEmpty a =
#!/usr/bin/bash
queueUrl=https://<my-secret-queue>.fifo
uploadsBucket=<my-secret-bucket>
fromEmail=<my-secret-email>
while true; do
echo "Long polling for SQS messages.."
sqsResponse=`aws sqs receive-message --queue-url $queueUrl --max-number-of-messages 1 --wait-time-seconds 20 --region us-east-1`
module QuadTreeTest exposing (..)
import Expect exposing (Expectation)
import Fuzz exposing (Fuzzer, int, list, string)
import QuadTree.QuadTree as QuadTree exposing (Point2D, QuadTree)
import Test exposing (..)
-- Fuzzers
module QuadTree.QuadTree exposing (Point2D, QuadTree, extract, fromList, northeast, northwest, southeast, southwest)
-- Exposed Types
type QuadTree
= QuadTree Data NodeType
type alias Point2D =
type AsyncData<Data> = Initial | Retrieving | Success<Data> | Error;
type Initial = {
kind: 'Initial'
};
type Retrieving = {
kind: 'Retrieving'
};
type Success<Data> = {
kind: 'Success',
type User = {
login: string,
avatarUrl: string
};
type PageState = Initial | Retrieving | Success | Error;
type Initial = {
kind: 'Initial'
};
type User = {
login: string,
avatarUrl: string
};
type PageState = {
users?: User[],
hasRetrievedData: boolean,
activelyRetrieving: boolean,
error?: string
// Hidden types
type TwoTabPanel = {
kind: 'TwoTabPanel',
tab1: Tab,
tab2: Tab
};
type ThreeTabPanel = {
kind: 'ThreeTabPanel',
tab1: Tab,
tab2: Tab,
export type Tab = {
label: string,
onClick: () => any
};
export type Border = "top" | "bottom";
export type TabPanelButtonProps = {
tabs: TwoTabPanel | ThreeTabPanel | FourTabPanel,
highlightedBorder: Border,
activeIndex: number
};