hsendxmpp 0.1.3 → 0.1.3.1
raw patch · 2 files changed
+11/−8 lines, 2 filesdep ~textdep ~tls
Dependency ranges changed: text, tls
Files
- Main.hs +4/−3
- hsendxmpp.cabal +7/−5
Main.hs view
@@ -1,4 +1,4 @@-{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE OverloadedStrings, Strict #-} module Main where @@ -31,7 +31,7 @@ defaultOptions = Options { oUserName = "" , oPassWord = ""- , oServer = error "no server specified"+ , oServer = "" , oResource = "hsendxmpp" , oMessageType = Chat , oVerbose = False@@ -61,6 +61,7 @@ main = do (opts, recipients) <- getOpts when (oVerbose opts) $ updateGlobalLogger "Pontarius.Xmpp" $ setLevel DEBUG+ let server = if oServer opts == "" then error "no server specified" else oServer opts text <- T.getContents envPassWord <- lookupEnv passWordEnvVar let justEnvPassWord = fromMaybe "" envPassWord@@ -70,7 +71,7 @@ let sessionConfiguration = if oNoTLSVerify opts then def { sessionStreamConfiguration = def { tlsParams = xmppDefaultParams { clientHooks = def { onServerCertificate = \_ _ _ _ -> pure [] } } } } else def- eSess <- session (oServer opts) authData sessionConfiguration+ eSess <- session server authData sessionConfiguration let sess = either (error . show) id $ eSess sendPresence presenceOnline sess mapM_ (\tjid -> do
hsendxmpp.cabal view
@@ -1,6 +1,7 @@ cabal-version: 3.0 name: hsendxmpp-version: 0.1.3+-- semver+version: 0.1.3.1 synopsis: sendxmpp clone, sending XMPP messages via CLI description: It aims to be a drop-in replacement regarding the CLI flags. It is user-friendlier, handles errors better and, unlike sendxmpp, it supports modern authentication and encryption schemes. license: AGPL-3.0-only@@ -8,8 +9,9 @@ author: Sergey Alirzaev maintainer: zl29ah@gmail.com -- copyright:-category: Network+category: Network, CLI, XMPP build-type: Simple+tested-with: GHC == 9.6.2 Source-repository head type: git@@ -22,7 +24,7 @@ executable hsendxmpp main-is: Main.hs- ghc-options: -W -fno-warn-tabs+ ghc-options: -W -Wcompat -fno-warn-tabs -- other-modules: -- other-extensions: build-depends: base >= 4.9 && < 5,@@ -30,7 +32,7 @@ pontarius-xmpp-extras >= 0.1.0.6 && < 0.2, hslogger >= 1.2.8 && < 1.4, string-class >= 0.1.7.0 && < 0.2,- text ^>= 1.2.4.1,- tls ^>= 1.5.5,+ text >= 1.2.4.1 && < 2.1,+ tls >= 1.5.5 && < 1.8, -- hs-source-dirs: default-language: Haskell2010