jinjor

import Html exposing (text)

main =
  text (toString output)
  
  
output =
  apply app
  
  

jinjor

module Main where

import Control.Monad.State


foo :: State Int String
foo = do
  count <- get
  put $ count + 1
  return "Hello"

jinjor

-- MODEL ----------

type alias Id = String

-- Son

type alias Son =
  { id : Id

jinjor

type alias Position
  = (Align, Align)

type alias Size
  = Int

type alias Length
  = Int

type alias Align

jinjor

-- this is serializable
type alias Input = (String, Json.Decode.Value) 

-- this may be not serializable
type Msg = ...

-- Transform Input to Msg.
inputToMsg : Input -> Msg
inputToMsg (tipe, json) =
  if tipe == ...

jinjor

--module Main exposing (..)

import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (..)
import Html.App exposing (..)

import Array exposing (Array)

jinjor

import Html exposing (..)
import Html.App exposing (beginnerProgram)
import Html.Attributes exposing (..)
import Html.Events exposing (..)
import Json.Decode as Decode exposing (..)


main =
  beginnerProgram { model = "", view = view, update = update }

jinjor

import Html exposing (..)
import Html.App as Html
import Html.Attributes exposing (..)
import Html.Events exposing (on)
import Json.Decode as Json exposing ((:=))
import Mouse exposing (Position)

main =
  Html.program <| debugOn
    { init = init

jinjor

import Html exposing (Attribute, div, button, text)
import Html.App exposing (beginnerProgram)
import Html.Attributes exposing (style)
import Html.Events exposing (onClick, onMouseEnter, onMouseLeave)
import Set exposing (Set)


main =
  beginnerProgram { model = { count = 0, hover = hoverInit }, view = view, update = update }

jinjor

import Html exposing (Html, text, button, div, p, ul, li)
import Html.Attributes exposing (style)
import Html.Events exposing (onClick)


type OuterMsg =
  ContainerMsg InnerMsg | View1Click | View2Click


main : Html OuterMsg