add example

azure-key-vault/azure-key-vault.cabal

@@ -62,3 +62,13 @@ library
                     , text
                     , unliftio
     default-language: Haskell2010
+
+executable example
+  main-is: Main.hs
+  hs-source-dirs: example
+  ghc-options: -Wall
+  default-language: Haskell2010
+  build-depends:
+      base >= 4.7 && < 5
+    , azure-auth
+    , azure-key-vault

azure-key-vault/example/Main.hs

@@ -0,0 +1,17 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+module Main where
+
+import Azure.Secret (getSecret)
+import Azure.Secret.Types (KeyVaultHost (..), SecretName (..))
+import Azure.Types (newEmptyToken)
+import Azure.Auth (defaultAzureCredential)
+
+main :: IO ()
+main = do
+    tok <- newEmptyToken
+    cred <- defaultAzureCredential Nothing "https://vault.azure.net" tok
+    -- In order to run this, you need to replace @SecretName@ and @KeyVaultHost@ with
+    -- appropriate values in your resource group. These are just dummy values.
+    res <- getSecret (SecretName "radiohead") (KeyVaultHost "albums") cred
+    print res