Verified Commit 22581fe9 authored by Camil Staps's avatar Camil Staps 🚀

Ensure that HyperStrictDynamic really evaluates the value

parent 70628c8d
...@@ -295,14 +295,14 @@ where ...@@ -295,14 +295,14 @@ where
connectionDetails processId = ConnectionDetails connectionDetails processId = ConnectionDetails
{ serverWrite = \method val { serverWrite = \method val
#! tuple = (0,dynamic val) #! tuple = (0,dynamic val)
#! (_,val) = if (method=:HyperstrictDynamic) (hyperstrict tuple) tuple #! (z,val) = if (method=:HyperstrictDynamic) (hyperstrict tuple) tuple
-> sendSerializedTCPMsg processId "msg" [] val | z == 0 -> sendSerializedTCPMsg processId "msg" [] val
, clientWrite = \method val w , clientWrite = \method val w
#! tuple = (0,dynamic val) #! tuple = (0,dynamic val)
#! (_,val) = if (method=:HyperstrictDynamic) (hyperstrict tuple) tuple #! (z,val) = if (method=:HyperstrictDynamic) (hyperstrict tuple) tuple
# (val,w) = jsSerializeOnClient val w # (val,w) = jsSerializeOnClient val w
# w = (jsGlobal "ABC" .# "component" .# "send" .$! ("msg", val)) w # w = (jsGlobal "ABC" .# "component" .# "send" .$! ("msg", val)) w
-> w | z == 0 -> w
, setClientMessageHandler = \handler w , setClientMessageHandler = \handler w
# (component,w) = jsGlobal "ABC" .# "component" .? w # (component,w) = jsGlobal "ABC" .# "component" .? w
# fun = \{[1]=val} w -> case unsafeCoerce val of # fun = \{[1]=val} w -> case unsafeCoerce val of
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment