noelwelsh

import cats.{Id,Monad}
import cats.state.State
import cats.std.function._

import scala.language.higherKinds._

// Call Example.example.run to see the example running
object Example {
  type MyState[A] = State[Int, A]

noelwelsh

object Nullable {
  sealed trait NullableTag
  type Nullable[A] = A with NullableTag

  def nullAs[B]: Nullable[B] =
    null.asInstanceOf[Nullable[B]]

  implicit class ToNullable[A](val a: A) extends AnyVal {
    def `?`: Nullable[A] = a.asInstanceOf[Nullable[A]]
  }

noelwelsh

import scalaz.\/
import scalaz.syntax.either._

object Example2 {
  // This example simulates error handling for a simple three tier web application
  //
  // The tiers are:
  // - the HTTP service
  // - a user authentication layer
  // - a database layer

noelwelsh

// Type class
trait Burp[A] {
  def burp(in: A): String
}

object Burp {
  def apply[A](implicit burp: Burp[A]): Burp[A] = burp
}

case class Foo(name: String)

noelwelsh

import scalaz.{Functor, Monad}
import scalaz.std.option._
import scalaz.syntax.monad._
import scalaz.syntax.functor._

object SyntaxExamples {
  // This works fine
  Monad[Option].lift((x: Int) => x + 1)
  
  //  could not find implicit value for parameter F: scalaz.Functor[F]

noelwelsh

package myna
package app

import bigtop.util.Uuid
import myna.model.external.User
import myna.util.Base64
import play.api.libs.ws._
import play.api.libs.json._
import play.api.libs.concurrent.Promise
import play.api.mvc.Request

noelwelsh

  val jettyWebPath = "src" / "main" / "webapp" / "WEB-INF" / "jetty-web.xml"

  lazy val installProductionRunMode = task {
    FileUtilities.copyFile("project" / "jetty-web.xml",
                           jettyWebPath,
                           log)
    log.info("Copied jetty-web.xml into place")
    None
  } describedAs("Install a jetty-web.xml that sets the run mode to production")