--   -> Event t () 
--   -> m (Event t (ReqResult () HappyHour))
genQueryHH :: MonadWidget t m
  => Event t ()
  -> m (Event t (ReqResult () [HappyHour]))
genCreateHH :<|> genUpdateHH :<|> genDeleteHH :<|> _ :<|> genQueryHH = apiClients

createHH :: MonadWidget t m
  => Event t HappyHour
  -> m (Event t UUID)
createHH eHH = do