Haskell wrapper for sending SMS using textlocal SMS gateway.

Sending SMS

1. Get an api key from textlocal.in
2. Quick way to send:

>> import Network.Api.TextLocal
>> let cred = createUserHash "myemail@email.in" "my-secret-hash"
>> res <- sendSMS "hello world" ["911234567890"] cred
>> res
Right (TLResponse {status = Success, warnings = Nothing, errors = Nothing})

Or in a more configurable way:

>> import Network.Api.TextLocal
>> let cred = createUserHash "myemail@email.in" "my-secret-hash"
>> let destNums = ["911234567890"]
>> let mySettings = setDestinationNumber destNums $  setAuth cred $ setTest True defaultSMSSettings
>> res <- runSettings SendSMS (setMessage "hello world" mySettings)
>> res
Right (TLResponse {status = Success, warnings = Nothing, errors = Nothing})