diff options
author | Baylac-Jacqué Félix <felix@alternativebit.fr> | 2017-09-16 16:11:04 +0200 |
---|---|---|
committer | Baylac-Jacqué Félix <felix@alternativebit.fr> | 2017-09-16 17:11:53 +0200 |
commit | 0b2de17e8bb5ca5c2f709f150fd73153ef670fd0 (patch) | |
tree | 1376cb18d011492da599a8d2a80f01e164a3a847 /src/Network/WireGuard/Internal/RpcParsers.hs | |
parent | Plumbed RPC set parser to STM state. (diff) | |
download | wireguard-hs-0b2de17e8bb5ca5c2f709f150fd73153ef670fd0.tar.xz wireguard-hs-0b2de17e8bb5ca5c2f709f150fd73153ef670fd0.zip |
Fix GHC and HLINT warnings.
Diffstat (limited to 'src/Network/WireGuard/Internal/RpcParsers.hs')
-rw-r--r-- | src/Network/WireGuard/Internal/RpcParsers.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/Network/WireGuard/Internal/RpcParsers.hs b/src/Network/WireGuard/Internal/RpcParsers.hs index d2eac92..654cf4e 100644 --- a/src/Network/WireGuard/Internal/RpcParsers.hs +++ b/src/Network/WireGuard/Internal/RpcParsers.hs @@ -57,11 +57,11 @@ setPayloadParser = do deviceParser :: Parser RpcDevicePayload deviceParser = do fields <- deviceFieldsParser - let pk = join $ listToMaybe [ pkF | RpcPk pkF <- fields] + let devPk = join $ listToMaybe [ pkF | RpcPk pkF <- fields] let p = head [ pF | RpcPort pF <- fields] let fw = join $ listToMaybe [ fwF | RpcFwMark fwF <- fields] let rmDev = not $ null [True | RpcReplacePeers <- fields] - return $ RpcDevicePayload pk p fw rmDev + return $ RpcDevicePayload devPk p fw rmDev deviceFieldsParser :: Parser [RpcDeviceField] deviceFieldsParser = many' (deviceFieldParser <* endOfLine) @@ -87,8 +87,8 @@ deviceFieldParser = do peerParser :: Parser RpcPeerPayload peerParser = do - pubK <- parsePubKey - fields <- peerFieldsParser + peerPubK <- parsePubKey + fields <- peerFieldsParser let rm = not $ null [rmF | RpcRmFlag rmF <- fields] let psh = listToMaybe [pshF | RpcPsh pshF <- fields] let endPL = [endPF | RpcEndp endPF <- fields] @@ -98,7 +98,7 @@ peerParser = do let ka = fromMaybe 0 $ listToMaybe [kaF | RpcKA kaF <- fields] let rmIps = not $ null [rmIpsF | RpcDelIps rmIpsF <- fields] let allIpR = [ipRF | RpcAllIp ipRF <- fields] - return $ RpcPeerPayload pubK rm psh endP ka rmIps allIpR + return $ RpcPeerPayload peerPubK rm psh endP ka rmIps allIpR where parsePubKey = do _ <- "public_key=" <?> "Peer delimiter" |