List and format

2021-01-01 08:29:24 +02:00
parent 32afc6ba29
commit d9445823bb
6 changed files with 49 additions and 10 deletions
--- a/app/Main.hs
+++ b/app/Main.hs
@ -14,7 +14,9 @@ import qualified Operations

 commands :: Parser (BuukaM ())
 commands = subparser
-  (  command "insert" (info (insertOpts Operations.insert) (progDesc "Insert a new bookmark")))
+  (  command "insert" (info (insertOpts Operations.insert) (progDesc "Insert a new bookmark"))
+  <> command "list" (info (pure Operations.list) (progDesc "List all the bookmarks"))
+  )
  where
    insertOpts f =
        f <$> strOption (long "url" <> short 'u' <> metavar "URL")