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/Data | |
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/Data')
-rw-r--r-- | src/Network/WireGuard/Internal/Data/RpcTypes.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Network/WireGuard/Internal/Data/RpcTypes.hs b/src/Network/WireGuard/Internal/Data/RpcTypes.hs index 088bbb5..7e1c20e 100644 --- a/src/Network/WireGuard/Internal/Data/RpcTypes.hs +++ b/src/Network/WireGuard/Internal/Data/RpcTypes.hs @@ -44,7 +44,7 @@ data RpcDevicePayload = RpcDevicePayload { instance Show RpcDevicePayload where show (RpcDevicePayload kp lp fwM rpp) = show (showKeyPair <$> kp) ++ show lp ++ show fwM ++ show rpp where - showKeyPair (pk, _) = show $ dhSecToBytes pk + showKeyPair (pr, _) = show $ dhSecToBytes pr instance Eq RpcDevicePayload where (==) (RpcDevicePayload pk1 prt1 fw1 rp1) (RpcDevicePayload pk2 prt2 fw2 rp2) = |