Import.hs

-- No hiding Route 
import           Yesod                as Import
-- ...
--Assumes that "App" is your context
type RouteRenderer = (Route App -> Text)

Some Handler.hs

getAPIR :: Handler TypedContent
getAPIR = do
        render <- getUrlRender
        selectRep $ do
                provideRep $ returnJson $ getAPIJson render

getAPIJson :: RouteRenderer -> Value
getAPIJson render = object $ ([
    "auth_url" .= render HomeR,
    "potato" .= ("Apples"::Text),
    "eggs" .= object ([
        "happy" .= (32.4::Double)
        ]),
    "chocolate" .= object ([
        "hello" .= True,
        "nest" .= object ([
            "things" .= render APIUsersR
            ])
        ])
    ])