diff options
Diffstat (limited to 'Remote/External')
-rw-r--r-- | Remote/External/Types.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/Remote/External/Types.hs b/Remote/External/Types.hs index e925f0e91..88c2126d7 100644 --- a/Remote/External/Types.hs +++ b/Remote/External/Types.hs @@ -170,6 +170,8 @@ data RemoteRequest | GETUUID | SETWANTED PreferredContentExpression | GETWANTED + | SETSTATE Key String + | GETSTATE Key deriving (Show) instance Receivable RemoteRequest where @@ -183,6 +185,8 @@ instance Receivable RemoteRequest where parseCommand "GETUUID" = parse0 GETUUID parseCommand "SETWANTED" = parse1 SETWANTED parseCommand "GETWANTED" = parse0 GETWANTED + parseCommand "SETSTATE" = parse2 SETSTATE + parseCommand "GETSTATE" = parse1 GETSTATE parseCommand _ = parseFail -- Responses to RemoteRequest. |