slogsdon

# @spec Control.Applicative.apply(Control.Applicative.t, Control.Functor.t) :: Control.Applicative.t
# @spec Control.Monad.bind(Control.Monad.t, (term -> Control.Monad.t)) :: Control.Monad.t

import Data.Maybe
alias Control.Applicative, as: A
import Control.Monad

(&(&1 + 2))
|> just
|> A.apply(just(5))

slogsdon

{-# LANGUAGE OverloadedStrings #-}
module Main where

import           Control.Concurrent        (forkIO)
import           Control.Monad             (forever)
-- import qualified Data.ByteString.Char8 as S
import           Network.Socket            hiding (recv)
import           Network.Socket.ByteString (sendAll)

main :: IO ()

slogsdon

{-# LANGUAGE OverloadedStrings #-}
module Main where

import           Control.Concurrent      (forkIO)
import           Control.Monad           (forever)
import           Data.ByteString.Builder (Builder, hPutBuilder, lazyByteString)
import qualified Data.ByteString.Lazy    as BS
import           Data.Monoid             ((<>))
import           GHC.IO.Handle           (BufferMode (..), hClose,
                                          hSetBinaryMode, hSetBuffering)

slogsdon

# useful imports
from securesubmit.services import HpsServicesConfig
from securesubmit.services.gateway import (
        HpsCreditService,
        HpsTrackData,
        HpsEncryptionData,
        HpsException
        )
from time import sleep

slogsdon

#!/bin/bash

SERVICE_PLAN_NAME="Default1"
SERVICE_PLAN_RESOURCE_GROUP_NAME="Default-Web-EastUS"
SERVICE_PLAN_ID=$(az appservice plan show --name $SERVICE_PLAN_NAME --resource-group $SERVICE_PLAN_RESOURCE_GROUP_NAME --query id --output tsv)
RESOURCE_GROUP_NAME=$(basename `pwd`)
RESOURCE_GROUP_LOCATION=$(az appservice plan show --name $SERVICE_PLAN_NAME --resource-group $SERVICE_PLAN_RESOURCE_GROUP_NAME --query location --output tsv)
APP_NAME="${RESOURCE_GROUP_NAME}-${RANDOM}"

# Create a resource group.