create :: (Entity e, ToJSON e) => e -> AppM e
create e = do
    uuid <- fmap head $ uuids 1
    let e' = set (entityID e) uuid e
    update e'
create :: (Entity e, ToJSON e) => e -> AppM e
create e = do
    uuid <- fmap head $ uuids 1
    let e' = set (entityID e) uuid e
    update e'
create e = do
    uuid <- fmap head $ uuids 1
    let e' = set (entityID e) uuid e
    update e'