From e8ca694baa8d19c3e3117556bf80fdfaf52e9478 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Wed, 25 Dec 2013 20:04:31 -0400 Subject: future-proofing --- Remote/External.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'Remote') 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. -- cgit v1.2.3