kciesielski

package com.softwaremill.freemonads

import cats.free.Free
import cats.~>
import cats._, cats.std.all._
import scala.concurrent.ExecutionContext.Implicits.global
import scala.concurrent.Future

sealed trait External[A]
case class Tickets(count: Int) extends AnyVal

kciesielski

object aggregate {
  type ValidationStatus[S] = \/[String, S]
  type ProcessingStatus[S] = \/[String, S]

  type ReaderTStatus[A, S] = ReaderT[ValidationStatus, A, S]

  object ReaderTStatus extends KleisliInstances with KleisliFunctions {
    def apply[A, S](f: A => ValidationStatus[S]): ReaderTStatus[A, S] = kleisli(f)
  }

kciesielski

package com.mtgox.api;

import java.net.HttpURLConnection;
import java.net.URL;
import java.net.URLEncoder;
import java.util.HashMap;
import java.util.logging.Level;
import java.util.logging.Logger;
import javax.crypto.Mac;

kciesielski

object Rebates {
  type RebatePolicy = (Product, Int, Money) => Money
}

object standardRebate extends ((Double, Int) => RebatePolicy) {

  def apply(rebate: Double, minimalQuantity: Int) = {
    (product, quantity, regularCost) => {
      val rebateRatio = BigDecimal(rebate / 100)
      if (quantity >= minimalQuantity)

kciesielski

public abstract class RebateDecorator implements RebatePolicy {

	protected RebatePolicy decorated; 

	protected RebateDecorator(RebatePolicy decorated){
		this.decorated = decorated;
	}
}