diff options
Diffstat (limited to 'cli/app/Main.hs')
| -rw-r--r-- | cli/app/Main.hs | 14 |
1 files 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} } } -> |