Possible Elm model update syntax

Canvas.elm

update : Msg -> Model -> Model
update msg model =
  case msg of
    CanvasResized canvasSize ->
      model
        |> :canvas
        |> updateCanvasSize canvasSize
        |> updateVisibleTiles

updateCanvasSize : CanvasSize -> Model -> Model
updateCanvasSize canvasSize model =
  { model.canvasView | size = canvasSize, viewUpdated = True }

updateVisibleTiles : Model -> Model
updateVisibleTiles model =
  {model | visibleTiles = getVisibleTiles model.canvasView }

getVisibleTiles : CanvasView -> Set Tile
getVisibleTiles canvasView =
  let
    tileLeft = floor (toFloat (canvasView.curPos.x) / toFloat(tileSize))
    tileTop = floor (toFloat (canvasView.curPos.y) / toFloat(tileSize))

    numTilesI = floor (canvasView.scale * (toFloat canvasView.size.width) / tileSize + 1)
    numTilesJ = floor (canvasView.scale * (toFloat canvasView.size.height) / tileSize + 1)
  in
    getTileRange tileLeft (tileLeft+numTilesI) tileTop (tileTop+numTilesJ)
      |> Set.fromList

PreferredCanvas.elm

update : Msg -> Model -> Model
update msg model =
  case msg of
    CanvasResized canvasSize ->
      model
        |> :canvasView (\model -> (model.canvasView |> :size canvasSize) )
        |> :viewUpdated (\model -> True)
        |> :visibleTiles (\model -> getVisibleTiles model.canvasSize)

getVisibleTiles : CanvasView -> Set Tile
getVisibleTiles canvasView =
  let
    tileLeft = floor (toFloat (canvasView.curPos.x) / toFloat(tileSize))
    tileTop = floor (toFloat (canvasView.curPos.y) / toFloat(tileSize))

    numTilesI = floor (canvasView.scale * (toFloat canvasView.size.width) / tileSize + 1)
    numTilesJ = floor (canvasView.scale * (toFloat canvasView.size.height) / tileSize + 1)
  in
    getTileRange tileLeft (tileLeft+numTilesI) tileTop (tileTop+numTilesJ)
      |> Set.fromList