diff options
Diffstat (limited to 'tprint/src/Options.hs')
-rw-r--r-- | tprint/src/Options.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/tprint/src/Options.hs b/tprint/src/Options.hs index f4c7ebd..046112f 100644 --- a/tprint/src/Options.hs +++ b/tprint/src/Options.hs | |||
@@ -69,7 +69,7 @@ data Operation | |||
69 | , draftTitle :: Maybe DraftTitle | 69 | , draftTitle :: Maybe DraftTitle |
70 | , input :: Input | 70 | , input :: Input |
71 | } | 71 | } |
72 | | DraftEdit { draftId :: DraftId } | 72 | | DraftEdit { mDraftId :: Maybe DraftId } |
73 | | Draft { draftId :: DraftId } | 73 | | Draft { draftId :: DraftId } |
74 | | DraftDelete { draftId :: DraftId } | 74 | | DraftDelete { draftId :: DraftId } |
75 | | DraftPrint | 75 | | DraftPrint |
@@ -95,7 +95,7 @@ supportedInputs, supportedOutputs :: [Format] | |||
95 | supportedInputs = [BBCode, JSON] | 95 | supportedInputs = [BBCode, JSON] |
96 | supportedOutputs = [Human, BBCode, Internal, JSON] | 96 | supportedOutputs = [Human, BBCode, Internal, JSON] |
97 | 97 | ||
98 | cmdPrinters, cmdJobs, cmdJobCreate, cmdJob, cmdJobStatus, cmdJobDelete, cmdDrafts, cmdDraftCreate, cmdDraftReplace, cmdDraft, cmdDraftDelete, cmdDraftPrint :: ParserInfo Operation | 98 | cmdPrinters, cmdJobs, cmdJobCreate, cmdJob, cmdJobStatus, cmdJobDelete, cmdDrafts, cmdDraftCreate, cmdDraftReplace, cmdDraftEdit, cmdDraft, cmdDraftDelete, cmdDraftPrint :: ParserInfo Operation |
99 | cmdPrinters = info cmdPrinters' $ progDesc "List all available printers" | 99 | cmdPrinters = info cmdPrinters' $ progDesc "List all available printers" |
100 | where cmdPrinters' = pure Printers | 100 | where cmdPrinters' = pure Printers |
101 | 101 | ||
@@ -129,8 +129,8 @@ cmdDraftCreate = info cmdDraftCreate' $ progDesc "Create a new draft" | |||
129 | cmdDraftReplace = info cmdDraftReplace' $ progDesc "Update the contents and title of a draft" | 129 | cmdDraftReplace = info cmdDraftReplace' $ progDesc "Update the contents and title of a draft" |
130 | where cmdDraftReplace' = DraftReplace <$> aDraft <*> optional pTitle <*> pInput | 130 | where cmdDraftReplace' = DraftReplace <$> aDraft <*> optional pTitle <*> pInput |
131 | 131 | ||
132 | cmdDraftEdit = info cmdDraftEdit' $ progDesc "Edit an existing draft" | 132 | cmdDraftEdit = info cmdDraftEdit' $ progDesc "Edit or create a draft" |
133 | where cmdDraftEdit' = DraftEdit <$> aDraft | 133 | where cmdDraftEdit' = DraftEdit <$> optional aDraft |
134 | 134 | ||
135 | cmdDraft = info cmdDraft' $ progDesc "Retrieve a drafts contents" | 135 | cmdDraft = info cmdDraft' $ progDesc "Retrieve a drafts contents" |
136 | where cmdDraft' = Draft <$> aDraft | 136 | where cmdDraft' = Draft <$> aDraft |
@@ -153,7 +153,7 @@ pOperation = hsubparser $ mconcat [ command "printers" cmdPrinters | |||
153 | ) (progDesc "Interact with jobs") | 153 | ) (progDesc "Interact with jobs") |
154 | , command "draft" $ info ( hsubparser $ mconcat [ command "create" cmdDraftCreate | 154 | , command "draft" $ info ( hsubparser $ mconcat [ command "create" cmdDraftCreate |
155 | , command "replace" cmdDraftReplace | 155 | , command "replace" cmdDraftReplace |
156 | , command "edit" cmdDraftEdit | 156 | , command "interact" cmdDraftEdit |
157 | , command "content" cmdDraft | 157 | , command "content" cmdDraft |
158 | , command "delete" cmdDraftDelete | 158 | , command "delete" cmdDraftDelete |
159 | , command "print" cmdDraftPrint | 159 | , command "print" cmdDraftPrint |