Extra.elm

module Url.Parser.Extra exposing (const)

import Url.Parser

{-| A parser that "almost always" succeeds.

Maybe you want to convert an existing application to be an SPA
without actually adding a route type yet:

    Url.Parser.Extra.const () : Url.Parser.Parser (() -> ()) ()

-}
const : a -> Url.Parser.Parser (a -> a) a
const a =
    Url.Parser.oneOf
        [ Url.Parser.map a Url.Parser.top
        , Url.Parser.map (\_ -> a) Url.Parser.string
        , Url.Parser.map (\_ _ -> a) (Url.Parser.string </> Url.Parser.string)
        , Url.Parser.map (\_ _ _ -> a) (Url.Parser.string </> Url.Parser.string </> Url.Parser.string)
        , Url.Parser.map (\_ _ _ _ -> a) (Url.Parser.string </> Url.Parser.string </> Url.Parser.string </> Url.Parser.string)
        , Url.Parser.map (\_ _ _ _ _ -> a) (Url.Parser.string </> Url.Parser.string </> Url.Parser.string </> Url.Parser.string </> Url.Parser.string)
        ]