cGH :: (MonadIO m, MonadReader ComboState m)
    => GH.DbPersist GH.Postgresql (NoLoggingT IO) b
    -> m b
cGH f = do
    c <- asks csGH
    liftIO $ GH.runDbConn f c
cGH :: (MonadIO m, MonadReader ComboState m)
    => GH.DbPersist GH.Postgresql (NoLoggingT IO) b
    -> m b
cGH f = do
    c <- asks csGH
    liftIO $ GH.runDbConn f c
cGH f = do
    c <- asks csGH
    liftIO $ GH.runDbConn f c