TheSeamau5

Type signatures for elm-html components (without effects)

First, consider the following type aliases

type alias Init options state = options -> state
-- type alias Init option state = Vector -> options -> state
-- alternative version if using inline styles

type alias Update action state = action -> state -> state

TheSeamau5

updateN : Int -> (a -> a) -> List a -> List a
updateN n f list = 
  List.indexedMap (\index value -> if index == n then f value else value) list

TheSeamau5

type alias Update action state = action -> state -> state
type alias View action state = Address action -> state -> Html
type alias Init options state = Vector -> options -> state

TheSeamau5

import Html exposing (Html)
import Signal exposing (Address)

type alias Vector = 
  { x : Float , y : Float }
  
----------------------------------

type alias Init options state effect = options -> (state, effect) 
type alias Update action state effect = action -> state -> (state, effect)

TheSeamau5

import Graphics.Element exposing (Element)
import Graphics.Collage exposing (..)
import Color
import Signal 
import Time


-- Play with this value and hot swap the code
gravity = -9.8
--

TheSeamau5

import Graphics.Element exposing (Element)
import Graphics.Collage exposing (..)
import Color
import Signal 
import Time


-- Play with this value and hot swap the code
gravity = 
  { x = 1 

TheSeamau5

import Html exposing (..)
import String
import List
import Color exposing (Color)

--
infixl 2 =>
(=>) = (,)

--

TheSeamau5

<form>
  <input id = "myInput" type="file" accept="image/*" capture="camera">
  <img id ="myImage" src = "#"/>
</form>

TheSeamau5

import Html exposing (Html, Attribute, div, img, input)
import Html.Attributes exposing (style, src, width, height, type')
import Html.Events
import Json.Decode as Json exposing (Decoder, (:=))

import Signal exposing (Address)
import StartApp
import String

import Debug

TheSeamau5

import Html exposing (Html, Attribute, ul, li, text, div)
import Html.Attributes exposing (style)
import Html.Events 
import Json.Decode as Json exposing (Decoder, (:=))
import Signal exposing (Address)
import StartApp
----------------------------------

initial : State Int 
initial =