| Server IP : 153.92.12.220 / Your IP : 216.73.217.109 Web Server : LiteSpeed System : Linux id-dci-web1986.main-hosting.eu 5.14.0-611.26.1.el9_7.x86_64 #1 SMP PREEMPT_DYNAMIC Thu Jan 29 05:24:47 EST 2026 x86_64 User : u686484674 ( 686484674) PHP Version : 8.0.30 Disable Function : system, exec, shell_exec, passthru, mysql_list_dbs, ini_alter, dl, symlink, link, chgrp, leak, popen, apache_child_terminate, virtual, mb_send_mail MySQL : OFF | cURL : ON | WGET : ON | Perl : OFF | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /proc/./self/root/opt/go/pkg/mod/github.com/prometheus/alertmanager@v0.28.1/ui/app/src/ |
Upload File : |
module Parsing exposing (urlParser)
import Regex
import Types exposing (Route(..))
import Url exposing (Url)
import Url.Parser exposing (Parser, map, oneOf, parse, top)
import Views.AlertList.Parsing exposing (alertsParser)
import Views.Settings.Parsing exposing (settingsViewParser)
import Views.SilenceForm.Parsing exposing (silenceFormEditParser, silenceFormNewParser)
import Views.SilenceList.Parsing exposing (silenceListParser)
import Views.SilenceView.Parsing exposing (silenceViewParser)
import Views.Status.Parsing exposing (statusParser)
urlParser : Url -> Route
urlParser url =
let
-- Parse a query string occurring after the hash if it exists, and use
-- it for routing.
hashAndQuery =
url.fragment
|> Maybe.map
(Regex.splitAtMost 1 (Regex.fromString "\\?" |> Maybe.withDefault Regex.never))
|> Maybe.withDefault []
( path, query ) =
case hashAndQuery of
[] ->
( "/", Nothing )
h :: [] ->
( h, Nothing )
h :: rest ->
( h, Just (String.concat rest) )
in
case parse routeParser { url | query = query, fragment = Nothing, path = path } of
Just route ->
route
Nothing ->
NotFoundRoute
routeParser : Parser (Route -> a) a
routeParser =
oneOf
[ map SilenceListRoute silenceListParser
, map StatusRoute statusParser
, map SettingsRoute settingsViewParser
, map SilenceFormNewRoute silenceFormNewParser
, map SilenceViewRoute silenceViewParser
, map SilenceFormEditRoute silenceFormEditParser
, map AlertsRoute alertsParser
, map TopLevelRoute top
]