jessitron

import scalaz.stream._
import Process._
import scalaz.concurrent.Task
import scala.concurrent.duration._


// git bisect identifies the offending commit as
// https://github.com/scalaz/scalaz-stream/commit/721716ed7af0c126593e9ee227c0f36f21c5b7ed
object Test {

jessitron

// In real life, it's great that stuff gets restarted when it fails.
// In testing, we'd rather know that it failed.

import akka.actor._
class DyingActor extends Actor {
  def receive = { case "die" => throw new Exception("poo") }
}

// Default config, everything restarts automatically
val system = ActorSystem("ordinary")

jessitron

scala> class Banana[P] {}
defined class Banana

// We will know when this gets called, when the banana is needed
scala> implicit def myBanana[P]: Banana[P] = { println("banana time"); new Banana[P] }
myBanana: [P]=> Banana[P]

// method with implicits
scala> def addWithBanana(one: Int)(two: Int)(implicit banana: Banana[Int]) = {println(banana); one + two}

jessitron

var completeSale = function(num) {
    console.log("Sale " + num + ": selling " + this.items + " to " + this.customer);
   }

var foo = {
   customer: "Fred",
   items: ["carrot","eggs"],
   complete: completeSale
};

jessitron

(defn addCustomer [sale, cust] (assoc sale :customer cust))
(defn addItems [sale, items] (assoc sale :items items))
(defn complete [sale, num] (println "Sale" num ": selling" (:items sale) "to" (:customer sale)))

(def sale { :store "Downtown" })

(-> sale
  (addCustomer "Fred")
  (addItems ["carrot", "eggs"])
  (complete 100)

jessitron

== Summum Bonum, by Robert Browning ==
All the breath and the bloom of the year
In the bag of one bee
All the wonder and wealth of the mine
In the heart of one gem
In the core of one pearl all the shade
And the shine of the sea
Breath and bloom, shade and shine, wonder, wealth,
And how far above them
Truth that's brighter than gem

jessitron

You're sitting there and
all the sudden something comes to you and everything stops
You look down at no point in particular
but then the music is thrumming in your ears and 
you see these colors come at the edge of your vision
red and yellow and blue, focusing in on them
If you can't stop it because you don't want to lose it
and you know that there's something there
Your vision blurs a bit and it becomes
this blackness in front of you

jessitron

module Box (Model, init, Action, update, view) where

import Html exposing (..)
import Html.Attributes exposing (style)
import Html.Events exposing (onClick)


-- MODEL
type alias Model = ()

jessitron

module Failure where

import InnerComponent

--- ACTION
type InnerAction = InnerComponent.Action -- oops, meant type alias

type Action = Passthru InnerAction

-- MODEL

jessitron

module EffectsTest where

import Html exposing (..)
import Html.Events exposing (onClick)

import StartApp exposing (App)
import Task exposing (Task)
import Effects exposing (Effects, Never)