Make API data types strict

src/Forest/Api.hs

@@ -30,12 +30,12 @@ import           GHC.Generics
 type NodeId = T.Text
 
 data Node = Node
-  { nodeText     :: T.Text
+  { nodeText     :: !T.Text
-  , nodeAct      :: Bool
+  , nodeAct      :: !Bool
-  , nodeEdit     :: Bool
+  , nodeEdit     :: !Bool
-  , nodeDelete   :: Bool
+  , nodeDelete   :: !Bool
-  , nodeReply    :: Bool
+  , nodeReply    :: !Bool
-  , nodeChildren :: Map.HashMap NodeId Node
+  , nodeChildren :: !(Map.HashMap NodeId Node)
   } deriving (Show, Generic)
 
 nodeOptions :: Options
@@ -61,11 +61,11 @@ parsePacket value packetType parser = parseJSON value >>= \o -> do
 {- Client -}
 
 data ClientPacket
-  = ClientHello [T.Text]
+  = ClientHello ![T.Text]
-  | ClientAct Path
+  | ClientAct !Path
-  | ClientEdit Path T.Text
+  | ClientEdit !Path !T.Text
-  | ClientDelete Path
+  | ClientDelete !Path
-  | ClientReply Path T.Text
+  | ClientReply !Path !T.Text
   deriving (Show)
 
 instance ToJSON ClientPacket where
@@ -101,8 +101,8 @@ instance FromJSON ClientPacket where
 {- Server -}
 
 data ServerPacket
-  = ServerHello [T.Text]
+  = ServerHello ![T.Text]
-  | ServerUpdate Path Node
+  | ServerUpdate !Path !Node
   deriving (Show)
 
 instance ToJSON ServerPacket where