Updated version of Elm's resizable yogi

resizable-yogi.elm

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

main =
  Html.program
    { init = (Model 200, Cmd.none)
    , view = view
    , update = update
    , subscriptions = subscriptions
    }

-- MODEL

type alias Model =
  {  size: Int
  }

-- UPDATE

type Msg
  = MouseMove Mouse.Position

update : Msg -> Model -> (Model, Cmd Msg)
update action model =
  case action of
    MouseMove p ->
      (Model (Basics.max p.x p.y), Cmd.none)

-- VIEW

view : Model -> Html Msg
view model =
  img [
    src "/imgs/yogi.jpg",
    width model.size,
    height model.size
  ] []

-- SUBSCRIPTIONS

subscriptions : Model -> Sub Msg
subscriptions model =
  Mouse.moves MouseMove