diff options
| author |   Baylac-Jacqué Félix <felix@alternativebit.fr> | 2017-09-13 17:25:27 +0200 |
|---|---|---|
| committer | Baylac-Jacqué Félix <felix@alternativebit.fr> | 2017-09-16 17:11:27 +0200 |
| commit | 544fb266e00229f9960b13dda864408a3500dd27 (patch) | |
| tree | 544aa70c64ae6ad20d3509fa857f195324a629c2 /src/Network/WireGuard/Internal/RpcParsers.hs | |
| parent | Implemented RPC set's payload parser. (diff) | |
| download | wireguard-hs-544fb266e00229f9960b13dda864408a3500dd27.tar.xz wireguard-hs-544fb266e00229f9960b13dda864408a3500dd27.zip | |
Implemented rpc request parser.
Diffstat (limited to '')
| -rw-r--r-- | src/Network/WireGuard/Internal/RpcParsers.hs | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/Network/WireGuard/Internal/RpcParsers.hs b/src/Network/WireGuard/Internal/RpcParsers.hs index e5e38d1..d2eac92 100644 --- a/src/Network/WireGuard/Internal/RpcParsers.hs +++ b/src/Network/WireGuard/Internal/RpcParsers.hs @@ -38,15 +38,15 @@ import Network.WireGuard.Internal.Data.RpcTypes (OpType(..), requestParser :: Parser RpcRequest requestParser = do op <- requestTypeParser - let p = case op of - Set -> undefined - Get -> Nothing - _ <- string $ BC.pack "\n\n" + p <- case op of + Set -> Just <$> setPayloadParser + Get -> return Nothing + _ <- string $ BC.pack "\n" return $ RpcRequest op p requestTypeParser :: Parser OpType -requestTypeParser = "get=1" *> return Get - <|> "set=1" *> return Set +requestTypeParser = "get=1\n" *> return Get + <|> "set=1\n" *> return Set setPayloadParser :: Parser RpcSetPayload setPayloadParser = do |