SimpleParamsParsing.elm

module Stuff exposing (..)

import UrlParser exposing (..)
import String
import Erl
import Dict exposing (Dict)

type alias Params =
    Dict String String

type Route
    = AuthCodeRoute Params
    | UserPageRoute Int

params =
    custom ("PARAMS")
        (Erl.parse >> .query >> Ok)

parser : Parser (Route -> a) a
parser =
    oneOf
        [ format AuthCodeRoute (s "authCode" </> params)
        , format UserPageRoute (s "user" </> int)
        ]


userPageTest = parse identity parser "user/42/"
-- Ok (UserPageRoute 42)

authCodeTest = parse identity parser "authCode/?code=31337abc"
-- Ok (AuthCodeRoute (Dict.fromList [("code", "31337abc")]))

authCodeTest2 = parse identity parser "authCode/?error=Authentication%20failed"
-- Ok (AuthCodeRoute (Dict.fromList [("error","Authentication failed")]))