diff options
Diffstat (limited to 'src/Network')
-rw-r--r-- | src/Network/WireGuard/Internal/Data/RpcTypes.hs | 2 | ||||
-rw-r--r-- | src/Network/WireGuard/Internal/RpcParsers.hs | 8 |
2 files changed, 7 insertions, 3 deletions
diff --git a/src/Network/WireGuard/Internal/Data/RpcTypes.hs b/src/Network/WireGuard/Internal/Data/RpcTypes.hs index d45d38e..a78d9df 100644 --- a/src/Network/WireGuard/Internal/Data/RpcTypes.hs +++ b/src/Network/WireGuard/Internal/Data/RpcTypes.hs @@ -31,7 +31,7 @@ data RpcRequest = RpcRequest { data RpcSetPayload = RpcSetPayload { devicePayload :: !RpcDevicePayload, peersPayload :: [RpcPeerPayload] -} +} deriving (Eq, Show) -- | Device related payload sent together with a set RPC operation. data RpcDevicePayload = RpcDevicePayload { diff --git a/src/Network/WireGuard/Internal/RpcParsers.hs b/src/Network/WireGuard/Internal/RpcParsers.hs index c5179c8..e5e38d1 100644 --- a/src/Network/WireGuard/Internal/RpcParsers.hs +++ b/src/Network/WireGuard/Internal/RpcParsers.hs @@ -3,7 +3,8 @@ module Network.WireGuard.Internal.RpcParsers( requestParser, deviceParser, - peerParser + peerParser, + setPayloadParser ) where import Control.Applicative ((*>), (<|>)) import Control.Monad (join) @@ -48,7 +49,10 @@ requestTypeParser = "get=1" *> return Get <|> "set=1" *> return Set setPayloadParser :: Parser RpcSetPayload -setPayloadParser = undefined +setPayloadParser = do + dev <- deviceParser + peers <- many' peerParser + return $ RpcSetPayload dev peers deviceParser :: Parser RpcDevicePayload deviceParser = do |