From 33ecbd5734172e5c3537780f5bc327613ef91c35 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Kier=C3=A1n=20Meinhardt?= Date: Fri, 11 Oct 2024 15:45:24 +0200 Subject: cli: insert -> add --- cli/app/Main.hs | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/cli/app/Main.hs b/cli/app/Main.hs index 799af2b..7028be9 100644 --- a/cli/app/Main.hs +++ b/cli/app/Main.hs @@ -33,7 +33,7 @@ cmd_ = O.progDesc "Manage content collections" ] -data CollectionCmd = CollectionInsert +data CollectionCmd = CollectionAdd { filePath :: CollectionPath } @@ -59,13 +59,13 @@ instance Show CollectionPath where collectionCmd :: O.Parser Cmd collectionCmd = fmap Collection . O.hsubparser . mconcat $ - [ O.command "insert" . O.info collectionInsertCmd $ - O.progDesc "Insert an entity" + [ O.command "add" . O.info collectionAddCmd $ + O.progDesc "Add an entity" ] -collectionInsertCmd :: O.Parser CollectionCmd -collectionInsertCmd = - CollectionInsert +collectionAddCmd :: O.Parser CollectionCmd +collectionAddCmd = + CollectionAdd <$> collectionPathArg collectionPathArg :: O.Parser CollectionPath @@ -78,7 +78,7 @@ main = do Args { cmd = Collection - CollectionInsert + CollectionAdd { filePath = CollectionPath {collectionName, fileName} } } -> -- cgit v1.2.3