maxfarseer

-- Main.elm -> добавляем "port"
port module Main exposing (main)

-- ...

-- добавляем команду
port sendDataToJs : String -> Cmd msg

-- update функция
case msg of

maxfarseer

module Asset exposing (Image, src, waterfall)

import Html exposing (Attribute)
import Html.Attributes as Attr


type Image
    = Image String

maxfarseer

-- Question модуль
module Question exposing ( History(..) )

type History =
  History
    { previous : List Question
    , current : Question
    , remaining : List Question
    }
    

maxfarseer

-- zip list структура
-- обернутая в custom type с одним вариантом
type History =
  History
    { previous : List Question
    , current : Question
    , remaining : List Question
    }
    
-- следовательно, для работы придется использовать case

maxfarseer

-- было
type alias Stylesheet =
  { declarations: List Declaration }
  
-- стало
type alias Stylesheet =
  { charset : Maybe String
  , imports : List Import
  , namespaces : List Namespace
  , declarations : List Declaration

maxfarseer

navLink : Page -> String -> String -> Html msg

maxfarseer

abc : number1 -> number2 -> numberWtf

maxfarseer

testSlider : String -> (Int -> Msg) -> (Model -> Int) -> Test

-- То что вернули `Test` - условие примера.

-- SlidNoise = (Int -> Msg),
-- так как SlidNoise **кастомный тип**
-- и в тоже время **функция-контруктор**,
-- которая принимает Int и возвращает Msg).

-- .noise = ( Model -> Int ),

maxfarseer

Result.map : (a -> b) -> Result x a -> Result x b

maxfarseer

List.map : (a -> b) -> List a -> List b