Разбор строки запроса внутри фрагмента с помощью Elm

По причинам мне нужно проанализировать что-то, что выглядит как строка запроса (например, key=value&another_key=another_value), но которая находится во фрагменте URL-адреса, например:

http://example.com/callback#id_token=my_long_jwt&state=some_state

Если бы # было ?, то было бы легко использовать <?>, но я не могу понять, как (и можно ли) использовать Url.Parser.Query, когда он находится во фрагменте.

Я могу получить фрагмент как String:

import Url.Parser as Parser
import Url.Parser exposing ((</>))

type Route = Callback String | NotFound

route : Parser.Parser (Route -> a) a
route = Parser.map Callback (Parser.s "callback" </> fragmentWithDefault )

fragmentWithDefault : Parser.Parser (String -> a) a
fragmentWithDefault = Parser.fragment <| Maybe.withDefault "no_fragment"

toRoute : Url.Url -> Route
toRoute url = Maybe.withDefault NotFound (Url.Parser.parse route url)

Но в Url.Parser.Query нет API, который запускает Url.Parser.Query.Parser, против которого я могу запустить String в Callback.