getTree
  :: MonadIO m
  => PersistEntity ent
  => PersistEntityBackend ent ~ backend
  => Key ent
  -> ReaderT SqlBackend m (Maybe (Tree (Entity ent)))
getTree keyId = do
  let entDef :: EntityDef
      entDef = entityDef (Nothing :: Maybe ent)
  _