textlocal 0.1.0.0 → 0.1.0.1

raw patch · 3 files changed

+10/−9 lines, 3 filesdep ~base

Dependency ranges changed: base

Files

• src/Network/Api/TextLocal.hs +6/−6
• src/Network/Api/Types.hs +2/−1
• textlocal.cabal +2/−2

@@ -30,15 +30,15 @@ -- Credential for making request to textLocal server. data Credential     = ApiKey ByteString-    | UserHash ByteString -- ^ Email address-               ByteString -- ^ Secure hash that is found within the messenger.+    | UserHash ByteString -- Email address+               ByteString -- Secure hash that is found within the messenger.  baseUrl :: String baseUrl = "https://api.textlocal.in/" --- Create 'Credential' for textLocal.+-- | Create 'Credential' for textLocal. createApiKey-    :: ByteString -- ^ api key+    :: ByteString -- Api key     -> Credential createApiKey apiKey = ApiKey apiKey @@ -49,12 +49,12 @@ formCred (UserHash user hash) = [partBS "username" user, partBS "hash" hash]  data SMSSettings = SMSSettings-    { settingsSender :: ByteString -- ^ Sender name must be 6 alpha+    { settingsSender :: ByteString -- Sender name must be 6 alpha                                    -- characters and should be                                    -- pre-approved by Textlocal. In                                    -- the absence of approved sender                                    -- names, use the default 'TXTLCL'-    , settingsMessage :: ByteString -- ^ The message content. This+    , settingsMessage :: ByteString -- The message content. This                                     -- parameter should be no longer                                     -- than 766 characters. The                                     -- message also must be URL

@@ -4,7 +4,8 @@  import Data.Text (Text) import Data.Aeson ((.:), Value(..), FromJSON(..), (.:?))-import Control.Applicative (empty)+import Control.Applicative (empty, (<*>))+import Data.Functor ((<$>))  data Error = Error     { ecode :: Int

@@ -1,5 +1,5 @@ name:                textlocal-version:             0.1.0.0+version:             0.1.0.1 synopsis:            Haskell wrapper for textlocal SMS gateway description:         Please see README.md homepage:            https://github.com/just-chow/textlocal@@ -18,7 +18,7 @@   hs-source-dirs:      src   exposed-modules:     Network.Api.Types,                        Network.Api.TextLocal-  build-depends:       base >= 4.7 && < 4.9,+  build-depends:       base >= 4.6 && < 5,                        text,                         bytestring,                        unix-time,