arty prozacchiwawa

prozacchiwawa / gist:d1f710afd65145e62561

Created January 29, 2016 08:50

	-- pulp dep install --save purescript-signal
	import Prelude
	import Signal as S
	import Signal.Channel as C

	let c = C.channel 0
	let s = C.subscribe c

prozacchiwawa / gist:529f61c608b59b65aa0d

Created February 2, 2016 05:12

	module PortTest where

	import Debug exposing (log)
	import Html exposing (div, text)
	import Html.Attributes exposing (id)
	import Html.Events exposing (onClick)
	import Signal
	import Task exposing (Task (..))

	outputSignal : Signal.Mailbox String

prozacchiwawa / gist:eeb6ae883e6319017ebb

Created February 2, 2016 05:12

	module PortTest where

	import Debug exposing (log)
	import Html exposing (div, text)
	import Html.Attributes exposing (id)
	import Html.Events exposing (onClick)
	import Signal
	import Task exposing (Task (..))

	outputSignal : Signal.Mailbox String

prozacchiwawa / gist:456ea2986f316dee400b

Last active February 2, 2016 08:37

	module PortTest where

	{--
	<html>
	<head>
	<script src='port-test.js'></script>
	</head>
	<body>
	<div id='port-test'></div>
	<script>

prozacchiwawa / gist:0625666c2a4a231e602f

Created February 2, 2016 08:47

Port test where outputPort depends on app.model.

	module PortTest where

	{--
	<html>
	<head>
	<script src='port-test.js'></script>
	</head>
	<body>
	<div id='port-test'></div>
	<script>

prozacchiwawa / gist:6ffc6d1da157abf1056d

Created February 2, 2016 09:36

	module PortTest2 where
	import Debug
	import Signal exposing (Mailbox, mailbox, Address)
	import Effects exposing (Effects, none, Never)
	import Basics exposing (toString)
	import String
	import Task
	import Html exposing (Html, text, button, div)
	import Html.Events exposing (onClick)

prozacchiwawa / gist:07ddbaa914e779b3cbc9

Created February 13, 2016 12:20

	module Main where

	import Prelude

	import DOM.Node.Types (ElementId(..))

	import Signal.Channel

	import React

prozacchiwawa / StartApp.elm

Created February 26, 2016 09:24

	module StartApp.StartApp ( start, Config, App ) where
	{-\| This module helps you start your application in a typical Elm workflow.
	It assumes you are following [the Elm Architecture][arch] and using
	[elm-effects][]. From there it will wire everything up for you!

	**Be sure to [read the Elm Architecture tutorial][arch] to learn how this all
	works!**

	[arch]: https://github.com/evancz/elm-architecture-tutorial
	[elm-effects]: http://package.elm-lang.org/packages/evancz/elm-effects/latest

prozacchiwawa / SPA.elm

Created March 16, 2016 07:01

	...

	purposeUpdate : (PU.Model -> (PU.Model, Effects PU.Action)) -> Model -> (Model, Effects Action)
	purposeUpdate u m =
	let finishPurposeUpdate p =
	let (pm,e) = u p in
	let newEffects = Effects.map Purpose e in
	(PurposeModel pm, newEffects)
	in
	let updatePurpose y =

prozacchiwawa / testelmd.elm

Created March 22, 2016 01:28

	import Effects exposing (Effects(..), Never)
	import Html exposing (Html, div, button, text)
	import Html.Attributes exposing (value)
	import Html.Events exposing (onClick)
	import Signal exposing (Mailbox)
	import StartApp as SA
	import Task exposing (Task(..))

	type Request = DummyRequest \| Request String
	type Response = Response String