add common

unfoldml · Jun 20, 2023 · 4e28fe5 · 4e28fe5
1 parent ff6e4e9
commit 4e28fe5
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/ms-azure-api/src/MSAzureAPI/Internal/Common.hs b/ms-azure-api/src/MSAzureAPI/Internal/Common.hs
@@ -44,8 +44,10 @@ import UnliftIO (MonadUnliftIO(..))
 import UnliftIO.Exception (try)
 
 
+-- | @GET@ a 'LBS.ByteString' e.g. a file
 getLbs :: APIPlane
-       -> [Text] -> Option 'Https -> AccessToken -> Req LBS.ByteString
+       -> [Text] -- ^ URI path segments
+       -> Option 'Https -> AccessToken -> Req LBS.ByteString
 getLbs apiplane paths params tok = responseBody <$> req GET url NoReqBody lbsResponse opts
   where
     opts = auth <> params