From 33ecbd5734172e5c3537780f5bc327613ef91c35 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Kier=C3=A1n=20Meinhardt?= <kmein@posteo.de>
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(-)
(limited to 'cli/app')
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