Fragment links stop working in --debug

[rtfeldman]

The following code works fine when compiled without --debug, but once it's compiled with --debug, clicking either of the links does nothing.

SSCCE

module Main exposing (main)

import Browser exposing (Document)
import Browser.Navigation as Nav
import Html exposing (a, li, text, ul)
import Html.Attributes exposing (href)
import Time
import Url exposing (Url)


type alias Model =
    { navKey : Nav.Key
    , url : Url
    }


init : () -> Url -> Nav.Key -> ( Model, Cmd Msg )
init flags url navKey =
    ( { url = url, navKey = navKey }
    , Cmd.none
    )


view : Model -> Document Msg
view model =
    { title = "SSCCE"
    , body =
        [ text ("I think the current url is " ++ Url.toString model.url)
        , ul []
            [ li [] [ a [ href "#foo" ] [ text "#foo" ] ]
            , li [] [ a [ href "#bar" ] [ text "#bar" ] ]
            ]
        ]
    }


type Msg
    = LinkClicked Browser.UrlRequest
    | UrlChanged Url


update : Msg -> Model -> ( Model, Cmd Msg )
update msg model =
    case msg of
        LinkClicked (Browser.Internal url) ->
            ( model
            , Nav.pushUrl model.navKey (Url.toString url)
            )

        LinkClicked (Browser.External href) ->
            ( model
            , Nav.load href
            )

        UrlChanged url ->
            ( { model | url = url }, Cmd.none )


main : Program () Model Msg
main =
    Browser.application
        { init = init
        , onUrlChange = UrlChanged
        , onUrlRequest = LinkClicked
        , subscriptions = \_ -> Sub.none
        , update = update
        , view = view
        }