Delete unused.

This commit is contained in:
Dillon Kearns 2022-07-25 15:44:21 +02:00
parent 16d081c42b
commit 058d4a3819

View File

@ -822,24 +822,6 @@ mergeResultsDataSource parsed =
)
--resultsToDict : List a -> Dict String (List error)
--resultsToDict list =
-- list
-- |> List.foldl
-- (\( key, errorsForKey ) soFar ->
-- soFar
-- |> Dict.update key
-- (\maybeList ->
-- maybeList
-- |> Maybe.withDefault []
-- |> List.append errorsForKey
-- |> Just
-- )
-- )
-- Dict.empty
mergeErrors : Dict comparable (List value) -> Dict comparable (List value) -> Dict comparable (List value)
mergeErrors errors1 errors2 =
Dict.merge