Warry

import Dict

-- The transformation function
listToDict : (a -> comparable) -> [a] -> Dict.Dict comparable a
listToDict getKey values = Dict.fromList (map (\v -> (getKey v, v)) values)
 
-- Demo type
type FooBar =
  { foo : String
  , bar : Int

Warry

module Test where

import Text (asText)
import Array (Array, get)
import Json.Decode (..)
import Maybe (..)

type alias Foo =
  { foo : String
  , bar : Bar

Warry

Why do you use (flip andThen)?

TLDR; To use it with the pipe (|>) operator.

The actual andThen problem

Here is the signature for Task.andThen:

import Task exposing (andThen)

Warry

module MagicJson exposing (encode, decode, decoder)


import Json.Encode as Encode exposing (Value)
import Json.Decode as Decode exposing (Decoder)
import Http


encode : a -> Value
encode jsonEncodeElmValue =

Warry