From e36a4cf345fede7f8b9f6a57ac842bf48fd9c068 Mon Sep 17 00:00:00 2001
From: Baylac-Jacqué Félix <felix@alternativebit.fr>
Date: Thu, 17 Aug 2017 16:11:33 +0200
Subject: Extracted RPC types to proper module.

---
 src/Network/WireGuard/Internal/Data/RpcTypes.hs | 63 +++++++++++++++++++++++++
 1 file changed, 63 insertions(+)
 create mode 100644 src/Network/WireGuard/Internal/Data/RpcTypes.hs

(limited to 'src/Network/WireGuard/Internal/Data/RpcTypes.hs')

diff --git a/src/Network/WireGuard/Internal/Data/RpcTypes.hs b/src/Network/WireGuard/Internal/Data/RpcTypes.hs
new file mode 100644
index 0000000..a3c148b
--- /dev/null
+++ b/src/Network/WireGuard/Internal/Data/RpcTypes.hs
@@ -0,0 +1,63 @@
+module Network.WireGuard.Internal.Data.RpcTypes(
+ OpType(..),
+ RpcRequest(..),
+ RpcSetPayload(..),
+ RpcDevicePayload(..),
+ RpcPeerPayload(..)
+) where
+
+import Data.Word                                (Word64)
+import Data.IP                                  (IPRange(..))
+import           Crypto.Noise.DH                (dhSecToBytes)
+import Network.Socket.Internal                  (SockAddr)
+
+import Network.WireGuard.Internal.Data.Types    (PublicKey, KeyPair,
+                                                 Time)
+-- | Kind of client operation. 
+--
+--  See <https://www.wireguard.com/xplatform/#configuration-protocol> for more informations.
+data OpType = Get | Set
+
+-- | Request wrapper. The payload is set only for Set operations. 
+--
+--  See <https://www.wireguard.com/xplatform/#configuration-protocol> for more informations.
+data RpcRequest = RpcRequest {
+  opType  ::  OpType,
+  payload ::  Maybe RpcSetPayload
+}
+
+-- | Payload sent together with a set RPC operation.
+data RpcSetPayload = RpcSetPayload {
+  devicePayload :: RpcDevicePayload,
+  peersPayload  :: [RpcPeerPayload]
+}
+
+-- | Device related payload sent together with a set RPC operation.
+data RpcDevicePayload = RpcDevicePayload {
+  pk           :: Maybe KeyPair,
+  listenPort   :: Int,
+  fwMark       :: Maybe Word,
+  replacePeers :: Bool
+} 
+
+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
+
+instance Eq RpcDevicePayload where
+    (==) (RpcDevicePayload pk1 prt1 fw1 rp1) (RpcDevicePayload pk2 prt2 fw2 rp2) =
+      ((dhSecToBytes . fst) <$> pk1) == ((dhSecToBytes . fst) <$> pk2) && (prt1 == prt2) &&
+      (rp1 == rp2) && (fw1 == fw2)
+
+-- | Peer related payload sent together with a set RPC operation.
+data RpcPeerPayload  = RpcPeerPayload {
+  pubK                        :: PublicKey,
+  remove                      :: Bool,
+  endpoint                    :: SockAddr,
+  persistantKeepaliveInterval :: Int,
+  allowedIp                   :: [IPRange],
+  rxBytes                     :: Word64,
+  txBytes                     :: Word64,
+  lastHandshake               :: Time 
+}
-- 
cgit v1.2.3-59-g8ed1b