future-proofing

This commit is contained in:
Joey Hess 2013-12-25 20:04:31 -04:00
parent 72765aa95e
commit 8803e36814
2 changed files with 13 additions and 7 deletions

View file

@ -129,6 +129,7 @@ data Response
| COST_UNKNOWN
| INITREMOTE_SUCCESS
| INITREMOTE_FAILURE ErrorMsg
| UNKNOWN_REQUEST
deriving (Show)
instance Receivable Response where
@ -144,6 +145,7 @@ instance Receivable Response where
parseCommand "COST_UNKNOWN" = parse0 COST_UNKNOWN
parseCommand "INITREMOTE-SUCCESS" = parse0 INITREMOTE_SUCCESS
parseCommand "INITREMOTE-FAILURE" = parse1 INITREMOTE_FAILURE
parseCommand "UNKNOWN-REQUEST" = parse0 UNKNOWN_REQUEST
parseCommand _ = parseFail
-- Requests that the external remote can send at any time it's in control.