🌲

Andy Scott andyscott

🌲

andyscott / case-class-crud.scala

Last active September 18, 2016 16:17

	import cats._
	import cats.data.OptionT
	import cats.free._
	import cats.syntax.option._

	import shapeless.{ Id ⇒ _, _ }
	import shapeless.labelled.{ field, FieldType }
	//import shapeless.ops.record._
	import shapeless.syntax.RecordOps

andyscott / ExtremeFPFizzBuzz.scala

Last active October 26, 2016 18:42

	import cats._
	import monix.eval.Task
	import monix.execution.Scheduler
	import scala.concurrent.Await
	import scala.concurrent.duration._

	object FizzBuzzer {

	def main(args: Array[String]): Unit = {

andyscott / StateTProjections.scala

Created November 29, 2016 18:28

	implicit class StateTProjections[F[_]: Monad, S, A](state: StateT[F, S, A]) {
	def project2_1[R2]: StateT[F, (S, R2), A] =
	state.transformS(_._1, (r, s) ⇒ r.copy(_1 = s))

	def project2_2[R1]: StateT[F, (R1, S), A] =
	state.transformS(_._2, (r, s) ⇒ r.copy(_2 = s))

	def project3_1[R2, R3]: StateT[F, (S, R2, R3), A] =
	state.transformS(_._1, (r, s) ⇒ r.copy(_1 = s))

andyscott / StateTExtras.scala

Created November 30, 2016 06:21

	object StateTExtras {

	// this is your brain, on drugs

	implicit class StateTTupler[F[_]: Monad, S, A](state: StateT[F, S, A]) {
	def tupled2_1[R2]: StateT[F, (S, R2), A] =
	state.transformS(_._1, (r, s) ⇒ r.copy(_1 = s))

	def tupled2_2[R1]: StateT[F, (R1, S), A] =
	state.transformS(_._2, (r, s) ⇒ r.copy(_2 = s))

andyscott / dummy.scala

Last active December 6, 2016 05:34

	import cats._
	import cats.syntax.all._

	object FooAlgebra {
	sealed trait Op[A]
	case object Foo extends Op[String]

	case class FooOps[F[_]](lift: Op ~> F = interpreter) {
	def foo(): F[String] = lift(Foo)
	}

andyscott / demo.scala

Created January 6, 2017 09:17

	import com.typesafe.config.Config
	import classy.core.Decoder
	import classy.generic.derive._
	import classy.config._

	case class Bar(value: String)
	case class Foo(
	a: String,
	b: Option[Int],
	c: List[String],

andyscott / generic-unzip.scala

Last active May 10, 2018 21:50

Generic unzip Lists[TupleN] with Shapeless

	import shapeless._

	object emptyList extends Poly0 {
	implicit def default[T] = at[List[T]](List.empty)
	}

	object appendList extends Poly2 {
	implicit def default[T] = at[T, List[T]](_ :: _)
	}

andyscott / mezzo.scala

Created March 13, 2017 05:34

	/* -
	* Mezzo [core]
	*/

	package mezzo

	import scala.Predef.<:<
	import scala.reflect.ClassTag

	import shapeless._

andyscott / LiteralValue.scala

Created April 10, 2017 23:01

	abstract class LiteralValue[S] {
	def value: S
	}

	object LiteralValue {
	def apply[S](implicit ev: LiteralValue[S]): LiteralValue[S] = ev

	implicit def makeLiteralValue[S <: Singleton]: LiteralValue[S] =
	macro LiteralValueMacros.makeLiteralValue[S]
	}

andyscott / bench_out.scala

Created April 26, 2017 23:09