diff --git a/src/Network/Api/TextLocal.hs b/src/Network/Api/TextLocal.hs
--- a/src/Network/Api/TextLocal.hs
+++ b/src/Network/Api/TextLocal.hs
@@ -137,6 +137,9 @@
     , settingsTest = Just False
     }
 
+setSender :: ByteString -> SMSSettings -> SMSSettings
+setSender msg def = def { settingsSender = msg }
+
 setMessage :: ByteString -> SMSSettings -> SMSSettings
 setMessage msg def =
     def
diff --git a/textlocal.cabal b/textlocal.cabal
--- a/textlocal.cabal
+++ b/textlocal.cabal
@@ -1,5 +1,5 @@
 name:                textlocal
-version:             0.1.0.3
+version:             0.1.0.4
 synopsis:            Haskell wrapper for textlocal SMS gateway
 description:         Please see README.md
 homepage:            https://github.com/just-chow/textlocal