From 1779ae30e49ec9d7981794b1e59d12e001459afe Mon Sep 17 00:00:00 2001
From: Marco Zocca <marco.zocca@unfoldml.com>
Date: Wed, 4 Oct 2023 10:41:59 +0200
Subject: [PATCH] add dotenv-micro

---
 ms-auth/ms-auth.cabal                                    | 3 +--
 ms-auth/src/Network/OAuth2/Provider/AzureAD/SharedKey.hs | 3 ++-
 ms-auth/stack.yaml                                       | 1 +
 3 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/ms-auth/ms-auth.cabal b/ms-auth/ms-auth.cabal
index 58525cb..f9c4f47 100644
--- a/ms-auth/ms-auth.cabal
+++ b/ms-auth/ms-auth.cabal
@@ -41,6 +41,7 @@ library
                      , cryptohash-sha256
                      , directory
                      , directory >= 1.3.6.2
+                     , dotenv-micro >= 0.1
                      , entropy
                      , exceptions >= 0.10
                      , http-client
@@ -62,9 +63,7 @@ library
                        -Widentities
                        -Wincomplete-record-updates
                        -Wincomplete-uni-patterns
-                       -Wmissing-export-lists
                        -Wmissing-home-modules
-                       -Wpartial-fields
                        -Wredundant-constraints
 
 source-repository head
diff --git a/ms-auth/src/Network/OAuth2/Provider/AzureAD/SharedKey.hs b/ms-auth/src/Network/OAuth2/Provider/AzureAD/SharedKey.hs
index b7a227d..ad5b7ea 100644
--- a/ms-auth/src/Network/OAuth2/Provider/AzureAD/SharedKey.hs
+++ b/ms-auth/src/Network/OAuth2/Provider/AzureAD/SharedKey.hs
@@ -1,4 +1,5 @@
 {-# language OverloadedStrings #-}
+{-# language TupleSections #-}
 {-# options_ghc -Wno-unused-imports #-}
 module Network.OAuth2.Provider.AzureAD.SharedKey where
 
@@ -83,7 +84,7 @@ test0 = do
 createRequest :: ToSignLite
               -> String -- ^ storage account name
               -> String -- ^ fileshare name
-              -> BS.ByteString -- ^ key
+              -> BS.ByteString -- ^ shared key for the storage account
               -> IO Request
 createRequest tsl acct share k = do
   s <- signed tsl k
diff --git a/ms-auth/stack.yaml b/ms-auth/stack.yaml
index 610bc09..a479850 100644
--- a/ms-auth/stack.yaml
+++ b/ms-auth/stack.yaml
@@ -5,6 +5,7 @@ packages:
 - .
 
 extra-deps:
+- dotenv-micro-0.1.0.1
 - validation-micro-1.0.0.0
 # - git: https://github.com/commercialhaskell/stack.git
 #   commit: e7b331f14bcffb8367cd58fbfc8b40ec7642100a