Modified the README.md to include a second example

README.md

@@ -14,10 +14,10 @@ Documentation soon to be available on Hackage. For now, see [markandrus.github.i
 
 For TwiML, see [twiml-haskell](http://github.com/markandrus/twiml-haskell).
 
-Example
+Example 1 - using environment variables
 -------
 
-You can create a REST API client and fetch the calls resources as follows
+You can create a REST API client, fetch the calls, or send a message as follows:
 
 ```hs
 {-#LANGUAGE OverloadedStrings #-}
@@ -38,11 +38,53 @@ main = runTwilio' (getEnv "ACCOUNT_SID")
   liftIO $ print calls
 
   -- Send a Message.
-  let body = PostMessage "+14158059869" "+14158059869" "Oh, hai"
+  let receivingPhone = "+14158059869"
+  let sendingPhone = "+14158059869"
+  let body = PostMessage receivingPhone sendingPhone "Oh, hai"
   message <- post body
   liftIO $ print message
 ```
 
+Example 2 - using SID and secret embedded in the code
+-------
+
+You can create a REST API client and send a message as follows:
+
+```hs
+{-#LANGUAGE OverloadedStrings #-}
+
+module Main where
+import Twilio.Types.SID
+import Control.Monad.IO.Class (liftIO)
+import Twilio
+import Twilio.Messages
+import qualified Data.Text as T
+
+parseCredentials :: T.Text -> T.Text -> Maybe Credentials
+parseCredentials accountSID authToken =
+    case parseAuthToken authToken of
+        Just authToken ->
+            (case parseSID accountSID of
+                Just accountSID ->
+                    Just (accountSID, authToken)
+                Nothing -> Nothing)
+        Nothing -> Nothing
+
+main :: IO ()
+main =
+    let accountSID = "youraccountSID"
+        authToken = "yourauthToken"
+    in case parseCredentials accountSID authToken of
+        Just credentialsPassed ->
+            runTwilio ( credentialsPassed ) $ do
+                let receivingPhone = "+14158059869"
+                let sendingPhone = "+14158059869"
+                let body = PostMessage receivingPhone sendingPhone "Oh, hai"
+                message <- post body
+                liftIO $ print message
+        Nothing -> print "Something bad happened, you have poorly formed credentials."
+```
+
 Contributing
 ------------