Create a fast parser for a dictionary.

The parser succeeds with the longest matching key

type Animal
    = Dog
    | Cat
    | Horse


animal : Parser Animal
animal =
    [ ( "doggo", Dog )
    , ( "kitty", Cat )
    , ( "horsey", Horse )
    ]
        |> Dict.fromList
        |> fromDict