Example.hs

getSlideR :: SlideId -> Handler Value
getSlideR slideId = do
    slide <- runDB $ get404 slideId

    let (Object slideHM) = entityIdToJSON (Entity slideId slide)

    embedTextsBySlide <- runDB $ selectList [EmbedTextSlide ==. slideId] [] :: Handler [Entity EmbedText]
    embedImagesBySlide <- runDB $ selectList [EmbedImageSlide ==. slideId] [] :: Handler [Entity EmbedImage]

    let embedTextVector = V.fromList [entityIdToJSON (Entity k r) | Entity k r <- embedTextsBySlide]
    let embedImageVector = V.fromList [entityIdToJSON (Entity k r) | Entity k r <- embedImagesBySlide]

    let embeds = Array $ embedTextVector <> embedImageVector
    
    -- @todo: Sort the lists by "delta"

    let slideWitheEmbeds = HM.insert "embeds" embeds slideHM

    return $ object ["data" .= slideWitheEmbeds]