Elm在新选项卡中打开url

module Main exposing (..)

import Browser
import Html exposing (Html, a, text)
import Html.Attributes exposing (target, href)

type Msg = OpenUrl

main =
    Browser.sandbox { init = init, update = update, view = view }

init =
    ( "https://www.example.com", Cmd.none )

update msg url =
    case msg of
        OpenUrl ->
            ( url, Cmd.none )

view url =
    Html.div []
        [ a [ href url, target "_blank" ] [ text "Open URL in new tab" ]
        , Html.button [ onClick OpenUrl ] [ text "Open URL" ]
        ]