apaleslimghost

#!/bin/bash

DESTINATION_BUCKET="hashed-assets-eu"
DESTINATION_FOLDER="page-kit"

upload_file() {
	local FILE="$1"
	local ENCODING
	local TYPE
	

apaleslimghost

quicksort :: (Ord a) => [a] -> [a]    
quicksort [] = []    
quicksort (x:xs) =     
    let smallerSorted = quicksort (filter (<=x) xs)  
        biggerSorted = quicksort (filter (>x) xs)   
    in  smallerSorted ++ [x] ++ biggerSorted

apaleslimghost

# ## Function: sequence
#
# Evaluates each action in sequence, left to right, collecting the
# results.
#  
# + type: (Monad m) => m -> [m a] -> m [a]
export sequence = (m, ms) --> do
                              return ms.reduce perform, m.of []
                            # where:
                              function perform(m1, m2) => do