Сортировка [Значение] по ключу

Question

У меня есть следующий список Value, который я бы хотел сортировать по delta ключам.

{-# LANGUAGE Haskell2010 #-} 
{-# LANGUAGE OverloadedStrings #-} 
import Data.Aeson 

lists :: [Value] 
lists = 
    [ object ["label" .= String "foo", "delta" .= Number 2] 
    , object ["label" .= String "bar", "delta" .= Number 3] 
    , object ["label" .= String "baz", "delta" .= Number 1] 
    ] 

Answer 1

Это связано со структурой Эзона. Я отправлю код без особых объяснений, кроме «sortBy и comparing ваши друзья»:

import Data.Aeson.Types (parseMaybe, Value, Parser) 
import Data.Ord (comparing) 
import Data.List (sortBy) 
import Data.Scientific (Scientific) 
import Data.Text (Text) 

sortByKeyForNumberField :: Text -> [Value] -> [Value] 
sortByKeyForNumberField key = sortBy (comparing $ parseMaybe parserFunction) 
    where 
    parserFunction :: Value -> Parser Scientific 
    parserFunction = withObject "some object" (.: key) 

Вы можете рассчитать необходимый список путем оценки sortByKeyForNumberField "delta" lists.

Тем не менее, вам намного лучше разобрать Асонский АСТ для значимого типа данных (который вам нужно будет определить самостоятельно, потому что вы знаете приложение) и реализуете сортировку для него. Эсон действительно выполнен как АСТ для синтаксического анализа и рендеринга JSON, а не для манипулирования JSON.