From 05038a63f22dd1662bccb7bb92b535dd5dd2ba0f Mon Sep 17 00:00:00 2001
From: Marco Zocca <marco.zocca@unfoldml.com>
Date: Mon, 26 Jun 2023 01:25:36 +0200
Subject: [PATCH] v 0.3

---
 .../MSAzureAPI/StorageServices/FileService.hs | 34 +++++++++----------
 1 file changed, 17 insertions(+), 17 deletions(-)

diff --git a/ms-azure-api/src/MSAzureAPI/StorageServices/FileService.hs b/ms-azure-api/src/MSAzureAPI/StorageServices/FileService.hs
index c98fedb..170042d 100644
--- a/ms-azure-api/src/MSAzureAPI/StorageServices/FileService.hs
+++ b/ms-azure-api/src/MSAzureAPI/StorageServices/FileService.hs
@@ -147,23 +147,23 @@ listDirectoriesAndFiles acct fshare fpath mm atok = do
       Just m -> ("marker" ==: m)
       _ -> mempty
 
--- | Repeated call of 'listDirectoriesAndFiles' supporting multi-page results
-listDirectoriesAndFilesC :: MonadIO m =>
-                              Text -- ^ storage account
-                           -> Text -- ^ file share
-                           -> Text -- ^ directory path, including directories
-                           -> AccessToken -> C.ConduitT i [DirItem] m ()
-listDirectoriesAndFilesC acct fshare fpath atok = go Nothing
-  where
-    go mm = do
-      eres <- runReq defaultHttpConfig $ tryReq $ listDirectoriesAndFiles acct fshare fpath mm atok
-      case eres of
-        Left _ -> undefined -- FIXME http exception
-        Right xe -> case xe of
-          Left _ -> undefined -- FIXME xml parsing error
-          Right (DirItems xs nMarker) -> do
-            C.yield xs
-            when (isJust nMarker) (go nMarker)
+-- -- | Repeated call of 'listDirectoriesAndFiles' supporting multi-page results
+-- listDirectoriesAndFilesC :: MonadIO m =>
+--                               Text -- ^ storage account
+--                            -> Text -- ^ file share
+--                            -> Text -- ^ directory path, including directories
+--                            -> AccessToken -> C.ConduitT i [DirItem] m ()
+-- listDirectoriesAndFilesC acct fshare fpath atok = go Nothing
+--   where
+--     go mm = do
+--       eres <- runReq defaultHttpConfig $ tryReq $ listDirectoriesAndFiles acct fshare fpath mm atok
+--       case eres of
+--         Left _ -> undefined -- FIXME http exception
+--         Right xe -> case xe of
+--           Left _ -> undefined -- FIXME xml parsing error
+--           Right (DirItems xs nMarker) -> do
+--             C.yield xs
+--             when (isJust nMarker) (go nMarker)
 
 -- | Directory item, as returned by 'listDirectoriesAndFiles'
 data DirItem = DIFile {diId :: Text, diName :: Text} -- ^ file