Yeson.json.object применяется слишком много аргументов

Question

import Yesod 
import Data.Text 

data App = App 

instance Yesod App 

mkYesod "App" [parseRoutes| 
      /Home GET 
       |] 

getHome :: String -> Handler Value 
getHome = object ["name" .= ("Adam"::Text)] 

main = warpDebug 2012 App 

бросает ошибку, как,

Couldn't match expected type ‘String -> Handler Value’ 
       with actual type ‘Value’ 
    Possible cause: ‘object’ is applied to too many arguments 
    In the expression: object ["name" .= ("Adam" :: Text)] 
    In an equation for ‘getHome’: 
     getHome = object ["name" .= ("Adam" :: Text)] 

object не в области видимости в прелюдии. Какой пакет/модуль определяет это? Почему в этом случае не требуется пара ключ-значение?

Answer 1

object не входит в сферу применения в прелюдии. Какой пакет/модуль определяет это?

Yesod.Json

Почему не взять пару ключ-значение в указанном выше случае?

Он берет пара ключевых значений только отлично. В сообщении об ошибке сообщается, что object дает вам Value, но вы указали getHome типа String -> Handler Value, а не Value.

«Возможная причина», кажется, просто вводит в заблуждение в этом случае.