michalc

import asyncio
import os
import aiohttp

from aws_sig_v4_headers import aws_sig_v4_headers


async def main():
    method = 'PUT'
    host = 's3-eu-west-1.amazonaws.com'

michalc

import datetime
import hashlib
import hmac
import urllib.parse


def aws_sig_v4_headers(access_key_id, secret_access_key, pre_auth_headers,
                       service, region, host, method, path, query, payload):
    algorithm = 'AWS4-HMAC-SHA256'

michalc

def normalise_environment(key_values):
    ''' Converts denormalised dict of (string -> string) pairs, where the first string
        is treated as a path into a nested list/dictionary structure

        {
            "FOO__1__BAR": "setting-1",
            "FOO__1__BAZ": "setting-2",
            "FOO__2__FOO": "setting-3",
            "FOO__2__BAR": "setting-4",
            "FIZZ": "setting-5",

michalc

import Control.Lens
import Control.Monad.Loops
import Control.Monad.State.Strict
import Data.List
import Data.List.Split
import Data.Maybe

data SudokuValue = S1 | S2 | S3 | S4 | S5 | S6 | S7 | S8 | S9 deriving (Eq, Enum)
instance Show SudokuValue where
  show s = show $ fromJust (s `elemIndex` [S1 ..]) + 1

michalc

import Network.Socket hiding (send, sendTo, recv, recvFrom)
import Network.Socket.ByteString
import Control.Concurrent

port = 4242
incomingBufferSize = 4096
delayMicroseconds = 500000

main = do
  -- Listen

michalc

import Network.Socket hiding (send, sendTo, recv, recvFrom)
import Network.Socket.ByteString
import Control.Concurrent

port = 4242
incomingBufferSize = 4096

main = do
  -- Listen
  sock <- socket AF_INET Stream 0