pwm

{-# LANGUAGE DerivingStrategies #-}
{-# LANGUAGE FlexibleContexts #-}
{-# LANGUAGE GeneralizedNewtypeDeriving #-}
{-# LANGUAGE InstanceSigs #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}

module MtlExample where

pwm

#!/usr/bin/env bash

set -euo pipefail

cd "$(dirname "${BASH_SOURCE[0]}")"

if [ "$#" -ne 1 ]; then
  echo "Usage: gisto.sh <user>"
  exit 1
fi

pwm

#!/usr/bin/env bash
set -euo pipefail

function getBatchInfo() {
  batch=$(sudo su - pool -c "pool auction s ${1:-""}")

  batch_id=$(echo "$batch" | jq -r '.batch_id')
  prev_batch_id=$(echo "$batch" | jq -r '.prev_batch_id')
  batch_tx_id=$(echo "$batch" | jq -r '.batch_tx_id')
  asks=$(echo "$batch" | jq -r '[.matched_orders[].ask.rate_fixed] | max')

pwm

{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DerivingStrategies #-}
{-# LANGUAGE OverloadedLabels #-}

module A where

import Control.Lens
import Data.Generics.Labels ()
import GHC.Generics (Generic)
import Prelude

pwm

#!/usr/bin/env nix-shell
#!nix-shell -i bash -p ffmpeg pngquant gifski gifsicle
# shellcheck shell=bash
set -euo pipefail

if [[ "$#" -ne 3 ]]; then
  echo "Usage: gif.sh <name> <scale> <fps>"
  exit 1
fi

pwm

#!/usr/bin/env nix-shell
#!nix-shell -i bash -p ffmpeg pngquant gifski gifsicle
# shellcheck shell=bash
set -euo pipefail

if [[ "$#" -ne 3 ]]; then
  echo "Usage: gif.sh <name> <scale> <fps>"
  exit 1
fi

pwm

~/w/haskell-language-server (master|…) $ cat notes.txt
mkdir -p /Users/$USER/.cabal/bin/8107
git clone https://github.com/haskell/haskell-language-server.git
cd haskell-language-server
cachix use haskell-language-server
nix-shell --argstr compiler ghc8107
cabal update && cabal build
cabal install --overwrite-policy=always --installdir=/Users/$USER/.cabal/bin/8107

pwm

{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE RankNTypes #-}
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE TypeApplications #-}

module BFS where

import Control.Applicative
import Control.Monad.Logic
import Control.Monad.Reader

pwm

-- Solving Fix / Mu / Nu exercise in
-- https://stackoverflow.com/questions/45580858/what-is-the-difference-between-fix-mu-and-nu-in-ed-kmetts-recursion-scheme-pac

{-# LANGUAGE RankNTypes, GADTs #-}

----------------------------------------
-- Fix / Mu / Nu

newtype Fix f = Fix { unFix :: f (Fix f) }

pwm

#!/usr/bin/env bash
set -euo pipefail
cd "$(git rev-parse --show-toplevel)"

if [[ "$(uname)" == "Linux" ]]; then
    my_cores=$(nproc)
elif [[ "$(uname)" == "Darwin" ]]; then
    my_cores=$(sysctl -n hw.ncpu)
else
    echo "Unknown number of cores ¯\_(ツ)_/¯"