[CDEC-403] Remove partial record accessors from HandlerSpec

Jimbo4350 · Jimbo4350 · commit bc746483684d · 2018-07-19T08:06:47.000-04:00
diff --git a/infra/src/Pos/Infra/Communication/Types/Protocol.hs b/infra/src/Pos/Infra/Communication/Types/Protocol.hs
@@ -186,8 +186,9 @@ buildBS :: ByteString -> B.Builder
 buildBS = bprint base16F
 
 data HandlerSpec
-    = ConvHandler { hsReplyType :: MessageCode }
-    | UnknownHandler Word8 ByteString
+    -- | ConvHandler hsReplyType
+    = ConvHandler !MessageCode
+    | UnknownHandler !Word8 !ByteString
     deriving (Show, Generic, Eq)
 
 instance Bi HandlerSpec where
