editPeopleplices :: PhbSplice
editPeopleplices = personFormSplices . lift $ do
  p  <- requireEntity "person" "id"
  pl <- runPersist $ selectFirst [PersonLoginPerson ==. p^.eKey] []
  pure . Just $ (p,pl)
editPeopleplices :: PhbSplice
editPeopleplices = personFormSplices . lift $ do
  p  <- requireEntity "person" "id"
  pl <- runPersist $ selectFirst [PersonLoginPerson ==. p^.eKey] []
  pure . Just $ (p,pl)
editPeopleplices = personFormSplices . lift $ do
  p  <- requireEntity "person" "id"
  pl <- runPersist $ selectFirst [PersonLoginPerson ==. p^.eKey] []
  pure . Just $ (p,pl)