Dynamically sort by field in Elm

Main.elm

import Dict
import List
import Html exposing (text)

type alias Expense =
 { title : String
 , amount: Float
 }


expenses = [{title = "bbb", amount = 3}, {title = "aaa", amount = 5}]

compareBy accessor a b = compare (accessor a) (accessor b)

expensesAccessors =
    Dict.fromList [ ( "title", compareBy .title ), ( "amount", compareBy .amount ) ]


sortByField : String -> Dict.Dict String (a -> a -> Order) -> List a -> List a
sortByField fieldname accessors list =
    case Dict.get fieldname accessors of
        Just fn ->
            List.sortWith fn list

        Nothing ->
            list
            
sortedExpenses = sortByField "title" expensesAccessors expenses
            
main =
  text <| toString sortedExpenses