aboutsummaryrefslogtreecommitdiffstats
path: root/cli
diff options
context:
space:
mode:
authorLibravatar Alexander Foremny <aforemny@posteo.de>2024-10-12 16:29:05 +0200
committerLibravatar Alexander Foremny <aforemny@posteo.de>2024-10-12 17:10:53 +0200
commitf59cd4349c974c8ab7907b4852f5dc86ce4daeed (patch)
tree7eaed9115b8ca5ae46792bbf4471bf007480d174 /cli
parent29d9251b15d56f66d06551e158e992ace1856110 (diff)
add doc tests
Diffstat (limited to 'cli')
-rw-r--r--cli/app/Main.hs9
-rw-r--r--cli/cli.cabal2
2 files changed, 6 insertions, 5 deletions
diff --git a/cli/app/Main.hs b/cli/app/Main.hs
index eaabd0a..ef7a8ad 100644
--- a/cli/app/Main.hs
+++ b/cli/app/Main.hs
@@ -18,6 +18,7 @@ import Options.Applicative qualified as O
import Text.ParserCombinators.ReadP qualified as R
import Text.ParserCombinators.ReadPrec qualified as R
import Text.Read (Read (..))
+import Debug.Trace
data Args = Args
{ cmd :: Cmd
@@ -96,18 +97,18 @@ main =
{ cmd = CollectionCmd cmd
} -> case cmd of
CollectionAdd (Collection cn) -> do
- print
+ LB.putStr . J.encodePretty
=<< ACMS.API.REST.Collection.create cn
=<< J.throwDecode
=<< LB.getContents
CollectionView CollectionItem {collection = Collection cn, itemFileName} ->
- print
+ LB.putStr . J.encodePretty
=<< ACMS.API.REST.Collection.read cn itemFileName
CollectionDelete CollectionItem {collection = Collection cn, itemFileName} ->
- print
+ LB.putStr . J.encodePretty
=<< ACMS.API.REST.Collection.delete cn itemFileName
CollectionEdit CollectionItem {collection = Collection cn, itemFileName} ->
- print
+ LB.putStr . J.encodePretty
=<< ACMS.API.REST.Collection.update cn itemFileName
=<< J.throwDecode
=<< LB.getContents
diff --git a/cli/cli.cabal b/cli/cli.cabal
index bb98d8b..4a21270 100644
--- a/cli/cli.cabal
+++ b/cli/cli.cabal
@@ -8,7 +8,7 @@ author: Alexander Foremny
build-type: Simple
extra-doc-files: CHANGELOG.md
-executable cli
+executable acms
main-is: Main.hs
hs-source-dirs: app
other-modules: