Aeson Encode List of Tuples

main.hs

data Summary = Summary {
  count :: Int
, list1 :: Map Text Int
} deriving (Generic, Show)

instance ToJSON Summary where 
  toJSON (Summary {..}) = object [
      "count" .= count
    , "list1" .= sortBy (comparing snd) $ toList names :: [(Text, Int)]
    ]
    
{-
   app/Main.hs:9:7: error:
   • Couldn't match type ‘[(Text, Int)]’ with ‘(Text, Value)’
      Expected type: aeson-1.4.2.0:Data.Aeson.Types.Internal.Pair
        Actual type: [(Text, Int)]
-}

{-
The following worked
-}

instance ToJSON Summary where
  toJSON (Summary {..}) = object [
      "count" .= count
    , "list1" .= toJSON (sortBy (comparing snd) $ toList names :: [(Text, Int)])
    ]