touchpage 0.2.1

control panel server with shared-state web controls
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13

module Util exposing (RectSize, andMap)

import Json.Decode as JD exposing (Decoder)


type alias RectSize =
    { width : Float, height : Float }


andMap : Decoder a -> Decoder (a -> b) -> Decoder b
andMap dca dcab =
    JD.map2 (\l r -> l r) dcab dca