diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-12-25 20:04:31 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-12-25 20:04:31 -0400 |
| commit | e8ca694baa8d19c3e3117556bf80fdfaf52e9478 (patch) | |
| tree | d1e23c297fb53a9695734e2e448af233b82d2bf7 /Remote/External.hs | |
| parent | 35da1d17508994e88890645f0e48a8fe09c94eba (diff) | |
future-proofing
Diffstat (limited to 'Remote/External.hs')
| -rw-r--r-- | Remote/External.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/Remote/External.hs b/Remote/External.hs index c3297c7ea..1520acea3 100644 --- a/Remote/External.hs +++ b/Remote/External.hs @@ -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. |