gpgGuard :: (MonadIO m, MonadPlus m) => String -> Bool -> m ()
gpgGuard reason p = case p of
    True -> return ()
    False -> liftIO (errorM "Pontarius.Xmpp" reason) >> mzero
gpgGuard :: (MonadIO m, MonadPlus m) => String -> Bool -> m ()
gpgGuard reason p = case p of
    True -> return ()
    False -> liftIO (errorM "Pontarius.Xmpp" reason) >> mzero
gpgGuard reason p = case p of
    True -> return ()
    False -> liftIO (errorM "Pontarius.Xmpp" reason) >> mzero