listPeopleSplices :: PhbSplice
listPeopleSplices =
  C.withSplices
    C.runChildren
    ("personRow" ## personRowSplice)
    . lift $ do
  runPersist $ do
    selectList [] [Asc PersonName]
listPeopleSplices :: PhbSplice
listPeopleSplices =
  C.withSplices
    C.runChildren
    ("personRow" ## personRowSplice)
    . lift $ do
  runPersist $ do
    selectList [] [Asc PersonName]
listPeopleSplices =
  C.withSplices
    C.runChildren
    ("personRow" ## personRowSplice)
    . lift $ do
  runPersist $ do
    selectList [] [Asc PersonName]