diff options
Diffstat (limited to 'Remote')
| -rw-r--r-- | Remote/External.hs | 2 | ||||
| -rw-r--r-- | Remote/External/Types.hs | 4 |
2 files changed, 0 insertions, 6 deletions
diff --git a/Remote/External.hs b/Remote/External.hs index 18dd6b627..b8a964480 100644 --- a/Remote/External.hs +++ b/Remote/External.hs @@ -211,8 +211,6 @@ handleRequest' lck external req mp responsehandler = do value <- fromMaybe "" . M.lookup setting <$> liftIO (atomically $ readTMVar $ externalConfig external) sendMessage lck external (VALUE value) - handleRemoteRequest (SETSTATE k value) = error "TODO" - handleRemoteRequest (GETSTATE k) = error "TODO" handleRemoteRequest (VERSION _) = sendMessage lck external (ERROR "too late to send VERSION") diff --git a/Remote/External/Types.hs b/Remote/External/Types.hs index ff93af0ec..a4d49ddf1 100644 --- a/Remote/External/Types.hs +++ b/Remote/External/Types.hs @@ -157,8 +157,6 @@ data RemoteRequest | DIRHASH Key | SETCONFIG Setting String | GETCONFIG Setting - | SETSTATE Key String - | GETSTATE Key deriving (Show) instance Receivable RemoteRequest where @@ -167,8 +165,6 @@ instance Receivable RemoteRequest where parseCommand "DIRHASH" = parse1 DIRHASH parseCommand "SETCONFIG" = parse2 SETCONFIG parseCommand "GETCONFIG" = parse1 GETCONFIG - parseCommand "SETSTATE" = parse2 SETSTATE - parseCommand "GETSTATE" = parse1 GETSTATE parseCommand _ = parseFail -- Responses to RemoteRequest. |