Messente

Example

import Messente

smsSend = send "api-username" "api-password"
main = do
  result <- smsSend Nothing "+00000000000" "my first sms"
  putStrLn $ case result of
    Right id -> "sms sent, id: " ++ id
    Left (errNo, errStr) -> "not sent: " ++ show errNo ++ ", " ++ errStr

  listen 9000 delivery

delivery :: Delivery -> IO ()
delivery del = putStrLn $
  case del of
    Delivered id  -> "delivered " ++ id
    DeliveryError id errNo errStr -> "not delivered " ++ id ++ ": " ++ errStr
    DeliveryProgress id status    -> "progress "      ++ id ++ ": " ++ status

Documentation

data Delivery

Constructors

Delivered SmsID

Happy final state

DeliveryError SmsID Int String

Negative final state

DeliveryProgress SmsID String

Not final state. Informative report.

Instances

Show Delivery

data MessenteError

Exceptions for Messente API

Constructors

WrongCredentials

InvalidIP

InvalidParameters [(String, String)]

InvalidSender String

MissingPin

ServersDown

All servers gave FAILED 209

Unknown String

Just in case. Argument contains http response as it is.

Instances

Show MessenteError

Exception MessenteError

Typeable * MessenteError

send :: String -> String -> Maybe String -> String -> String -> IO (Either (Int, String) SmsID)

Sends sms and returns Either error or sms id It takes arguments apiUser apiPassword from to content

listen :: Int -> (Delivery -> IO ()) -> IO ()

Listens delivery reports Takes port number and callback function as arguments.

verify :: String -> String -> SmsID -> IO Delivery

Verify SMS delivery. Takes apiUser apiPassword smsId