Routing.elm

import Dict exposing (Dict)

type Page
    = NotFound
    | LeaderBoardPage
    | LoginPage
    | RunnerPage

routes : Dict String Page
routes =
    Dict.fromList [("#/", LeaderBoardPage) 
        ,("", LeaderBoardPage)
        ,("#/login", LoginPage)
        ,("#/runner", RunnerPage)
        ,("#notfound", NotFound)]


hashToPage : String -> Page
hashToPage hash =
    Dict.get hash routes 
    |> Maybe.withDefault NotFound

pageToHash : Page -> String
pageToHash page =
    Dict.toList routes
    |> List.filter (\(hash, p) -> p == page)
    |> List.head
    |> Maybe.withDefault ("#notfound", NotFound)
    |> Tuple.first