diff options
| -rw-r--r-- | cli/app/Main.hs | 54 |
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 |