Import firefox UX
This commit is contained in:
		@@ -27,6 +27,7 @@ commands = subparser
 | 
				
			|||||||
  (  command "insert" (info (insertOpts Operations.insert <**> helper) (progDesc "Insert a new bookmark"))
 | 
					  (  command "insert" (info (insertOpts Operations.insert <**> helper) (progDesc "Insert a new bookmark"))
 | 
				
			||||||
  <> command "list" (info (pure Operations.list <**> helper) (progDesc "List all the bookmarks"))
 | 
					  <> command "list" (info (pure Operations.list <**> helper) (progDesc "List all the bookmarks"))
 | 
				
			||||||
  <> command "query" (info (queryOpts Operations.query <**> helper) (progDesc "Query the bookmarks"))
 | 
					  <> command "query" (info (queryOpts Operations.query <**> helper) (progDesc "Query the bookmarks"))
 | 
				
			||||||
 | 
					  <> command "import" (info (pure Operations.importFirefox <**> helper) (progDesc "Import"))
 | 
				
			||||||
  )
 | 
					  )
 | 
				
			||||||
  where
 | 
					  where
 | 
				
			||||||
    insertOpts f =
 | 
					    insertOpts f =
 | 
				
			||||||
 
 | 
				
			|||||||
@@ -2,6 +2,7 @@ module Operations
 | 
				
			|||||||
  ( module Operations.Insert
 | 
					  ( module Operations.Insert
 | 
				
			||||||
  , module Operations.List
 | 
					  , module Operations.List
 | 
				
			||||||
  , module Operations.Query
 | 
					  , module Operations.Query
 | 
				
			||||||
 | 
					  , module Operations.Import.Firefox
 | 
				
			||||||
  )
 | 
					  )
 | 
				
			||||||
  where
 | 
					  where
 | 
				
			||||||
 | 
					
 | 
				
			||||||
@@ -11,3 +12,5 @@ import Operations.List
 | 
				
			|||||||
       (list)
 | 
					       (list)
 | 
				
			||||||
import Operations.Query
 | 
					import Operations.Query
 | 
				
			||||||
       (query)
 | 
					       (query)
 | 
				
			||||||
 | 
					import Operations.Import.Firefox
 | 
				
			||||||
 | 
					       (importFirefox)
 | 
				
			||||||
 
 | 
				
			|||||||
		Reference in New Issue
	
	Block a user