zkessin

update action model =
  case action of
    FromAction act->
      let 
        (newData, fx ) =  Form.update act model.form
    
      in
        ({model|
          form = newData},
         Effects.map FormAction fx)

zkessin

type Action = 
  FormAction Form.Action 
  | -- Other actions

zkessin

foo x =
  case x of
    Type y -> ...
    _   -> ...
    

zkessin

"use strict";
var system = require('system');


var page = require('webpage').create();
function waitFor(testFx, onReady, timeOutMillis) {
    var maxtimeOutMillis = timeOutMillis ? timeOutMillis : 3001, //< Default Max Timout is 3s
        start     = new Date().getTime(),
        condition = false,
        interval  = setInterval(function() {

zkessin

module WizardTest where

import Graphics.Element exposing (tag)
import Check exposing (claim, that, is, true, false, for, quickCheck, suite)
import Check.Investigator exposing (tuple, tuple3, char, int, list, string)
import ElmTest exposing (equals, elementRunner)


claim_reverse_twice_yields_original =
  claim

zkessin

module ExampleCheck where

import Graphics.Element exposing (Element, show)
import Check.Investigator exposing (..)
import Check  exposing (..)



claim_reverse_twice_yields_original =
  claim

zkessin

/root/snarl/_build/default/lib/mmath/c_src/bin_nif.c:36:3: error: ‘for’ loop initial declarations are only allowed in C99 mode
   for (unsigned i = 0 ; i < count; i++) {
   ^
/root/snarl/_build/default/lib/mmath/c_src/bin_nif.c:36:3: note: use option -std=c99 or -std=gnu99 to compile your code
/root/snarl/_build/default/lib/mmath/c_src/bin_nif.c:38:7: warning: implicit declaration of function ‘htonll’ [-Wimplicit-function-declaration]
       last = FROM_DDB(vs[i]);
       ^
/root/snarl/_build/default/lib/mmath/c_src/bin_nif.c: In function ‘from_list’:
/root/snarl/_build/default/lib/mmath/c_src/bin_nif.c:71:3: error: ‘for’ loop initial declarations are only allowed in C99 mode
   for (int i = 0; i < count; i++) {

zkessin

module CRMBox where

import Debug exposing (watch)
import Html exposing (..)
import Html.Events exposing (onBlur, targetValue, on)
import Html.Attributes exposing (style, selected)

import Effects
import Json.Encode
import Json.Decode

zkessin

module DestinationNameBox where

import Debug
import Html exposing (..)
import Html.Events exposing (onBlur, targetValue)
import StartApp.Simple exposing (start)
-- model
type alias Model = String

zkessin

%-*-Erlang-*-
-module(words).
-export([list/0]).

list() ->
    [<<"A acid">>,<<"abacus major">>,<<"abacus pythagoricus">>,<<"A battery">>,
     <<"abbey counter">>,<<"abbey laird">>,<<"abbey lands">>,<<"abbey lubber">>,
     <<"abbot cloth">>,<<"Abbott papyrus">>,<<"abb wool">>,<<"A-b-c book">>,
     <<"A-b-c method">>,<<"abdomino-uterotomy">>,<<"Abdul-baha">>,<<"a-be">>,
     <<"aberrant duct">>,<<"aberration constant">>,<<"abiding place">>,