¿Cómo puedo extraer un "extractEntityFromPostedJson" en Yesod?

Después de un poco de prueba y error, logré crear la siguiente función en Yesod para tomar un objeto de un JSON POST, crear un EventFolder entidad y guárdelo en la base de datos.

postAddEventFolderR :: Handler RepJson
postAddEventFolderR = do
    r <- waiRequest 
    v <- liftIO . runResourceT $ requestBody r $$ sinkParser json
    let v1 :: EventFolder
        v1 = case fromJSON v of
                 Success a -> a
                 Error s   -> error s
    runDB $ insert $ v1
    return $ RepJson $ toContent $ show v1

La función de prueba parece curl -H "Content-Type: application/json" -X POST -d '{"name":"test_folder"}' http://localhost:5000/AddEventFolder.

La pregunta es, bueno, primero, ¿hay una forma más concisa de escribir esta función? Parece bastante prolijo. Y segundo, ¿cómo podría extraer una función que genéricamente crea un objeto del JSON? Así que me gustaría terminar con algo como

postAddEventFolderR = do
    v1 = extractEntityFromJsonPost (whatever params) :: EventFolder
    runDB $ insert $ v1
    return $ RepJson $ toContent $ show v1

Tenga en cuenta que soy completamente nuevo en Haskell.