add `acms collection list`

1 files changed, 29 insertions, 25 deletions

diff --git a/cli/app/Main.hs b/cli/app/Main.hs
index 961f54f..4b166e7 100644
--- a/cli/app/Main.hs
+++ b/cli/app/Main.hs
@@ -8,12 +8,12 @@
 
 module Main where
 
-import Collection
 import ACMS.API.REST.Collection qualified
+import Collection
 import Control.Applicative ((<**>))
 import Data.Aeson qualified as J
 import Data.Aeson.Encode.Pretty qualified as J
-import Data.ByteString.Lazy qualified as LB
+import Data.ByteString.Lazy.Char8 qualified as LB
 import Data.Text qualified as T
 import Options.Applicative qualified as O
 
@@ -39,7 +39,8 @@ data CollectionCmd
   | CollectionEdit CollectionItem
   | CollectionDelete CollectionItem
   | --
-    CollectionSchema Collection
+    CollectionList Collection
+  | CollectionSchema Collection
 
 collectionCmd :: O.Parser Cmd
 collectionCmd = do
@@ -53,6 +54,8 @@ collectionCmd = do
       O.command "delete" . O.info (CollectionDelete <$> collectionItemArg) $
         O.progDesc "Delete an entity",
       --
+      O.command "list" . O.info (CollectionList <$> collectionArg) $
+        O.progDesc "List entities",
       O.command "schema" . O.info (CollectionSchema <$> collectionArg) $
         O.progDesc "Show the collection's schema"
     ]
@@ -68,25 +71,26 @@ collectionArg =
 main :: IO ()
 main =
   O.execParser (O.info (args <**> O.helper) O.idm) >>= \case
-    Args
-      { cmd = CollectionCmd cmd
-      } -> case cmd of
-        CollectionAdd collection -> do
-          LB.putStr . J.encodePretty
-            =<< ACMS.API.REST.Collection.create collection
-            =<< J.throwDecode
-            =<< LB.getContents
-        CollectionView collectionItem ->
-          LB.putStr . J.encodePretty
-            =<< ACMS.API.REST.Collection.read collectionItem
-        CollectionDelete collectionItem ->
-          LB.putStr . J.encodePretty
-            =<< ACMS.API.REST.Collection.delete collectionItem
-        CollectionEdit collectionItem ->
-          LB.putStr . J.encodePretty
-            =<< ACMS.API.REST.Collection.update collectionItem
-            =<< J.throwDecode
-            =<< LB.getContents
-        CollectionSchema collection ->
-          LB.putStr . J.encodePretty @J.Value
-            =<< ACMS.API.REST.Collection.schema collection
+    Args {cmd = CollectionCmd cmd} -> case cmd of
+      CollectionAdd collection ->
+        LB.putStr . J.encodePretty
+          =<< ACMS.API.REST.Collection.create collection
+          =<< J.throwDecode
+          =<< LB.getContents
+      CollectionView collectionItem ->
+        LB.putStr . J.encodePretty
+          =<< ACMS.API.REST.Collection.read collectionItem
+      CollectionDelete collectionItem ->
+        LB.putStr . J.encodePretty
+          =<< ACMS.API.REST.Collection.delete collectionItem
+      CollectionEdit collectionItem ->
+        LB.putStr . J.encodePretty
+          =<< ACMS.API.REST.Collection.update collectionItem
+          =<< J.throwDecode
+          =<< LB.getContents
+      CollectionList collection ->
+        mapM_ (LB.putStrLn . J.encodePretty)
+          =<< ACMS.API.REST.Collection.list collection
+      CollectionSchema collection ->
+        LB.putStr . J.encodePretty @J.Value
+          =<< ACMS.API.REST.Collection.schema collection