Softsapiens

module Control.Monad.List.Trans where

import Prelude

import Data.List
import Data.Either

import Control.Apply
import Control.Bind
import Control.Monad.Eff

Softsapiens

package com.codetinkerhack

import akka.actor.{ ActorRef, Props, Actor, ActorLogging }
import akka.pattern.ask
import akka.util.Timeout
import scala.concurrent.duration._
import akka.actor.Actor.Receive
import akka.pattern.pipe
import scala.util.Success
import scala.util.Failure

Softsapiens

scala> :paste
// Entering paste mode (ctrl-D to finish)

case class Address(street : String, city : String, postcode : String)
case class Person(name : String, age : Int, address : Address)

// Exiting paste mode, now interpreting.

defined class Address
defined class Person

Softsapiens

scala> import syntax.typeable._
import syntax.typeable._

scala> val wat: Any = List(1, 2, 3, 4)
wat: Any = List(1, 2, 3, 4)

scala> wat.cast[List[Int]].map(_.sum)
res0: Option[Int] = Some(10)

scala> val wat2: Any = "foo"

Softsapiens

// Run this with scala <filename>

/**
 * A Two-phase commit Monad
 */
trait Transaction[+T] {
  def map[U](fn: T => U): Transaction[U] = flatMap { t => Constant(fn(t)) }
  def flatMap[U](fn: T => Transaction[U]): Transaction[U] =
    FlatMapped(this, fn)

Softsapiens

package demo

// Adapted from Jonas Bonér's example https://gist.github.com/jboner/9990435

import akka.actor.{Props, ActorSystem}
import akka.persistence.{EventsourcedProcessor, SnapshotOffer}

object PersistedPingPong extends App {

  case object Ball            //The Command

Softsapiens

// Sample usage of ...
// - Dispatch (http://dispatch.databinder.net)
// - SJSON (https://github.com/debasishg/sjson)
// ... to create a basic REST Web Service client for Twitter API

import dispatch._
import scala.reflect.BeanInfo
import sjson.json.Serializer.SJSON

// Model

Softsapiens

  trait Serialiser[A]{
    def toJson(x: A): String
  }

  // [A: Serialiser] means the compiler expects an implicit Serialiser 
  // needs to be available for A
  def writeJsonToDisk[A: Serialiser](item: A){
    def writeToDisk(x:String){println(s"I saved [$x] to disk, honest!")}
    
    // Access the parameter with implicity

Softsapiens

import shapeless._
import ops.record.{ Selector, Updater }
import record.{ FieldType, field }

trait PathLens[T, P] {
  type Elem
  def get(t : T) : Elem
  def set(t : T)(e : Elem) : T
}

Softsapiens

miles@frege:~$ scala
Welcome to Scala version 2.11.0 (Java HotSpot(TM) 64-Bit Server VM, Java 1.7.0_55).
Type in expressions to have them evaluated.
Type :help for more information.

scala> import scala.language.dynamics
import scala.language.dynamics

scala> case class Assoc[K, V](value: V)
defined class Assoc