danstn

# An equilibrium index of a sequence is an index into the sequence 
# such that the sum of elements at lower indices is equal to the 
# sum of elements at higher indices.

def eq_indices(arr)
  left, right = 0, arr.inject(0, :+)
  result = []
  arr.each_with_index do |el, i|
    right -= el
    result << i if right == left

danstn

sealed trait Opt[+A] {
  def flatMap[T](f: A => Opt[T]): Opt[T] = 
    fold[Opt[T]](Nothing)(f)
 
  def map[T](f: A => T): Opt[T] = 
    fold[Opt[T]](Nothing)(a => Something(f(a)))
 
  def fold[B](g: => B)(f: A => B): B =
    this match {
      case Something(a) => f(a)

danstn

function chjava() {
  if [ $# -ne 0 ]; then
    removeFromPath '/System/Library/Frameworks/JavaVM.framework/Home/bin'
    if [ -n "${JAVA_HOME+x}" ]; then
      removeFromPath $JAVA_HOME
    fi
    export JAVA_HOME=`/usr/libexec/java_home -v $@`
    export PATH=$JAVA_HOME/bin:$PATH
  fi
}

danstn

#!/usr/bin/env runhaskell

{-# LANGUAGE OverloadedStrings #-}

import Turtle

main :: IO ()
main = do
  stdout (runWatch $ findSrc)

danstn

{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE DeriveFunctor #-}

import           Prelude
import           Data.String
import           Control.Monad.Free

type Program a r = Free (AST a) r

data AST a next =

danstn

sealed trait Interact[A]

case class Ask(prompt: String)
  extends Interact[String]

case class Tell(msg: String)
  extends Interact[Unit]

trait Monad[M[_]] {
  def pure[A](a: A): M[A]

danstn

-- | simple/basic Scala -> Haskell translation of Runar's presentation
-- | (https://dl.dropboxusercontent.com/u/4588997/ReasonablyPriced.pdf)
-- | trying to use minimal extensions and magic. 
-- | (earlier I had a version using MultiParamTypeClasses for Runar's
-- | Inject class, but scraped it opting for simplicity)
-- | my question: what do we lose by moving towards simplicity?
-- | Future work: use DataKinds, TypeOperators, and potentially TypeFamilies
-- | to maintain and automate the folding of types in Coproduct.

{-# LANGUAGE Rank2Types, DeriveFunctor #-}

danstn

#!/usr/bin/bash

set -e

echo -n "Enter server name (i.e. nginx-server): "
read server

echo "===> [INFO] Generating certs for: $server"

echo "===> [Step 1] Generating Certificate Request (CSR)..."

danstn

newtype PrivateData = PrivateData { ssshhh :: Text }
  deriving (Eq, Show, Generic)
  
newtype PublicData = PublicData { somedata :: Text }
  deriving (Eq, Show, Generic)

instance ToJSON PrivateData
instance ToJSON PublicData

type PublicAPI = Get '[JSON] [PublicData]

danstn

{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE NoImplicitPrelude #-}

module HasqlExtra where

import Data.UUID (UUID)
import qualified Hasql.Decoders as D
import Hasql.DynamicStatements.Snippet (Snippet, param, sql)
import Hasql.DynamicStatements.Statement (dynamicallyParameterized)